binary :: String -> (a -> a -> a) -> Assoc -> Operator Char () a
binary symbol operation assoc = Infix (do {reservedOp symbol; 
                                           return operation}) 
                                assoc
binary :: String -> (a -> a -> a) -> Assoc -> Operator Char () a
binary symbol operation assoc = Infix (do {reservedOp symbol; 
                                           return operation}) 
                                assoc
binary symbol operation assoc = Infix (do {reservedOp symbol; 
                                           return operation}) 
                                assoc