+ ,Instr "ldl" [Lit -2] "load first argument"
+ ,Instr "trap" [Lit 1] "print char"
+ ,Instr "unlink" [] ""
+ ,Instr "ret" [] ""
+ ,Lab "1readint"
+ ,Instr "link" [Lit 0] ""
+ ,Instr "trap" [Lit 10] "read int"
+ ,Instr "str" [Raw "RR"] ""
+ ,Instr "unlink" [] ""
+ ,Instr "ret" [] ""
+ ,Lab "1readchar"
+ ,Instr "link" [Lit 0] ""
+ ,Instr "trap" [Lit 11] "read char"