#!/usr/bin/perl

my %output;
my %ignore;

open(INPUT,"-");
while($in=<INPUT>) {
chomp($in);

	if (!($in =~ /^\+\+\+/)) {

		if ($in =~ /^\+/) {
			$in =~ s/^\+//g;	
			if (!($ignore{$in} =~ /TRUE/)) {    	
				$output{$in} = "TRUE";
			}	
		}
		
		if ($in =~ /^-/) {
			$in =~ s/^-//g;	
			if (exists $output{$in}) {
				undef $output{$in};
			}
			$ignore{$in} = "TRUE";
		}
	}	
}

while(($key, $value) = each(%output)) {
	print "$key\n";
}
