use strict;
use locale;

if ( $#ARGV != 0 ) {
    die "Usage : ", $0, " lemme\n";
}

my $lemme = $ARGV[0];

while ( my $ligne = <STDIN> ){
    chomp $ligne;
    my @t = split ( /\t/, $ligne );

    if ( $t[2] eq $lemme ) {
	print $t[0], "\n";
    }
}