#!/usr/bin/perl
  
  if(@ARGV != 1) {
  	die("BAD USAGE: <(i) burning_word_list>
  ");
  }
  
  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 "$_
  ";
  	}
  }