program Kolonka;

{$APPTYPE CONSOLE}

var a:array[1..100] of longint;
s:array[1..100] of string;
i,j,k,x,y,min1,min2,n:longint;
c:char;
s1:string;
begin
   readln(n);
   k:=0;
   min1:=4000;
   for i:=1 to n do
   begin
     c:='0';
     s1:='';
     while c<>' ' do
     begin
       read(c);s1:=s1+c;
     end;
     c:='0';
     while c<>' ' do
     begin
       read(c);if c<>' ' then s1:=s1+c;
     end;
     readln(x,y);
     if x=92 then
     begin
       k:=k+1;a[k]:=y;s[k]:=s1;
       if a[k]<min1 then min1:=a[k];
     end;
   end;
   n:=k;
   min2:=4000;
   x:=0;
   for i:=1 to n do
     if (a[i]>min1) and (a[i]<min2) then begin min2:=a[i];y:=i;end;
   for i:=1 to k do
     if a[i]=min2 then x:=x+1;
   if (min2<>4000)and(x=1) then write(s[y]);
   if (min2<>4000)and(x<>1) then write(x);
   if (min2=4000)and(x=0) then write(s[1]);
   if (min2=4000)and(x<>0) then write(n);
readln;
end.