Функция синтаксического анализа в haskell

Я новичок в Haskell и пытаюсь разбирать выражения. Я узнал о Parsec, а также нашел несколько статей, но, похоже, не понимаю, что мне делать. Моя проблема в том, что я хочу дать выражение типа «x ^ 2 + 2 * x + 3», а результатом будет функция, которая принимает аргумент x и возвращает значение. Мне очень жаль, если это простой вопрос, но мне действительно нужна помощь. Спасибо! Код, который я вставил, взят из статьи, которую вы можете найти по по ссылке .

import Control.Monad(liftM)
import Text.ParserCombinators.Parsec 
import Text.ParserCombinators.Parsec.Expr  
import Text.ParserCombinators.Parsec.Token  
import Text.ParserCombinators.Parsec.Language  

data Expr = Num Int       | Var String    | Add Expr Expr
          | Sub Expr Expr | Mul Expr Expr | Div Expr Expr
          | Pow Expr Expr
          deriving Show

expr :: Parser Expr
expr = buildExpressionParser table factor
     "expression"

table = [[op "^" Pow AssocRight],
         [op "*" Mul AssocLeft, op "/" Div AssocLeft],
         [op "+" Add AssocLeft, op "-" Sub AssocLeft]]
    where
        op s f assoc
            = Infix (do{ string s; return f}) assoc
factor = do{ char '('
        ; x <- expr
        ; char ')'
        ; return x}
    <|> number
    <|> variable
     "simple expression"

number :: Parser Expr
number = do{ ds<- many1 digit
        ; return (Num (read ds))}
     "number"

variable :: Parser Expr
variable = do{ ds<- many1 letter
        ; return (Var ds)}
     "variable"