#!/usr/bin/perl

%sc = ();

while(<>){
  chop();
  $_ =~ m/[ \t]([0-9]+)[ \t]+([\-\+])[ \t]+/;
  $score = $1;
  $sc{$score}++;
}

foreach $key (keys %sc) {
  print "$key $sc{$key}\n";
}
