RosettaCodeData/Task/Fibonacci-sequence/Perl-6/fibonacci-sequence-5.pl6

proto fib (Int $n --> Int) {*}
multi fib (0)  { 0 }
multi fib (1)  { 1 }
multi fib ($n) { fib($n - 1) + fib($n - 2) }