var f: text;
s, s_: string;
n,k,m: integer;
BEGIN
assign(f, 'input.txt');    reset(f);  readln(f,s);  close(f);
assign(f,'output.txt');  rewrite(f);
repeat
  s:=trim(s); 
  m:=0;
  n:=Pos(' ',s);
  if n>0 then s_:=copy(s,1,n-1)
         else s_:=s;
  repeat
    k:=pos(s_+' ',s+' ');
    if k>0 then
    begin
      s:=copy(s,1,k-1)+copy(s,k+length(s_),length(s)); 
      inc(m);
    end;
  until k=0;
    if (s_<>'') and (m>1) then writeln(f,s_,' ',m);
until s='';
close(f);
END.