RosettaCodeData/Task/Y-combinator/Perl-6/y-combinator-2.pl6

say .(10) given sub (Int $x) { $x < 2 ?? 1 !! $x * &?ROUTINE($x - 1); }