{ use vars qw( @cache ) }
sub fib {
    (local (our $n) = shift), (
        $n < 2 ? $n : $cache[$n] ||= fib ($n - 1) + fib ($n - 2)
    )
}