Problem: Furik loves painting stars. A star is a shape that results if we take a regular pentagon and paint all diagonals in it. 

<image>

Recently he decided to teach Rubik to paint stars. After many years of training Rubik could paint stars easily. But now Furik decided to test Rubik and complicated the task. Rubik must paint n stars, observing the following rules:

  * all stars must be painted in a single move (i.e. it is forbidden to take the pen away from the paper); 
  * it is forbidden to paint the same segment of non-zero length more than once; 
  * the stars can intersect only in their vertexes; 
  * the length of a side of the regular pentagon, in which Rubik paints each star, must equal 10. 



Help Rubik to cope with this hard task.

Input

A single line contains an integer (1 ≤ n ≤ 100) — the number of stars to paint.

Output

On the first line print an integer m (1 ≤ m ≤ 5·n). On the next m lines print coordinates of m distinct points with accuracy of at least 9 and at most 100 digits after decimal point. All coordinates should not exceed 5000 in their absolute value. On each of the next n lines print 5 integers — the indexes of the points that form the given star in the clockwise or counterclockwise order. On the next line print 5·n + 1 integers — the numbers of points in the order, in which Rubik paints stars. That is, if number with index i is ai, and number with index i + 1 is ai + 1, then points with indexes ai and ai + 1 will have a segment painted between them. 

You can consider all m printed points indexed from 1 to m in the order, in which they occur in the output. Separate the numbers on the lines with whitespaces.

Note that the answer has an imprecise validation. Try to obtain as accurate a solution as possible. The validator performs all calculations considering that the absolute error of a participant's answer is not more than 10 - 8.

Examples

Input

1


Output

5
3.830127018922193 3.366025403784439
-3.601321235851749 10.057331467373021
0.466045194906253 19.192786043799030
10.411264148588986 18.147501411122495
12.490381056766580 8.366025403784439
1 2 3 4 5
1 3 5 2 4 1

Note

The initial position of points in the sample is:

<image>

The order in which Rubik can paint segments is:

<image>

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int MAXN = 1010;
const long double EPS = 1e-4;
const long double PI = acosl(-1);
complex<long double> p[5];
int N;
vector<complex<long double>> nodes;
vector<pair<complex<long double>, complex<long double>>> edges;
vector<complex<long double>> star[110];
void add(int ind, complex<long double> o) {
  complex<long double> np[5];
  for (int i = 0; i < (int)(5); i++) np[i] = o + p[i];
  for (int i = 0; i < (int)(5); i++) {
    nodes.push_back(np[i]);
    edges.emplace_back(np[i], np[(i + 2) % 5]);
    star[ind].push_back(np[i]);
  }
}
void uniqueNodes() {
  vector<complex<long double>> res;
  for (auto p : nodes) {
    for (auto q : res)
      if (abs(p - q) < EPS) goto next;
    res.push_back(p);
  next:;
  }
  nodes = res;
}
int idNode(const complex<long double> &p) {
  for (int i = 0; i < (int)(((int)(nodes).size())); i++)
    if (abs(p - nodes[i]) < EPS) return i;
  assert(false);
  return -1;
}
bool adj[MAXN][MAXN];
void euler(int u, vector<int> &cyc) {
  for (int v = 0; v < (int)(N); v++)
    if (adj[u][v]) {
      adj[u][v] = adj[v][u] = false;
      euler(v, cyc);
    }
  cyc.push_back(u);
}
int main() {
  ios_base::sync_with_stdio(false);
  cin.tie(0);
  int n;
  cin >> n;
  for (int i = 0; i < (int)(5); i++)
    p[i] = exp(complex<long double>(0, 2 * PI * i / 5));
  add(0, complex<long double>(0, 0));
  for (int i = 0; i < (int)(n - 1); i++) {
    int dir = i % 5, dist = i / 5;
    dist++;
    complex<long double> vec = p[dir] - p[(dir + 3) % 5];
    add(i + 1, (complex<long double>)dist * vec);
  }
  uniqueNodes();
  N = ((int)(nodes).size());
  for (auto e : edges) {
    auto p = e.first, q = e.second;
    int u = idNode(p), v = idNode(q);
    adj[u][v] = adj[v][u] = true;
  }
  cout << fixed << setprecision(20);
  cout << N << endl;
  long double scale = 10 / abs(p[0] - p[1]);
  for (int i = 0; i < (int)(N); i++)
    cout << scale * nodes[i].real() << ' ' << scale * nodes[i].imag() << endl;
  for (int i = 0; i < (int)(n); i++) {
    for (auto p : star[i]) cout << idNode(p) + 1 << ' ';
    cout << endl;
  }
  vector<int> cycle;
  euler(0, cycle);
  for (auto u : cycle) cout << u + 1 << ' ';
  cout << endl;
  return 0;
}