var
  f2,f:text;
  c:char;
  s:array[char] of integer;
begin
   assign(f,'input.txt'); 
   reset(f);
   
   while not eof(f) do begin
    while not eoln(f) do begin
     read(f,c);
     s[c]:=s[c]+1;
    end;
    readln(f);
   end;
   assign(f2,'K3.txt');
   Rewrite(f2);
   
   for c:=#0 to #255 do
    if s[c]<>0 then writeln(f2,c:4,':',s[c]);
  
   close(f);
   close(f2);
   end.