RosettaCodeData/Task/Left-factorials/Oforth/left-factorials.fth

: leftFact  | i | 0 1 rot loop: i [ tuck + swap i * ] drop ;