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