#!/usr/bin/perl

use strict;

my $subtract_file = shift;

my %subtract;

open(FH, "<$subtract_file") or die "unable to open file ($subtract_file): $!";
while (<FH>)
{
	chomp;
	$subtract{lc($_)} = 1;
}
close(FH);

while (<STDIN>)
{
	chomp;
	print "$_\n" if ( ! exists $subtract{lc($_)} );
}