use List::Util qw(sum);

foreach ( 1 .. <> ) {
  my %votes;
  foreach ( 1 .. <> ) {
    chomp( my( $user, $vote ) = split /\s+/, <> );
    $votes{$user} = $vote eq '+' ? 1 : -1;
  }
  push @scores, $_ for sum( values %votes );
}
print "$_\n" for @scores;