1 <SETG PFUNCT <FUNCTION (OBLST CHAN)
2 <PROG (A B C D E (F 0))
4 <SET B <LENGTH .OBLST>>
7 L1 <COND (<=? .C ()> <GO FOO>)>
9 <COND (<GASSIGNED? <SET D <1 .C>>>
10 <SET E <TYPE <GVAL .D>>>
11 <COND (<OR <=? .E SUBR><=? .E FSUBR>>
15 <COND (<=? 5 <SET F <+ .F 1>>> <SET F 0> <TERPRI .CHAN><TERPRI .CHAN>)
16 (ELSE <PRINC " " .CHAN>
17 <SET FO <FLATSIZE .D 24>>
18 <COND (<1? .FO> <PRINC " " .CHAN>)
19 (<L? .FO 10><PRINC " " .CHAN>)>)>)>)>
23 <COND (<1? <- .A .B>> <RETURN "DONE">)>