op :: String -> a -> Parser a
op str opr = do reservedOp str
                return opr
op :: String -> a -> Parser a
op str opr = do reservedOp str
                return opr
op str opr = do reservedOp str
                return opr