$ perl6 -e 'multi f(0) { 1 }; multi f(Int $x) {$x * f($x - 1) }; say f 5'
120