var f1, f2: text;
d: array['A'..'z'] of word;
i: word;
c: char;
s: ansistring;
Begin
Assign(f1, 'VB.INP'); reset(f1);
Assign(f2, 'VB.OUT'); rewrite(f2);
For c:='A' to 'z' do d[c]:=0;
Read(f1, s);
for i:=1 to length(s) do
If s[i] in ['A'..'z'] then inc(d[s[i]]);
for c:='A' to 'z' do if d[s[c]]>0
then writeln(f2, c, ': ', d[s[c]]);
Close(f1); close(f2);
End.
