#!/usr/bin/perl

if(@ARGV != 1) {
	die("BAD USAGE: <(i) burning_word_list>\n");
}

my $file;
my %filter;
open($file, $ARGV[0]);
while(<$file>){
	chomp($_);
	$filter{$_}++;	
}

while(<STDIN>){
	chomp($_);
	my @splittedLine = split(/\t/, $_);
	my $print = 1;
	for(my $i = 0; $i < @splittedLine; $i++){
		if(exists $filter{$splittedLine[$i]}){
			$print = 0;
		}
	}
	if($print == 1){
		print "$_\n";
	}
}
