use strict;
use locale;

while ( my $ligne = <STDIN> ) {
    chomp $ligne;

    my @t = split ( /\t/, $ligne);
    if ( ($t[1] eq "ADJ") and 
	 ($t[2] =~ /able$/) and 
	 ($t[2] !~/^(dé|in|im|il|ir)/) ) {
	print $t[0],"\n";
    }
}