+ ,FunStmt "1printstr" [VarExpr zero (VarDef "x" [FieldTl])] []]]
+ ,
+ FunDecl zero "1printbool" ["x"] Nothing [] [
+ IfStmt (VarExpr zero (VarDef "x" []))
+ [FunStmt "1printstr" [makeStrExpr zero $ fromString "True"] []]
+ [FunStmt "1printstr" [makeStrExpr zero $ fromString "False"] []]
+ ]]