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