var s:string;
    n:array[char]of word;
    i:Integer;
begin
    readln(s);  {исходная строка для анализа}
    FillChar(n[#0], SizeOf(n), 0);
    for i:=1 to Length(s) do begin
        inc(n[s[i]]);
    end;
 
    for i:=0 to 255 do begin
        if i<32 then write('#',i,' : ',n[chr(i)],';#9')
        else write(chr(i),' : ',n[chr(i)],';#9');
        if (i and 7)=7 then writeln;
    end;
end.