#!/usr/bin/perl -w

print deep(2_500_000);

sub deep
{
    $_[0]>0 ? deep($_[0]-1) : "done\n";
}

##</code><code>##

#!/usr/bin/perl -w

$count = 0;
my $n = ($ARGV[0] < 1) ? 1 : $ARGV[0];
print fib($n)."\ncount = $count\n";

sub fib { $count++; $_[0]<2 ? 1 : fib($_[0]-2) + fib($_[0]-1) }