3 lines
65 B
Forth
3 lines
65 B
Forth
|
10 seq reduce(#*) Constant new: FACT10
|
||
|
|
: newFunction FACT10 . ;
|