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

: fact(n)  n ifZero: [ 1 ] else: [ n n 1- fact * ] ;