{@::cache = (0, 1)}
sub fib {
    {push @::n, shift}
    {return pop @::n if $::n[-1] < 2}
    {$::cache [$::n[-1]] ||= fib ($::n[-1] - 1) + fib ($::n[-1] - 2)}
    {return $::cache[pop @::n]}
}