RosettaCodeData/Task/Factorial/Forth/factorial-1.fth

: fac ( n -- n! ) 1 swap 1+ 1 ?do i * loop ;