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 Fortran (gfortran v4.8.4) (judge verdict: Accepted)

      module piyo
      implicit none
      
      type rest
        character(10) :: s
        integer :: p,num
      end type
      
      contains
      subroutine sortS( r )
        implicit none
        type(rest),intent(inout) :: r(:)
        type(rest) :: buffer
        integer :: i,k,len
        
        len = size(r)
        
        do i = 1,len-1
          do k = i+1,len
            if( r(i)%s(:)>r(k)%s(:) )then
              buffer = r(i)
              r(i) = r(k)
              r(k) = buffer
            end if
          end do
        end do
      end subroutine
      
      function sortP( r ) result( res )
        implicit none
        type(rest) :: r(:)
        type(rest) :: buffer
        type(rest),allocatable :: res(:)
        integer :: i,k,len
        
        len = size(r)
        
        do i = 1,len-1
          do k = i+1,len
            if( r(i)%p<r(k)%p )then
              buffer = r(i)
              r(i) = r(k)
              r(k) = buffer
            end if
          end do
        end do
        res = r
      end
      end module piyo
      
      
      PROGRAM GuideBook
      use piyo
      IMPLICIT NONE
      integer :: n
      type(rest),allocatable :: restaurant(:)
      integer :: i,len,k
      character(10) :: buffer
      
      read*,n
      allocate( restaurant(n) )
      do i = 1,n
        read*,restaurant(i)%s,restaurant(i)%p
        restaurant(i)%num = i
      end do
      
      call sortS( restaurant )
      
      
      i = 1
      do while(.true.)
        len = 0
        do k = 1,n
          if( restaurant(k)%s(1:10)==restaurant(i)%s(1:10) )then
            len = len + 1
          end if
        end do
        restaurant(i:i+len-1) = sortP( restaurant(i:i+len-1) )
        i = i+len
        
        if( i>=n )then
          exit
        end if
      end do
      
      
      
   !   print *,n
   !   do i = 1,n
   !     print*,restaurant(i)
   !   end do
      
      do i = 1,n
        print*,restaurant(i)%num
      end do
      
      END PROGRAM