module ExprType where
data Expr = IntE Integer
| VarE String
| ProcedureE String [Expr]
| DefinitionE String Expr
| NilE
instance Show Expr where
show (IntE x) = show x
show (VarE x) = x ++ " ; var"
show NilE = "nil"