n! -- factor


: n! ( n -- n! ) dup zero? [ drop 1 ] [ dup 1- n! * ] if ;
: ln! ( n lim -- ) over - [ dup n! . 1+ ] times drop ;

1 10 ln!
1
2
6
24
120
720
5040
40320
362880

Superior.

>>15
Yes I did. Calculated fac(1000000000000) and wrote it to a file. My computer crashed several times trying to load the file. OpenOffice could open it. Got the right answer for the problem.

Fun fact: I printed it to the eclipse console first. Don't do that.