program qq;

var
  a: array [1..256]of integer;
  i, counter: integer;
  s: string;
  char1: char;

begin
  read(s);
  counter := 1;
  for i := 1 to length(s) do
  begin
    if s[i] = ' ' then counter := 1;
    if (s[i] <> ' ') and (counter <> 0) then begin
      counter := 0; char1 := s[i];
      inc(a[ord(upcase(char1))]); end;

  end;
  for i := 65 to 90 do
    if a[i] >= 0 then writeln(chr(i), ' ', a[i]);
  for i := 192 to 223 do
    if a[i] >= 0 then writeln(chr(i), ' ', a[i]);

end.