100 =a :>s =b [0,0,0,0,0,0,0,0,0,0,] =c {$a} {.a -- $c $b $a :: :i &:: 1 + ::= } while {.a &-- 10 < } { $c 9 $a - :: =d {$d} {.d -- 9 $a - :<<} while} while