use strict;
use locale;
if ($#ARGV != 1){ 
    die "Usage : ", $0, " LEXIQUE1 LEXIQUE2\n";
}
my %lex ;
lire_lex($ARGV[0]);
lire_lex($ARGV[1]);
foreach my $entree (keys %lex){
    print $entree, "\n";
}
sub lire_lex{
    my ($fichier) = @_;
    open(LEX, "<", $fichier) or						die "impossible d'ouvrir ", $fichier;
    while (my $ligne = <LEX>){
	chomp($ligne);
	$lex{$ligne} = 1;
    }
    close(LEX);
}