Problem: This is an interactive problem.

Khanh has n points on the Cartesian plane, denoted by a_1, a_2, …, a_n. All points' coordinates are integers between -10^9 and 10^9, inclusive. No three points are collinear. He says that these points are vertices of a convex polygon; in other words, there exists a permutation p_1, p_2, …, p_n of integers from 1 to n such that the polygon a_{p_1} a_{p_2} … a_{p_n} is convex and vertices are listed in counter-clockwise order.

Khanh gives you the number n, but hides the coordinates of his points. Your task is to guess the above permutation by asking multiple queries. In each query, you give Khanh 4 integers t, i, j, k; where either t = 1 or t = 2; and i, j, k are three distinct indices from 1 to n, inclusive. In response, Khanh tells you:

  * if t = 1, the area of the triangle a_ia_ja_k multiplied by 2. 
  * if t = 2, the sign of the cross product of two vectors \overrightarrow{a_ia_j} and \overrightarrow{a_ia_k}. 



Recall that the cross product of vector \overrightarrow{a} = (x_a, y_a) and vector \overrightarrow{b} = (x_b, y_b) is the integer x_a ⋅ y_b - x_b ⋅ y_a. The sign of a number is 1 it it is positive, and -1 otherwise. It can be proven that the cross product obtained in the above queries can not be 0.

You can ask at most 3 ⋅ n queries.

Please note that Khanh fixes the coordinates of his points and does not change it while answering your queries. You do not need to guess the coordinates. In your permutation a_{p_1}a_{p_2}… a_{p_n}, p_1 should be equal to 1 and the indices of vertices should be listed in counter-clockwise order.

Interaction

You start the interaction by reading n (3 ≤ n ≤ 1 000) — the number of vertices.

To ask a query, write 4 integers t, i, j, k (1 ≤ t ≤ 2, 1 ≤ i, j, k ≤ n) in a separate line. i, j and k should be distinct.

Then read a single integer to get the answer to this query, as explained above. It can be proven that the answer of a query is always an integer.

When you find the permutation, write a number 0. Then write n integers p_1, p_2, …, p_n in the same line.

After printing a query do not forget to output end of line and flush the output. Otherwise, you will get Idleness limit exceeded. To do this, use:

  * fflush(stdout) or cout.flush() in C++;
  * System.out.flush() in Java;
  * flush(output) in Pascal;
  * stdout.flush() in Python;
  * see documentation for other languages.



Hack format

To hack, use the following format:

The first line contains an integer n (3 ≤ n ≤ 1 000) — the number of vertices.

The i-th of the next n lines contains two integers x_i and y_i (-10^9 ≤ x_i, y_i ≤ 10^9) — the coordinate of the point a_i.

Example

Input


6

15

-1

1

Output


1 1 4 6

2 1 5 6

2 2 1 4

0 1 3 4 2 6 5

Note

The image below shows the hidden polygon in the example:

<image>

The interaction in the example goes as below: 

  * Contestant reads n = 6. 
  * Contestant asks a query with t = 1, i = 1, j = 4, k = 6. 
  * Jury answers 15. The area of the triangle A_1A_4A_6 is 7.5. Note that the answer is two times the area of the triangle. 
  * Contestant asks a query with t = 2, i = 1, j = 5, k = 6. 
  * Jury answers -1. The cross product of \overrightarrow{A_1A_5} = (2, 2) and \overrightarrow{A_1A_6} = (4, 1) is -2. The sign of -2 is -1. 
  * Contestant asks a query with t = 2, i = 2, j = 1, k = 4. 
  * Jury answers 1. The cross product of \overrightarrow{A_2A_1} = (-5, 2) and \overrightarrow{A_2A_4} = (-2, -1) is 1. The sign of 1 is 1. 
  * Contestant says that the permutation is (1, 3, 4, 2, 6, 5). 

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const long long N = 1004;
pair<long long, long long> a[N];
long long testing, n, per[N], arr[N];
void sample_test() {
  cin >> n;
  for (long long i = 1; i <= (long long)n; ++i)
    cin >> a[i].first >> a[i].second;
}
void Answer() {
  cout << 0 << " ";
  for (long long i = 1; i <= (long long)n; ++i) cout << per[i] << " ";
  cout << '\n';
  cout.flush();
}
long long Ask(long long t, long long i, long long j, long long k) {
  cout << t << " " << i << " " << j << " " << k << '\n';
  cout.flush();
  if (testing) {
    if (t == 1) {
      long long tmp = (a[j].first - a[i].first) * (a[k].second - a[i].second);
      tmp -= (a[k].first - a[i].first) * (a[j].second - a[i].second);
      cout << abs(tmp) << "\n\n";
      return abs(tmp);
    } else {
      pair<long long, long long> A = pair<long long, long long>(
          a[j].first - a[i].first, a[j].second - a[i].second);
      pair<long long, long long> B = pair<long long, long long>(
          a[k].first - a[i].first, a[k].second - a[i].second);
      long long ans = (A.first * B.second - A.second * B.first < 0) ? -1 : 1;
      cout << ans << "\n\n";
      return (ans == -1) ? 1 : 0;
    }
    assert(-1 == 0);
  }
  long long inp;
  cin >> inp;
  if (t == 2)
    return (inp == -1) ? 1 : 0;
  else
    return inp;
}
vector<pair<long long, long long> > V[2], ls[2];
void calc(long long id) {
  if (V[id].empty()) return;
  for (long long cc = 0; cc <= (long long)1; ++cc) ls[cc].clear();
  sort(V[id].begin(), V[id].end());
  long long highest = V[id].back().second;
  for (pair<long long, long long> foo : V[id]) {
    long long u = 1, v = highest, w = foo.second;
    if (v == w) continue;
    long long sign = Ask(2, u, v, w);
    ls[sign].push_back(foo);
  }
  sort(ls[0].begin(), ls[0].end(),
       [](pair<long long, long long> u, pair<long long, long long> v) {
         return u.first > v.first;
       });
  sort(ls[1].begin(), ls[1].end(),
       [](pair<long long, long long> u, pair<long long, long long> v) {
         return u.first < v.first;
       });
  V[id].clear();
  for (pair<long long, long long> foo : ls[1])
    V[id].push_back(pair<long long, long long>(-1, foo.second));
  V[id].push_back(pair<long long, long long>(-1, highest));
  for (pair<long long, long long> foo : ls[0])
    V[id].push_back(pair<long long, long long>(-1, foo.second));
}
void sol() {
  long long i = 1, j = 2;
  for (long long k = 3; k <= (long long)n; ++k) {
    long long area = Ask(1, i, j, k), sign = Ask(2, i, j, k);
    V[sign].push_back(pair<long long, long long>(area, k));
  }
  calc(0);
  calc(1);
  long long num = 0;
  per[++num] = 1;
  for (pair<long long, long long> foo : V[1]) per[++num] = foo.second;
  per[++num] = 2;
  for (pair<long long, long long> foo : V[0]) per[++num] = foo.second;
  Answer();
}
int main() {
  ios::sync_with_stdio(0);
  cin.tie(0);
  cout.tie(0);
  if (fopen("input.txt", "r")) {
    freopen("input.txt", "r", stdin);
    freopen("output.txt", "w", stdout);
    testing = true;
    sample_test();
  }
  if (!testing) cin >> n;
  sol();
  return 0;
}