builtInDyadic :: Assoc Name Instruction -- list of pairs - [(Name, Instruction)]
builtInDyadic = 
    [ ("+", Add), ("-", Sub), ("*", Mul), ("div", Div),
    ("==", Eq), ("~=", Ne), (">=", Ge),
    (">", Gt), ("<=", Le), ("<", Lt)]
builtInDyadic :: Assoc Name Instruction
builtInDyadic = 
    [ ("+", Add), ("-", Sub), ("*", Mul), ("div", Div),
    ("==", Eq), ("~=", Ne), (">=", Ge),
    (">", Gt), ("<=", Le), ("<", Lt)]
builtInDyadic = 
    [ ("+", Add), ("-", Sub), ("*", Mul), ("div", Div),
    ("==", Eq), ("~=", Ne), (">=", Ge),
    (">", Gt), ("<=", Le), ("<", Lt)]