: multifact(n, deg)  1 while( n 0 > ) [ n * n deg - ->n ] ;

: printMulti
| i |
   5 loop: i [ System.Out i << " : " << 10 seq map(#[ i multifact]) << cr ] ;