module Objects.Expression
  ( Expr
      ( Lit,
        Add,
        Sub,
        Mul,
        Div
      ),
      -- solve,
  )
where

data Expr
  = Lit Int
  | Add Expr Expr
  | Sub Expr Expr
  | Mul Expr Expr
  | Div Expr Expr
  deriving (Show)