use strict;
use warnings;

my %hash = ();
foreach my $a (1..10) {
    foreach my $b (1..4000) {
        foreach my $c (1..10) {
            foreach my $d (1..7) {
                $hash{$a}{$b}{$c}{$d} = $d;
            }
        }
    }
    print "$a\n";
}
print "here\n";

next while (!<STDIN>);