Problem: The cool breeze blows gently, the flowing water ripples steadily.

"Flowing and passing like this, the water isn't gone ultimately; Waxing and waning like that, the moon doesn't shrink or grow eventually."

"Everything is transient in a way and perennial in another."

Kanno doesn't seem to make much sense out of Mino's isolated words, but maybe it's time that they enjoy the gentle breeze and the night sky — the inexhaustible gifts from nature.

Gazing into the sky of stars, Kanno indulges in a night's tranquil dreams. 

There is a set S of n points on a coordinate plane.

Kanno starts from a point P that can be chosen on the plane. P is not added to S if it doesn't belong to S. Then the following sequence of operations (altogether called a move) is repeated several times, in the given order:

  1. Choose a line l such that it passes through at least two elements in S and passes through Kanno's current position. If there are multiple such lines, one is chosen equiprobably. 
  2. Move to one of the points that belong to S and lie on l. The destination is chosen equiprobably among all possible ones, including Kanno's current position (if it does belong to S). 



There are q queries each consisting of two integers (t_i, m_i). For each query, you're to help Kanno maximize the probability of the stopping position being the t_i-th element in S after m_i moves with a proper selection of P, and output this maximum probability. Note that according to rule 1, P should belong to at least one line that passes through at least two points from S.

Input

The first line contains a positive integer n (2 ≤ n ≤ 200) — the number of points in S.

The i-th of the following n lines contains two space-separated integers x_i and y_i (-10^4 ≤ x_i, y_i ≤ 10^4) — the coordinates of the i-th point in S. The input guarantees that for all 1 ≤ i < j ≤ n, (x_i, y_i) ≠ (x_j, y_j) holds.

The next line contains a positive integer q (1 ≤ q ≤ 200) — the number of queries.

Each of the following q lines contains two space-separated integers t and m (1 ≤ t_i ≤ n, 1 ≤ m_i ≤ 10^4) — the index of the target point and the number of moves, respectively.

Output

Output q lines each containing a decimal number — the i-th among them denotes the maximum probability of staying on the t_i-th point after m_i steps, with a proper choice of starting position P.

Your answer will be considered correct if each number in your output differs from the corresponding one in jury's answer by at most 10^{-6}.

Formally, let your answer be a, and the jury's answer be b. Your answer is considered correct if |a - b| ≤ 10^{-6}.

Example

Input

5
0 0
1 3
2 2
3 1
4 4
10
1 1
2 1
3 1
4 1
5 1
3 2
3 3
3 4
3 5
3 6


Output

0.50000000000000000000
0.50000000000000000000
0.33333333333333331483
0.50000000000000000000
0.50000000000000000000
0.18518518518518517491
0.15226337448559670862
0.14494741655235482414
0.14332164812274550414
0.14296036624949901017

Note

The points in S and possible candidates for line l are depicted in the following figure.

<image>

For the first query, when P = (-1, -3), l is uniquely determined to be 3x = y, and thus Kanno will move to (0, 0) with a probability of \frac 1 2.

For the third query, when P = (2, 2), l is chosen equiprobably between x + y = 4 and x = y. Kanno will then move to the other four points with a probability of \frac 1 2 ⋅ \frac 1 3 = \frac 1 6 each, or stay at (2, 2) with a probability of \frac 1 3.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
#pragma GCC optimize(2)
using namespace std;
inline int qpow(int a, int b, const int mod, int ans = 1) {
  for (a %= mod; b; b >>= 1, a = 1ll * a * a % mod)
    if (b & 1) ans = 1ll * ans * a % mod;
  return ans;
}
inline int read(register int a = 0, register int b = 1,
                register char ch = getchar()) {
  while (ch < '0' || ch > '9') b = ch == '-' ? -1 : 1, ch = getchar();
  while (ch >= '0' && ch <= '9')
    a = (a << 3) + (a << 1) + (ch ^ 48), ch = getchar();
  return a * b;
}
int x[210], y[210], v[202], num[202][202];
const double eps = 1e-9;
inline char in(const int t, const int i, const int j) {
  if (t == j) return 1;
  if (x[i] == x[j] || x[i] == x[t] || x[j] == x[t])
    return x[i] == x[j] && x[i] == x[t];
  double k1 = 1.0 * (y[i] - y[t]) / (x[i] - x[t]),
         k2 = 1.0 * (y[j] - y[t]) / (x[j] - x[t]);
  return fabs(k1 - k2) < eps;
}
double b[14][202][202], a[202], c[202];
int has[40001][201], L;
bitset<201> vv[202];
int main() {
  const int n = read();
  for (int i = 1; i <= n; i++) x[i] = read(), y[i] = read();
  for (int i = 1; i <= n; i++) {
    int N = 0;
    for (int j = 1; j <= n; j++)
      if (i != j && v[j] != i) {
        num[++N][0] = 0;
        for (int k = 1; k <= n; k++)
          if (k != i && in(k, i, j)) num[N][++num[N][0]] = k, v[k] = i;
        if (!vv[i][j]) {
          ++L;
          has[L][++has[L][0]] = i;
          bitset<201> tmp;
          tmp.reset();
          tmp[i] = 1;
          for (int k = num[N][0]; k; k--)
            has[L][++has[L][0]] = num[N][k], tmp[num[N][k]] = 1;
          vv[i] |= tmp;
          for (int k = num[N][0]; k; k--) vv[num[N][k]] |= tmp;
        }
      }
    for (int j = 1; j <= N; j++) {
      double tmp = 1.0 / (num[j][0] + 1) / N;
      b[0][i][i] += tmp;
      for (int k = 1; k <= num[j][0]; k++) b[0][num[j][k]][i] = tmp;
    }
  }
  for (int t = 1; t < 14; t++)
    for (int i = 1; i <= n; i++)
      for (int j = 1; j <= n; j++)
        for (int k = 1; k <= n; k++)
          b[t][i][j] += b[t - 1][i][k] * b[t - 1][k][j];
  int q = read();
  while (q--) {
    const int t = read(), m = read() - 1;
    a[t] = 1;
    for (int i = 0; i < 14; i++)
      if ((m >> i) & 1) {
        for (int j = 1; j <= n; j++)
          for (int k = 1; k <= n; k++) c[j] += a[k] * b[i][k][j];
        for (int j = 1; j <= n; j++) a[j] = c[j], c[j] = 0;
      }
    double ans = 0;
    for (int i = 1; i <= L; i++) {
      double tmp = 0;
      for (int j = has[i][0]; j; j--) tmp += a[has[i][j]];
      ans = max(ans, tmp / has[i][0]);
    }
    for (int j = 1; j <= n; j++)
      for (int k = 1; k <= n; k++) c[j] += a[k] * b[0][k][j];
    for (int j = 1; j <= n; j++) a[j] = c[j], c[j] = 0;
    for (int i = 1; i <= n; i++) ans = max(ans, a[i]), a[i] = 0;
    printf("%.10lf\n", ans);
  }
}