10 lines
194 B
Text
10 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 ]
|