## Time-stamp: <Nov 25 2002>

#重複リスト
%dupe;
open(DUPE, $ARGV[1]);
while(<DUPE>){
    chomp;
    $dupe{$_} = "0";
}
close(DUPE);


#削除作業
open(FUGO, $ARGV[0]);
while(<FUGO>){
    my $org = $_;

    chomp;
    if(defined($dupe{$_})){
        if($dupe{$_} eq "0"){
            $dupe{$_} = "1";
            print $org;
        }else{
            ;
        }
    }else{
        print $org;
    }
}