Problem: Gerald got tired of playing board games with the usual six-sided die, and he bought a toy called Randomizer. It functions as follows.

A Randomizer has its own coordinate plane on which a strictly convex polygon is painted, the polygon is called a basic polygon. If you shake a Randomizer, it draws some nondegenerate (i.e. having a non-zero area) convex polygon with vertices at some vertices of the basic polygon. The result of the roll (more precisely, the result of the shaking) is considered to be the number of points with integer coordinates, which were strictly inside (the points on the border are not considered) the selected polygon. Now Gerald is wondering: what is the expected result of shaking the Randomizer?

During the shaking the Randomizer considers all the possible non-degenerate convex polygons with vertices at the vertices of the basic polygon. Let's assume that there are k versions of the polygons. Then the Randomizer chooses each of them with probability <image>.

Input

The first line of the input contains a single integer n (3 ≤ n ≤ 100 000) — the number of vertices of the basic polygon. 

Next n lines contain the coordinates of the vertices of the basic polygon. The i-th of these lines contain two integers xi and yi ( - 109 ≤ xi, yi ≤ 109) — the coordinates of the i-th vertex of the polygon. The vertices are given in the counter-clockwise order.

Output

Print the sought expected value with absolute or relative error at most 10 - 9.

Examples

Input

4
0 0
2 0
2 2
0 2


Output

0.2


Input

5
0 0
2 0
2 2
1 3
0 2


Output

0.8125

Note

A polygon is called strictly convex if it is convex and no its vertices lie on the same line.

Let's assume that a random variable takes values x1, ..., xn with probabilities p1, ..., pn, correspondingly. Then the expected value of this variable equals to <image>.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int MAXN = 100010;
int x[MAXN], y[MAXN];
pair<long long, long long> xy[MAXN];
const int MAXK = 60;
double pr[MAXK];
int n;
int gcd(int a, int b) {
  int tmp;
  while (b) {
    a %= b;
    tmp = a;
    a = b;
    b = tmp;
  }
  return a;
}
int linecnt(int i, int j) { return gcd(abs(x[i] - x[j]), abs(y[i] - y[j])); }
long long cross(pair<long long, long long> p, pair<long long, long long> q) {
  return p.first * q.second - p.second * q.first;
}
long long area2(pair<long long, long long> a, pair<long long, long long> b,
                pair<long long, long long> c) {
  return cross(a, b) + cross(b, c) + cross(c, a);
}
int main() {
  scanf("%d", &n);
  for (int i = 0; i < (int)(n); i++) {
    scanf("%d%d", &x[i], &y[i]);
    xy[i] = make_pair(1LL * x[i], 1LL * y[i]);
  }
  for (int k = 0; k < (int)(MAXK); k++) {
    if (n > 500) {
      pr[k] = 1.0 / pow(2, k + 1);
    } else {
      pr[k] =
          (pow(2, n - k - 1) - 1.0) / (pow(2, n) - 1.0 - n - 0.5 * n * (n - 1));
    }
  }
  double e = 0.0;
  for (int i = 0; i < (int)(n); i++) {
    long long excl = 0;
    for (int k = 1; k <= (int)(min(MAXK - 1, n - 1)); k++) {
      if (k == 1) {
        excl = linecnt(i, (i + 1) % n);
      } else {
        long long A2 = area2(xy[i], xy[(i + k - 1) % n], xy[(i + k) % n]);
        long long B2 = 0LL + linecnt(i, (i + k - 1) % n) +
                       linecnt((i + k - 1) % n, (i + k) % n) +
                       linecnt((i + k) % n, i);
        long long I = (A2 - B2) / 2 + 1;
        excl += I + linecnt(i, (i + k) % n) +
                linecnt((i + k - 1) % n, (i + k) % n) - 1;
      }
      e += pr[k] * excl;
    }
  }
  long long tota2 = 0;
  for (int i = 2; i < n; i++) tota2 += area2(xy[0], xy[i - 1], xy[i]);
  long long totb = 0;
  for (int i = 0; i < n; i++) totb += linecnt(i, (i + 1) % n);
  long long toti = (tota2 - totb) / 2 + 1;
  cout << setprecision(12) << totb + toti - e << endl;
  return 0;
}