RosettaCodeData/Task/Left-factorials/Perl-6/left-factorials-3.pl6

constant leftfact = 0, [\+] 1, [\*] 1..*;