Problem: Mister B has a house in the middle of a giant plain field, which attracted aliens life. For convenience, aliens specified the Cartesian coordinate system on the field in such a way that Mister B's house has coordinates (0, 0). After that they sent three beacons to the field, but something went wrong. One beacon was completely destroyed, while the other two landed in positions with coordinates (m, 0) and (0, n), respectively, but shut down.

Mister B was interested in this devices, so he decided to take them home. He came to the first beacon, placed at (m, 0), lifted it up and carried the beacon home choosing the shortest path. After that he came to the other beacon, placed at (0, n), and also carried it home choosing the shortest path. When first beacon was lifted up, the navigation system of the beacons was activated.

Partially destroyed navigation system started to work in following way.

At time moments when both survived beacons are at points with integer coordinates the system tries to find a location for the third beacon. It succeeds if and only if there is a point with integer coordinates such that the area of the triangle formed by the two survived beacons and this point is equal to s. In this case the system sends a packet of information with beacon positions to aliens, otherwise it doesn't.

Compute how many packets of information system sent while Mister B was moving the beacons.

Input

The first line contains one integer t (1 ≤ t ≤ 1000) — the number of test cases. The next 3·t lines describe t test cases. 

Every test case is described in three lines as follows. Note that each parameter is given as a product of three factors.

The first line of a test case contains three space-separated integers: n1, n2, n3 (1 ≤ ni ≤ 106) such that n = n1·n2·n3.

The second line contains three space-separated integers: m1, m2, m3 (1 ≤ mi ≤ 106) such that m = m1·m2·m3.

The third line contains three space-separated integers: s1, s2, s3 (1 ≤ si ≤ 106) such that s = s1·s2·s3.

Note that for hacks only tests with t = 1 allowed.

Output

Print t integers one per line — the answers for each test.

Example

Input

3
2 1 1
2 1 1
1 1 3
1 5 1
2 2 1
1 1 2
10 6 18
2 103 2
13 1 13


Output

4
7
171

Note

First test case contains the following beacon positions: (2, 0) and (0, 2), s = 3. The following packets could be sent: ((2, 0), (0, 2), ( - 1, 0)), ((1, 0), (0, 2), (4, 0)), ((0, 0), (0, 2), (3, 1)), ((0, 0), (0, 1), ( - 6, 0)), where (b1, b2, p) has next description: b1 — first beacon position, b2 — second beacon position, p — some generated point.

