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;
}

##</code><code>##

int fib(int n) {
    if( n > 1 )
        return fib(n-1) + fib(n-2);

    return 1;
}

int main() {
    int i;

    for(i=0; i<36; i++)
        printf("i=%d ... fib(i)=%d\n", i, fib(i));

    return 0;
}