RosettaCodeData/Task/Factorial/Wrapl/factorial-3.wrapl

DEF fac(n) n <= 1 | :"*":foldl(ALL 1:to(n));