var

n,i,j,k:longint;

a,s:array[0..10005] of ansistring;

begin

readln(n);

for i:=1 to n do begin

readln(a[i]);

readln(s[i]);

end;

for i:=1 to n do begin

for j:=i+1 to n do begin

if length(s[i])