#! perl -w
use strict;

my @scores;
for( 1 .. <> ) {
    my %h;
    for( 1 .. <> ) {
        $h{ $_->[0] } = $_->[1] for [ split ' ', <> ];
    }
    my $score = 0;
    /\+/ and ++$score or --$score for values %h;
    push @scores, $score;
}
print "$_\n" for @scores;