equals :: ArithmeticExp -> Parser BooleanExp
equals l  = do r <- arithmeticExpression
               return (Equal l r)
equals :: ArithmeticExp -> Parser BooleanExp
equals l  = do r <- arithmeticExpression
               return (Equal l r)
equals l  = do r <- arithmeticExpression
               return (Equal l r)