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.