Problem: Vasily the bear has got a large square white table of n rows and n columns. The table has got a black border around this table.

<image> The example of the initial table at n = 5.

Vasily the bear wants to paint his square table in exactly k moves. Each move is sequence of actions:

  1. The bear chooses some square inside his table. At that the square must have a black border painted around it. Also, the square shouldn't contain a black cell. The number of cells in the square shouldn't be less than 2. 
  2. The bear chooses some row and some column inside the chosen square. Then he paints each cell of this row and this column inside the chosen square. After that the rectangles, formed by the square's border and the newly painted cells, must be squares of a non-zero area. 

<image> An example of correct painting at n = 7 и k = 2.

The bear already knows numbers n and k. Help him — find the number of ways to paint the square in exactly k moves. Two ways to paint are called distinct if the resulting tables will differ in at least one cell. As the answer can be rather large, print the remainder after dividing it by 7340033.

Input

The first line contains integer q (1 ≤ q ≤ 105) — the number of test data.

Each of the following q lines contains two integers n and k (1 ≤ n ≤ 109, 0 ≤ k ≤ 1000) — the size of the initial table and the number of moves for the corresponding test.

Output

For each test from the input print the answer to the problem modulo 7340033. Print the answers to the tests in the order in which the tests are given in the input.

Examples

Input

8
1 0
1 1
3 0
3 1
2 0
2 1
3 2
7 2


Output

1
0
1
1
1
0
0
4

Note

All possible painting ways for the test n = 7 and k = 2 are:

<image>

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using int64 = long long;
using uchar = unsigned char;
constexpr int maxk(1000);
constexpr int mxdg(4096);
constexpr int p(7340033);
constexpr int proot(3);
namespace math_template {
template <class _Tp>
inline void swap(_Tp &x, _Tp &y) {
  _Tp z = x;
  x = y;
  y = z;
}
template <class _Tp>
inline int fpow(_Tp v, int n) {
  int pw = 1;
  for (; n; n >>= 1, v = (int64)v * v % p)
    if (n & 1) pw = (int64)pw * v % p;
  return pw;
}
template <class x_tp, class y_tp>
inline void inc(x_tp &x, const y_tp &y) {
  (p - y <= x) ? (x += y - p) : (x += y);
}
template <class x_tp, class y_tp>
inline void dec(x_tp &x, const y_tp &y) {
  x -= y;
  (x < 0) && (x += p);
}
template <class x_tp, class y_tp>
inline x_tp pls(const x_tp &x, const y_tp &y) {
  return (x < p - y) ? (x + y) : (x - p + y);
}
template <class x_tp, class y_tp>
inline x_tp sub(const x_tp &x, const y_tp &y) {
  return (x < y) ? (x - y + p) : (x - y);
}
template <class _Tp>
inline int sqr(const _Tp &v) {
  return (int64)v * v % p;
}
}  // namespace math_template
namespace IOManager {
constexpr int FILESZ(131072);
char buf[FILESZ];
const char *ibuf(buf), *tbuf(buf);
struct IOManager {
  inline char gc() {
    return (ibuf == tbuf) &&
                   (tbuf = (ibuf = buf) + fread(buf, 1, FILESZ, stdin),
                    ibuf == tbuf)
               ? EOF
               : *ibuf++;
  }
  template <class _Tp>
  inline operator _Tp() {
    _Tp s = 0;
    char c = gc();
    for (; c < 48; c = gc())
      ;
    for (; 47 < c; c = gc()) s = s * 10 + c - 48;
    return s;
  }
};
}  // namespace IOManager
IOManager::IOManager io;
namespace poly {
using namespace math_template;
using poly_t = int[mxdg];
using poly = int *const;
inline int calcpw2(const int &n) {
  int t = 1;
  for (; t < n; t <<= 1)
    ;
  return t;
}
int wn[mxdg], iwn[mxdg];
inline void polyinit() {
  const int wnv = fpow(proot, (p - 1) / mxdg);
  const int iwnv = fpow(wnv, p - 2);
  wn[0] = iwn[0] = 1;
  for (int i = 1, v = 1, iv = 1; i != mxdg; ++i) {
    v = (int64)v * wnv % p;
    wn[i] = v;
    iv = (int64)iv * iwnv % p;
    iwn[i] = iv;
  }
}
void DFT(poly &A, const int &deg) {
  for (int i = 0, j = 0; i != deg; ++i) {
    if (i < j) swap(A[i], A[j]);
    for (int k = deg >> 1; (j ^= k) < k; k >>= 1)
      ;
  }
  int *const td = A + deg;
  for (int l = 1, tp = mxdg >> 1; l != deg; l += l, tp >>= 1)
    for (int *i = A, z; i < td; i += l + l)
      for (int j = 0, *w = wn; j != l; ++j, w += tp)
        z = (int64)i[j + l] * *w % p, i[j + l] = sub(i[j], z), inc(i[j], z);
}
void IDFT(poly &A, const int &deg) {
  for (int i = 0, j = 0; i != deg; ++i) {
    if (i < j) swap(A[i], A[j]);
    for (int k = deg >> 1; (j ^= k) < k; k >>= 1)
      ;
  }
  int *const td = A + deg;
  for (int l = 1, tp = mxdg >> 1; l != deg; l += l, tp >>= 1)
    for (int *i = A, z; i < td; i += l + l)
      for (int j = 0, *w = iwn; j != l; ++j, w += tp)
        z = (int64)i[j + l] * *w % p, i[j + l] = sub(i[j], z), inc(i[j], z);
  const int invdeg = fpow(deg, p - 2);
  for (int i = 0; i != deg; ++i) A[i] = (int64)A[i] * invdeg % p;
}
}  // namespace poly
using namespace poly;
poly_t ans[31];
int pool[maxk * 10];
int main() {
  polyinit();
  ans[0][0] = 1;
  for (int t = 1, *f = pool + maxk; t != 31; ++t, --f) {
    f[0] = 1;
    DFT(f, mxdg);
    for (int i = 0; i != mxdg; ++i) f[i] = sqr(sqr(f[i]));
    IDFT(f, mxdg);
    ans[t][0] = 1;
    std::copy(f, f + maxk, ans[t] + 1);
    std::fill(f + maxk - 1, f + mxdg, 0);
  }
  for (int q = io; q; --q) {
    int n = io, b = 0;
    for (; n != 1 && (n & 1); n >>= 1, ++b)
      ;
    printf("%d\n", ans[b][(int)io]);
  }
  return 0;
}