lessOrEquals :: ArithmeticExp -> Parser BooleanExp
lessOrEquals l = do r <- arithmeticExpression
                    return (LessOrEqual l r)
lessOrEquals :: ArithmeticExp -> Parser BooleanExp
lessOrEquals l = do r <- arithmeticExpression
                    return (LessOrEqual l r)
lessOrEquals l = do r <- arithmeticExpression
                    return (LessOrEqual l r)