program n8;
var
 count:array[char] of word;
 filename:string;
 sym:char;
 i:integer;
begin
 readln(filename);
 assign(input,filename);
 reset(input);
 while not eof(input) do begin
 read(sym);
 count[sym]:=count[sym]+1
 end;
 for i:=0 to 255 do
 if count[chr(i)]<>0 then writeln(chr(i),' ',count[chr(i)])
end.