#!/usr/bin/env perl6

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