Problem:
Score : 200 points

Problem Statement

You have decided to write a book introducing good restaurants.
There are N restaurants that you want to introduce: Restaurant 1, Restaurant 2, ..., Restaurant N. Restaurant i is in city S_i, and your assessment score of that restaurant on a 100-point scale is P_i.
No two restaurants have the same score.

You want to introduce the restaurants in the following order:

The restaurants are arranged in lexicographical order of the names of their cities.

If there are multiple restaurants in the same city, they are arranged in descending order of score.

Print the identification numbers of the restaurants in the order they are introduced in the book.

Constraints

1 ≤ N ≤ 100

S is a string of length between 1 and 10 (inclusive) consisting of lowercase English letters.

0 ≤ P_i ≤ 100

P_i is an integer.

P_i ≠ P_j (1 ≤ i < j ≤ N)

Input

Input is given from Standard Input in the following format:

N
S_1 P_1
:
S_N P_N

Output

Print N lines. The i-th line (1 ≤ i ≤ N) should contain the identification number of the restaurant that is introduced i-th in the book.

Sample Input 1

6
khabarovsk 20
moscow 10
kazan 50
kazan 35
moscow 60
khabarovsk 40

Sample Output 1

3
4
6
1
5
2

The lexicographical order of the names of the three cities is kazan < khabarovsk < moscow. For each of these cities, the restaurants in it are introduced in descending order of score. Thus, the restaurants are introduced in the order 3,4,6,1,5,2.

Sample Input 2

10
yakutsk 10
yakutsk 20
yakutsk 30
yakutsk 40
yakutsk 50
yakutsk 60
yakutsk 70
yakutsk 80
yakutsk 90
yakutsk 100

Sample Output 2

10
9
8
7
6
5
4
3
2
1

Solution in Pascal (FPC 2.6.2) (judge verdict: Accepted)

var
	N,i,j,tmp:Longint;
	S:array[1..100]of String[10];
	P,id:array[1..100]of Longint;
	t:String;
begin
	readln(N);
	for i:=1 to N do begin
		id[i]:=i;
		readln(t);
		j:=1;
		while t[j]<>' ' do begin
			S[i]:=S[i]+t[j];
			inc(j);
		end;
		inc(j);
		for j:=j to length(t)do begin
			P[i]:=P[i]*10+ord(t[j])-48;
		end;
		for j:=i-1 downto 1 do begin
			if(S[id[j]]>S[id[j+1]])or((S[id[j]]=S[id[j+1]])and(P[id[j]]<P[id[j+1]]))then begin
				tmp:=id[j];
				id[j]:=id[j+1];
				id[j+1]:=tmp;
			end;
		end;
	end;
	for i:=1 to N do writeln(id[i]);
end.