RosettaCodeData/Task/Compile-time-calculation/Oforth/compile-time-calculation-1.fth

10 seq reduce(#*) Constant new: FACT10
: newFunction  FACT10 . ;