use strict;

for my $i (0 .. 35) {
    print "i=$i ... fib(i)=", fib($i), "\n";
}

sub fib {
    my $n = shift;

    return fib($n-1) + fib($n-2) if $n>1;
    return 1;
}