module Types.Expr (Expr (..)) where data Expr = Lit Int | Add Expr Expr | Sub Expr Expr | Mul Expr Expr deriving ( -- | Div Expr Expr Show )