program p1; 
 uses crt; 
 var i,j,n,k,p:integer; 
     s:string; 
     a:array[1..100]of string; 
 begin clrscr; 
      readln(n);k:=0; 
      for i:=1 to n do begin 
          readln(a); 
          p:=pos(' ',a[ i]); 
          delete(a[ i],p,length(a)-p+1);//отрезаем имя от фамилии 
          for j:=1 to n do if a[ i]=a[j] then inc(k); 
          if k>1 then begin 
                       str(k,s); 
                       a[ i]:=a[ i]+s;//если встретилась такая же фамилия n раз, прибавляем к слову n 
                      end; 
          k:=0; 
                       end; 
      for i:=1 to n do writeln(a[ i]); 
      end.