0 =x
0 =cnt
0 =num
0 =cnt2
1 =p

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