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>
using namespace std;
template <class TH>
void _dbg(const char *sdbg, TH h) {
  cerr << sdbg << "=" << h << "\n";
}
template <class TH, class... TA>
void _dbg(const char *sdbg, TH h, TA... a) {
  while (*sdbg != ',') cerr << *sdbg++;
  cerr << "=" << h << ",";
  _dbg(sdbg + 1, a...);
}
const long long N = 207;
const long long LOG = 31;
long long test;
long long n, q;
vector<pair<long long, long long> > g;
long double dp[LOG][N][N];
long double ile[N];
long double ile1[N][N];
long long cou;
vector<long long> proste[N * N];
long long czy[N][N];
long double wsiebie[N];
long double wek[N];
long long ilo(pair<long long, long long> a, pair<long long, long long> b,
              pair<long long, long long> c) {
  b.first -= a.first;
  b.second -= a.second;
  c.first -= a.first;
  c.second -= a.second;
  return b.first * c.second - b.second * c.first;
}
void matrix_multi(long long x) {
  for (long long i = 0; i < (n); ++i) {
    for (long long l = 0; l < (n); ++l) {
      for (long long j = 0; j < (n); ++j) {
        dp[x][i][j] += dp[x - 1][i][l] * dp[x - 1][l][j];
      }
    }
  }
}
void dodej(long long x) {
  long double pom[N];
  for (long long i = 0; i < (n); ++i) {
    pom[i] = 0;
  }
  for (long long i = 0; i < (n); ++i) {
    for (long long j = 0; j < (n); ++j) {
      pom[i] += dp[x][i][j] * wek[j];
    }
  }
  for (long long i = 0; i < (n); ++i) {
    wek[i] = pom[i];
  }
}
void multi(long long x) {
  long long j = 0;
  while (x) {
    if (x % 2) {
      dodej(j);
    }
    x /= 2;
    j++;
  }
  return;
}
void solve() {
  cin >> n;
  for (long long i = 1; i <= (n); ++i) {
    long long x, y;
    cin >> x >> y;
    g.emplace_back(x, y);
  }
  for (long long i = 0; i < (n); ++i) {
    for (long long j = 0; j < (n); ++j) {
      if (czy[i][j] == 0 && i != j) {
        cou++;
        proste[cou].push_back(i);
        proste[cou].push_back(j);
        for (long long l = 0; l < (n); ++l) {
          if (i == j || i == l || j == l) continue;
          if (ilo(g[i], g[j], g[l]) == 0) {
            proste[cou].push_back(l);
          }
        }
        for (auto it : proste[cou]) {
          ile[it]++;
          for (auto it1 : proste[cou]) {
            czy[it][it1] = 1;
          }
        }
      }
    }
  }
  for (long long i = 0; i < (n); ++i) {
    for (long long j = 0; j < (n); ++j) {
      for (long long l = 0; l < (n); ++l) {
        if (i == j) {
          continue;
        }
        ile1[i][j] += (ilo(g[i], g[j], g[l]) == 0);
      }
    }
  }
  for (long long i = 1; i <= (cou); ++i) {
    for (auto it : proste[i]) {
      wsiebie[it] += 1.0 / (long double)proste[i].size();
    }
  }
  for (long long i = 0; i < (n); ++i) {
    for (long long j = 0; j < (n); ++j) {
      if (i == j) {
        dp[0][i][j] = 1.0 * (long double)wsiebie[i] / (long double)ile[i];
      } else {
        dp[0][i][j] = 1.0 / (long double)ile[i] / (long double)ile1[i][j];
      }
    }
  }
  for (long long i = 1; i <= (20); ++i) {
    matrix_multi(i);
  }
  cin >> q;
  for (long long i = 1; i <= (q); ++i) {
    long long a, b;
    cin >> a >> b;
    a--;
    b--;
    for (long long j = 0; j < (n); ++j) {
      wek[j] = j == a;
    }
    multi(b);
    long double res = 0;
    for (long long j = 1; j <= (cou); ++j) {
      long double xx = 0;
      for (auto it : proste[j]) {
        xx += wek[it];
      }
      res = max(res, xx / proste[j].size());
    }
    cout << res << '\n';
  }
  return;
}
int32_t main() {
  ios_base::sync_with_stdio(false);
  cin.tie(0);
  cout.tie(0);
  cout.precision(10);
  cout << fixed;
  test = 1;
  for (long long i = 1; i <= test; i++) {
    solve();
  }
  return 0;
}