module Expr where


data Expr
  = EInfix Expr String Expr
  | EPrefix String Expr
  | EParens Expr
  | ELitInt Integer
  | EVar String
  deriving (Show)

einfix :: String -> Expr -> Expr -> Expr
einfix = flip EInfix