#!/usr/bin/perl -w

print deep(2_500_000);

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