use strict;
use IO::Handle;

$| = 1;
my $str ="";
for(my $h = 0; $h < 10; $h++){
	for(my $i = 0; $i < 10; $i++){
		for(my $j = 0; $j < 10; $j++){
			print $h.$i.$j."\n";
			$str = <STDIN>;
			if($str eq "unlocked"){
				exit;
			}
		}
	}
}