program PascalGuru;
label 1;
 
var f:text;
    n:integer;
    s,name_kat:string;
 
begin
assign(f,'f.txt');
 
n:=0;
name_kat:='';
reset(f);
while not eof(f) do
      begin
      readln(f,s);
      if (s[1]<>' ') and (name_kat='') then name_kat:=s;
      if s[1]<>' ' then
                   begin
                   if n<>0 then
                           begin writeln(name_kat,': ',n);
                            n:=0;
                            name_kat:=s;
                            end
                   end
                   else inc(n);
      end;
      writeln(name_kat,': ',n);
 
close(f);
readln;
end.