#!/usr/bin/env perl6

multi sub fib (Int $n where * == 1) is cached { 1}
multi sub fib (Int $n where * == 2) is cached { 1}
multi sub fib (Int $n where * >= 3) is cached { fib($n - 1)
                                              + fib($n - 2)}
say fib(17);