0 =x
0 =cnt

{.p 1000 *=  .cnt2 ++} =f
{$cnt2 $num <} =g
{$cnt 100 <}
{ :>c :i =num 0 =cnt2 1 =p $g $f while  .x  $p +=  .cnt ++ }
while
0 =cnt
1 =p
{$cnt 10 <}
{$x $p 1000 * % =y 0 =cnt2 {$cnt2 $p + 1 - $y <} {$cnt print .cnt2 $p +=} while .cnt ++ .p 1000 *=}
while