#!/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";
}
