#! /usr/bin/perl -w
use strict;
# preskoci prva dva retka
my $dummy = <STDIN>;
$dummy = <STDIN>;
my %data = ();
while (<STDIN>) {
    s{[\r\n]+$}{}g;
    my ($a, $b, $c) = split(/;/, $_);
    $data{$a} = 0 unless defined($data{$a});
    $data{$a} += $c;
}
foreach (sort(keys(%data))) {
    print STDOUT sprintf('%d=%d', $_, $data{$_})."\n";
}