module Types.Expr (Expr (..)) where

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