11 lines
194 B
Text
11 lines
194 B
Text
|
[ 1 rot times
|
||
|
|
[ i 1+ *
|
||
|
|
dip [ over step ] ]
|
||
|
|
nip ] is m! ( n --> n! )
|
||
|
|
|
||
|
|
5 times
|
||
|
|
[ i^ 1+ 10 times
|
||
|
|
[ i^ 1+ over m!
|
||
|
|
echo sp ]
|
||
|
|
drop cr ]
|