# Compute Fibonacci numbers, straight from Memoize docs
use Memoize;
memoize('fib');

sub fib {
     my $n = shift;
     return $n if $n < 2;
     fib($n-1) + fib($n-2);
}

my $foo = fib(24);


##</code><code>##

sub fib{int(((((1+sqrt(5))/2)**$_[0])/sqrt(5))+.5)}