Second test case contains the following beacon initial positions: (4, 0) and (0, 5), s = 2. The following packets could be sent: ((4, 0), (0, 5), (0, 4)), ((3, 0), (0, 5), (2, 3)), ((2, 0), (0, 5), (2, 2)), ((1, 0), (0, 5), (1, 4)), ((0, 0), (0, 4), (0, - 1)), ((0, 0), (0, 2), (2, 0)), ((0, 0), (0, 1), (4, 0)).

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
namespace IO {
const int maxin = 1000000;
const int maxout = 1000000;
char _Input[maxin + 10], *_beg, *_end;
char _Output[maxout], *_pointer = _Output;
inline void init() {
  int _ = fread(_Input, 1, maxin, stdin);
  _Input[_] = '\0';
  _beg = _Input, _end = _Input + _;
}
inline void Getchar() {
  if (++_beg == _end) {
    int _ = fread(_Input, 1, maxin, stdin);
    _Input[_] = '\0';
    _beg = _Input, _end = _Input + _;
  }
}
template <typename Type>
inline Type read() {
  Type x = 0, f = 1;
  while (!isdigit(*_beg)) {
    if (*_beg == '-') f = -1;
    Getchar();
  }
  while (isdigit(*_beg)) {
    x = x * 10 + *_beg - '0';
    Getchar();
  }
  return x * f;
}
template <typename Type>
inline void Write(Type x, char ln = '\n') {
  static Type owo[54], qwq = 0;
  if (x < 0) x = -x, *_pointer++ = '-';
  do owo[++qwq] = x % 10;
  while (x /= 10);
  while (qwq) *_pointer++ = '0' + owo[qwq--];
  *_pointer++ = ln;
}
inline int gets(char *s) {
  char *t = s;
  while (isspace(*_beg)) Getchar();
  do *s++ = *_beg;
  while (Getchar(), !isspace(*_beg));
  return s - t;
}
inline void puts(const char *s, char ln = '\n') {
  while (*s) *_pointer++ = *s++;
  *_pointer++ = ln;
}
inline void output() {
  fwrite(_Output, _pointer - _Output, 1, stdout);
  _pointer = _Output;
}
}  // namespace IO
const int maxn = 1000000 + 10;
const int maxm = 54;
long long N, M, S, num;
long long ans;
int prime[maxn], cnt;
bool vis[maxn];
int mindiv[maxn];
int sta[maxm], topa;
int tota[maxm];
int stb[maxm], topb;
int totb[maxm];
long long fac[maxm];
int tail;
inline long long power(long long a, int b) {
  long long res = 1;
  for (; b; a *= a, b >>= 1)
    if (b & 1) res *= a;
  return res;
}
inline void BANKAI() {
  for (int i = 2; i < maxn; i++) {
    if (!vis[i]) {
      prime[++cnt] = i;
      mindiv[i] = i;
    }
    for (int j = 1, k; (k = prime[j] * i) < maxn; j++) {
      vis[k] = 1;
      mindiv[k] = prime[j];
      if (i % prime[j] == 0) break;
    }
  }
}
inline void dfs(int u, long long pro = 1) {
  if (u > topa) return (void)(ans += pro <= N);
  long long base = 1;
  for (int i = 0; i <= tota[u]; i++) {
    if (num / base < pro) return;
    dfs(u + 1, pro * base);
    base *= sta[u];
  }
}
inline void dfs2(int u, int cnt, long long pro) {
  if (u > tail) return (void)(ans += cnt & 1 ? -M / pro : M / pro);
  dfs2(u + 1, cnt + 1, pro * fac[u]);
  dfs2(u + 1, cnt, pro);
}
map<int, int> owo;
inline void factorization(int n) {
  while (n != 1) {
    int x = mindiv[n];
    while (n % x == 0) {
      owo[x]++;
      n /= x;
    }
  }
}
inline void init() {
  ans = 0;
  int n1 = IO::read<int>(), n2 = IO::read<int>(), n3 = IO::read<int>();
  int m1 = IO::read<int>(), m2 = IO::read<int>(), m3 = IO::read<int>();
  int s1 = IO::read<int>(), s2 = IO::read<int>(), s3 = IO::read<int>();
  N = (long long)n1 * n2 * n3;
  M = (long long)m1 * m2 * m3;
  S = (long long)s1 * s2 * s3;
  num = S << 1;
  topa = topb = 0;
  owo.clear();
  factorization(s1);
  factorization(s2);
  factorization(s3);
  owo[2]++;
  for (map<int, int>::iterator SB = owo.begin(); SB != owo.end(); SB++) {
    sta[++topa] = SB->first;
    tota[topa] = SB->second;
  }
  owo.clear();
  factorization(n1);
  factorization(n2);
  factorization(n3);
  for (map<int, int>::iterator SB = owo.begin(); SB != owo.end(); SB++) {
    stb[++topb] = SB->first;
    totb[topb] = SB->second;
  }
}
inline void exec() {
  dfs(1);
  tail = 0;
  int pi = 1, pj = 1;
  for (; pi <= topa && pj <= topb;) {
    if (sta[pi] == stb[pj]) {
      if (tota[pi] < totb[pj]) fac[++tail] = power(sta[pi], tota[pi] + 1);
      pi++, pj++;
      continue;
    }
    if (sta[pi] < stb[pj]) {
      pi++;
      continue;
    }
    fac[++tail] = stb[pj++];
  }
  while (pj <= topb) fac[++tail] = stb[pj++];
  dfs2(1, 0, 1);
  IO::Write(ans);
}
int main() {
  if (fopen("819C.in", "r") != NULL) {
    freopen("819C.in", "r", stdin);
    freopen("819C.out", "w", stdout);
  }
  IO::init();
  BANKAI();
  int T = IO::read<int>();
  while (T--) {
    init();
    exec();
  }
  IO::output();
  return 0;
}