number :: Parser ArithmeticExp
number = do n <- integer
            return (Number n)
number :: Parser ArithmeticExp
number = do n <- integer
            return (Number n)
number = do n <- integer
            return (Number n)