open(FILE,"$ARGV[0]");

my @lignes=<FILE>;

close(FILE);

while (@lignes) {
    my $ligne=shift(@lignes);
    chomp $ligne;
    my $sequence="";
    my $longueur=0;
    if ( $ligne =~ /^([^\t]+)\t[^\t]+\tADJ.*/) {
		my $forme=$1;
	 	$sequence.=$forme;
	 	$longueur=1;
	 	my $nextligne=$lignes[0];
	 	if ( $nextligne =~ /^([^\t]+)\t[^\t]+\tNC.*/){
	    	my $forme=$1;
	    	$sequence.=" ".$forme;
	    	$longueur=2;
	    }
    }
    if ($longueur == 2) {
		print $sequence."\n";
    }
}