Problem:
Quick Sort

Let's arrange a deck of cards. Your task is to sort totally n cards. A card consists of a part of a suit (S, H, C or D) and an number. Write a program which sorts such cards based on the following pseudocode:

Partition(A, p, r)
1 x = A[r]
2 i = p-1
3 for j = p to r-1
4 do if A[j] <= x
5 then i = i+1
6 exchange A[i] and A[j]
7 exchange A[i+1] and A[r]
8 return i+1

Quicksort(A, p, r)
1 if p < r
2 then q = Partition(A, p, r)
3 run Quicksort(A, p, q-1)
4 run Quicksort(A, q+1, r)

Here, A is an array which represents a deck of cards and comparison operations are performed based on the numbers.

Your program should also report the stability of the output for the given input (instance). Here, 'stability of the output' means that: cards with the same value appear in the output in the same order as they do in the input (instance).

Input

The first line contains an integer n, the number of cards.

n cards are given in the following lines. Each card is given in a line and represented by a pair of a character and an integer separated by a single space.

Output

In the first line, print the stability ("Stable" or "Not stable") of this output.

In the following lines, print the arranged cards in the same manner of that of the input.

Constraints

1 ≤ n ≤ 100,000

1 ≤ the number of a card ≤ 109

There are no identical card in the input

Sample Input 1

6
D 3
H 2
D 1
S 3
D 2
C 1

Sample Output 1

Not stable
D 1
C 1
D 2
H 2
D 3
S 3

Sample Input 2

2
S 1
H 1

Sample Output 2

Stable
S 1
H 1

Solution in OCaml (judge verdict: Accepted)

type t = {
  id : int;
  ch : char;
  num : int;
}

let a = Array.make 100001 { id = 0; ch = '\000'; num = 0 }

let rec partitoin r = function
  | (i, j) when j = r ->
    let tmp = a.(i) in
    a.(i) <- a.(j);
    a.(j) <- tmp;
    i
  | (i, j) when a.(j).num <= a.(r).num ->
    let tmp = a.(i) in
    a.(i) <- a.(j);
    a.(j) <- tmp;
    partitoin r (i + 1, j + 1)
  | (i, j) ->
    partitoin r (i, j + 1)

let rec quick_sort p r =
  if p < r then begin
    let q = partitoin r (p, p) in
    quick_sort p (q - 1);
    quick_sort q r
  end

let rec stable_str n i =
  if i = n then "Stable"
  else if a.(i-1).num = a.(i).num && a.(i-1).id > a.(i).id then "Not stable"
  else stable_str n (i + 1)

let rec read i n =
  if i < n then begin
    begin match Str.split (Str.regexp " ") (read_line ()) with
    | [c; d] -> a.(i) <- { id = i; ch = c.[0]; num = int_of_string d }
    | _ -> exit 1
    end;
    read (i + 1) n
  end

let rec print i n =
  if i < n then begin
    print_char a.(i).ch;
    print_string " ";
    print_int a.(i).num;
    print_string "\n";
    print (i + 1) n
  end

let () =
  let n = read_int () in
  read 0 n;
  quick_sort 0 (n - 1);
  print_endline (stable_str n 1);
  print 0 n