Problem: When they are bored, Federico and Giada often play the following card game with a deck containing 6n cards.

Each card contains one number between 1 and 6n and each number appears on exactly one card. Initially the deck is sorted, so the first card contains the number 1, the second card contains the number 2, ..., and the last one contains the number 6n.

Federico and Giada take turns, alternating; Federico starts.

In his turn, the player takes 3 contiguous cards from the deck and puts them in his pocket. The order of the cards remaining in the deck is not changed. They play until the deck is empty (after exactly 2n turns). At the end of the game both Federico and Giada have 3n cards in their pockets.

You are given the cards in Federico's pocket at the end of the game. Describe a sequence of moves that produces that set of cards in Federico's pocket.

Input

The first line of the input contains one integer n (1≤ n ≤ 200).

The second line of the input contains 3n numbers x_1, x_2,…, x_{3n} (1 ≤ x_1 < x_2 <… < x_{3n} ≤ 6n) – the cards in Federico's pocket at the end of the game. 

It is guaranteed that for each test there is at least one sequence of moves that produces such set of cards in Federico's pocket.

Output

Print 2n lines, each containing 3 integers.

The i-th line should contain, in increasing order, the integers a_i<b_i<c_i written on the three cards taken by the player during the i-th turn (so taken by Federico if i is odd and by Giada if i is even).

If there is more than one possible sequence of moves, you can print any.

Examples

Input


2
2 3 4 9 10 11


Output


9 10 11
6 7 8
2 3 4
1 5 12


Input


5
1 2 3 4 5 9 11 12 13 18 19 20 21 22 23


Output


19 20 21
24 25 26
11 12 13
27 28 29
1 2 3
14 15 16
18 22 23
6 7 8
4 5 9
10 17 30

Note

Explanation of the first testcase: Initially the deck has 12 = 2⋅ 6 sorted cards, so the deck is [1\ 2\ 3\ 4\ 5\ 6\ 7\ 8\ 9\ 10\ 11\ 12]. 

  * During turn 1, Federico takes the three cards [9\ 10\ 11]. After his move, the deck is [1\ 2\ 3\ 4\ 5\ 6\ 7\ 8\ 12]. 
  * During turn 2, Giada takes the three cards [6\ 7\ 8]. After her move, the deck is [1\ 2\ 3\ 4\ 5\ 12]. 
  * During turn 3, Federico takes the three cards [2\ 3\ 4]. After his move, the deck is [1\ 5\ 12]. 
  * During turn 4, Giada takes the three cards [1\ 5\ 12]. After her move, the deck is empty. 

At the end of the game, the cards in Federico's pocket are [2\ 3\ 4\ 9\ 10\ 11] and the cards in Giada's pocket are [1\ 5\ 6\ 7\ 8\ 12].

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
const int max_N = 1000005;
int n, cnt, a[max_N], Stack[max_N], rx[max_N], ry[max_N], rz[max_N], K[max_N],
    rStack[max_N];
int ansx[max_N], ansy[max_N], ansz[max_N];
std::vector<int> son[max_N];
int read() {
  char c = getchar();
  int ans = 0;
  while (c < '0' || c > '9') c = getchar();
  while (c >= '0' && c <= '9') ans = ans * 10 + c - '0', c = getchar();
  return ans;
}
void Write(int x) {
  if (x < 10)
    putchar(x + '0');
  else
    Write(x / 10), putchar(x % 10 + '0');
}
int min(int x, int y) { return x < y ? x : y; }
int max(int x, int y) { return x > y ? x : y; }
struct cmp {
  bool operator()(int x, int y) { return son[x].size() < son[y].size(); }
};
std::priority_queue<int, std::vector<int>, cmp> Q[2];
int main() {
  n = read();
  for (int i = 1; i <= 3 * n; i++) a[read()] = 1;
  for (int i = 1; i <= 6 * n; i++) {
    Stack[++*Stack] = i;
    if (*Stack >= 3 && a[i] == a[Stack[*Stack - 1]] &&
        a[i] == a[Stack[*Stack - 2]]) {
      K[++cnt] = a[i], rz[cnt] = Stack[(*Stack)--], ry[cnt] = Stack[(*Stack)--],
      rx[cnt] = Stack[(*Stack)--];
      while (*rStack && rx[rStack[*rStack]] > rx[cnt])
        son[cnt].push_back(rStack[(*rStack)--]);
      rStack[++*rStack] = cnt;
    }
  }
  for (int i = 1; i <= *rStack; i++) Q[K[rStack[i]]].push(rStack[i]);
  for (int i = 2 * n; i; i--) {
    assert(!Q[i & 1].empty());
    int cur = Q[i & 1].top();
    Q[i & 1].pop();
    ansx[i] = rx[cur], ansy[i] = ry[cur], ansz[i] = rz[cur];
    for (auto j : son[cur]) Q[K[j]].push(j);
  }
  for (int i = 1; i <= 2 * n; i++)
    Write(ansx[i]), putchar(' '), Write(ansy[i]), putchar(' '), Write(ansz[i]),
        putchar('\n');
  return 0;
}