RosettaCodeData/Task/Factorial/Factor/factorial.factor

USING: math.ranges sequences ;

: factorial ( n -- n ) [1,b] product ;