program textUL;
var f,g:text;
    c:char;
    n,i,x:integer;
    fr:array['A'..'Z'] of integer;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
for c:='A' to 'Z' do fr[c]:=0;
readln(f,n);
for i:=1 to n do
begin
readln(f,c,x);
fr[c]:=fr[c]+x;
end;
close(f);
for c:='A' to 'Z' do
if fr[c]>0 then writeln(g,c,' ',fr[c]);
close(g);
end.