use strict;
use locale;
while(my $ligne = <STDIN>){
    chomp($ligne);
    if ($ligne =~ /.*\t(.*[ei]té)\tNcfs$/){
	print $1, "\n";
    }
}