20 seq map(#[ seq reduce(#*) ]) Constant new: ALLFACTS
: fact(n)  n ifZero: [ 1 ] else: [ ALLFACTS at(n) ] ;

ALLFACTS println