#SET N$ !N #PUSH !R #XPUSH !n $INIT // GOTO WHILE$!r !A [] $041 |CL0 #FREF WHILE$!r !a #$ !A 0 0 0 $041 |CL!a #FREF END$!r !a #$ WHILE$!r: #$ BEGIN$!r: #$ IFNOT_ !1 !2 !3 !4 GOTO END$!r