variable :: Parser ArithmeticExp
variable = do var <- identifier
              return (Variable var)
variable :: Parser ArithmeticExp
variable = do var <- identifier
              return (Variable var)
variable = do var <- identifier
              return (Variable var)