к
Size: a a a
MK
MK
KZ
аа
аа
МВ
МВ
data Program
= Program [Decl]
data Decl
= VarDecl Id Lit
| FuncDecl Id [Id] Expr
data Expr
= Lit Lit
| LocalVar Id Expr
| SetVar Id Expr
| GetVar Id
| Apply Expr [Expr]
| If Expr Expr Expr
| While Expr Expr
| Block [Expr]
data Lit
= IntLit Int
| BoolLit Bool
newtype Id
= Id String
МВ
МВ
MM
Md
KZ
L