fib.p6

sub fib(int $n) {
$n < 2 ?? $n !! fib( $n - 1 ) + fib( $n - 2 );
}
my $N = 30;
print "fib($N) = " ~ fib($N) ~ "\n";