Perl 5 Fibonacci in Perl 6

sub fib_perl5 { my ($n) = @_; if ($n > 1) { return fib_perl5($n - 1) + fib_perl5($n - 2); } return $n; }