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;
const long long inf = (long long)2e18;
long long p[50], sz[50], fact[51], per[51];
long long n, k;
long long get(long long x) {
  if (x < 0) return 1;
  return fact[x];
}
long long sum(long long a, long long b) {
  long long tmp = a + b;
  if (tmp > inf) return inf;
  return a + b;
}
long long mult(long long a, long long b) {
  __int128 tmp = (__int128)a * b;
  if (tmp > inf) return inf;
  return a * b;
}
void build() {
  for (long long i = 0; i < n; ++i) {
    p[i] = i;
    sz[i] = 1;
  }
}
long long root(long long v) {
  if (p[v] == v) return v;
  p[v] = root(p[v]);
  return p[v];
}
void unite(long long x, long long y) {
  x = root(x);
  y = root(y);
  if (sz[x] > sz[y]) {
    p[y] = x;
    sz[x] += sz[y];
  } else {
    p[x] = y;
    sz[y] += sz[x];
  }
}
bool gen() {
  per[n] = 1;
  for (long long i = n - 1; i >= 0; --i) {
    per[i] = 0;
    for (long long j = i + 1; j <= n; ++j) {
      per[i] = sum(per[i], mult(per[j], get(j - i - 2)));
    }
  }
  build();
  vector<long long> ans(n);
  long long pr = 0;
  long long kol = 0;
  vector<bool> u(n + 1, 0);
  for (long long c = 1; c <= n; ++c) {
    long long cur = mult(per[c], get(c - pr - 2));
    if (cur < k) {
      k -= cur;
      continue;
    }
    ans[pr] = c;
    u[c] = 1;
    ++kol;
    unite(pr, c - 1);
    for (long long j = pr + 1; j < c; ++j) {
      for (long long ch = pr + 1; ch < c; ++ch) {
        if (!u[ch] && (j + 1 == c || root(ch - 1) != root(j))) {
          long long cnt = mult(get(c - j - 2), per[c]);
          if (cnt >= k) {
            unite(ch - 1, j);
            ans[j] = ch;
            u[ch] = 1;
            ++kol;
            break;
          } else {
            k -= cnt;
          }
        }
      }
    }
    pr = c;
  }
  if (kol != n) return 0;
  for (long long i = 0; i < n; ++i) {
    cout << ans[i] << ' ';
  }
  cout << '\n';
  return 1;
}
int main() {
  ios::sync_with_stdio(0);
  cin.tie(NULL);
  cout.tie(NULL);
  cout.precision(10);
  cout << fixed;
  fact[0] = 1;
  for (long long i = 1; i <= 50; ++i) {
    fact[i] = mult(fact[i - 1], i);
  }
  long long t;
  cin >> t;
  for (long long step = 0; step < t; ++step) {
    cin >> n >> k;
    if (!gen()) {
      cout << -1 << '\n';
    }
  }
  return 0;
}