var x:array[char]of byte;c:char;begin
repeat read(c);inc(x[c])until eof;for c in[^
..^,^!..^:]do
writeln(c,':',x[c]:3)end.