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

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