Problem: Yeah, we failed to make up a New Year legend for this problem.

A permutation of length n is an array of n integers such that every integer from 1 to n appears in it exactly once. 

An element y of permutation p is reachable from element x if x = y, or p_x = y, or p_{p_x} = y, and so on. 

The decomposition of a permutation p is defined as follows: firstly, we have a permutation p, all elements of which are not marked, and an empty list l. Then we do the following: while there is at least one not marked element in p, we find the leftmost such element, list all elements that are reachable from it in the order they appear in p, mark all of these elements, then cyclically shift the list of those elements so that the maximum appears at the first position, and add this list as an element of l. After all elements are marked, l is the result of this decomposition.

For example, if we want to build a decomposition of p = [5, 4, 2, 3, 1, 7, 8, 6], we do the following:

  1. initially p = [5, 4, 2, 3, 1, 7, 8, 6] (bold elements are marked), l = []; 
  2. the leftmost unmarked element is 5; 5 and 1 are reachable from it, so the list we want to shift is [5, 1]; there is no need to shift it, since maximum is already the first element; 
  3. p = [5, 4, 2, 3, 1, 7, 8, 6], l = [[5, 1]]; 
  4. the leftmost unmarked element is 4, the list of reachable elements is [4, 2, 3]; the maximum is already the first element, so there's no need to shift it; 
  5. p = [5, 4, 2, 3, 1, 7, 8, 6], l = [[5, 1], [4, 2, 3]]; 
  6. the leftmost unmarked element is 7, the list of reachable elements is [7, 8, 6]; we have to shift it, so it becomes [8, 6, 7]; 
  7. p = [5, 4, 2, 3, 1, 7, 8, 6], l = [[5, 1], [4, 2, 3], [8, 6, 7]]; 
  8. all elements are marked, so [[5, 1], [4, 2, 3], [8, 6, 7]] is the result. 



The New Year transformation of a permutation is defined as follows: we build the decomposition of this permutation; then we sort all lists in decomposition in ascending order of the first elements (we don't swap the elements in these lists, only the lists themselves); then we concatenate the lists into one list which becomes a new permutation. For example, the New Year transformation of p = [5, 4, 2, 3, 1, 7, 8, 6] is built as follows:

  1. the decomposition is [[5, 1], [4, 2, 3], [8, 6, 7]]; 
  2. after sorting the decomposition, it becomes [[4, 2, 3], [5, 1], [8, 6, 7]]; 
  3. [4, 2, 3, 5, 1, 8, 6, 7] is the result of the transformation. 



We call a permutation good if the result of its transformation is the same as the permutation itself. For example, [4, 3, 1, 2, 8, 5, 6, 7] is a good permutation; and [5, 4, 2, 3, 1, 7, 8, 6] is bad, since the result of transformation is [4, 2, 3, 5, 1, 8, 6, 7].

Your task is the following: given n and k, find the k-th (lexicographically) good permutation of length n.

Input

The first line contains one integer t (1 ≤ t ≤ 1000) — the number of test cases.

Then the test cases follow. Each test case is represented by one line containing two integers n and k (1 ≤ n ≤ 50, 1 ≤ k ≤ 10^{18}).

Output

For each test case, print the answer to it as follows: if the number of good permutations of length n is less than k, print one integer -1; otherwise, print the k-th good permutation on n elements (in lexicographical order).

Example

Input


5
3 3
5 15
4 13
6 8
4 2


Output


2 1 3 
3 1 2 5 4 
-1
1 2 6 3 4 5 
1 2 4 3 

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
template <typename T>
void chkmax(T &x, T y) {
  x = x > y ? x : y;
}
template <typename T>
void chkmin(T &x, T y) {
  x = x < y ? x : y;
}
template <typename T>
void read(T &x) {
  x = 0;
  int f = 1;
  char c = getchar();
  while (!isdigit(c)) {
    if (c == '-') f = -1;
    c = getchar();
  }
  while (isdigit(c)) x = x * 10 + c - '0', c = getchar();
  x *= f;
}
const int N = 110;
const long double eps = 1e-12l;
int p[N];
int Find(int x) { return p[x] == x ? p[x] : p[x] = Find(p[x]); }
void solve() {
  int n, cur = 1;
  long long k;
  read(n), read(k);
  long long lim = k + 1e18;
  static long long f[N], ans[N], cir[N], fac[N];
  auto mul = [&](long long x, long long y) {
    return (long double)x * y > lim ? lim : x * y;
  };
  auto Init = [&]() {
    f[0] = f[1] = fac[0] = fac[1] = 1;
    for (int i = 2; i <= n; i++) fac[i] = mul(fac[i - 1], i);
    for (int i = 1; i <= n; i++) cir[i] = fac[max(0, i - 2)];
    for (int i = 2; i <= n; i++) {
      f[i] = f[i - 1];
      for (int j = 2; j <= i; j++)
        f[i] += mul(f[i - j], cir[j]), chkmin(f[i], lim);
    }
  };
  auto merge = [&](int x, int y) { p[Find(x)] = Find(y); };
  auto work = [&](int s, int len, long long k) {
    for (int i = 1; i <= len; i++) p[i] = i;
    set<int> q;
    int res = len - 1;
    static int a[N];
    for (int i = 1; i <= len; i++) {
      if (i == 1) {
        a[i] = len, merge(1, len), q.insert(len);
        continue;
      }
      for (int j = 1; j <= len; j++) {
        int tx = Find(i), ty = Find(j);
        if (!q.count(j) && (tx != ty || i == len)) {
          if (k <= cir[res]) {
            res--, a[i] = j, q.insert(j), merge(i, j);
            break;
          }
          k -= cir[res];
        }
      }
    }
    for (int i = 1; i <= len; i++) ans[s + i - 1] = a[i] + s - 1;
  };
  Init();
  int x = 1;
  if (k > f[n]) return cout << "-1\n", void();
  while (x <= n)
    for (int i = x; i <= n; i++) {
      long long tmp = mul(f[n - i], cir[i - x + 1]);
      if (k <= tmp) {
        long long tx = k / f[n - i] + (k % f[n - i] > 0);
        work(x, i - x + 1, tx), x = i + 1;
        k -= (tx - 1) * f[n - i];
        break;
      }
      k -= tmp;
    }
  for (int i = 1; i <= n; i++) cout << ans[i] << ' ';
  cout << '\n';
}
int main() {
  int T;
  read(T);
  while (T--) solve();
  return 0;
}