Problem: Bob has a simple undirected connected graph (without self-loops and multiple edges). He wants to learn whether his graph is bipartite (that is, you can paint all vertices of the graph into two colors so that there is no edge connecting two vertices of the same color) or not. As he is not very good at programming, he asked Alice for help. He does not want to disclose his graph to Alice, but he agreed that Alice can ask him some questions about the graph.

The only question that Alice can ask is the following: she sends s — a subset of vertices of the original graph. Bob answers with the number of edges that have both endpoints in s. Since he doesn't want Alice to learn too much about the graph, he allows her to ask no more than 20000 questions. Furthermore, he suspects that Alice might introduce false messages to their communication channel, so when Alice finally tells him whether the graph is bipartite or not, she also needs to provide a proof — either the partitions themselves or a cycle of odd length.

Your task is to help Alice to construct the queries, find whether the graph is bipartite. 

Input

The first line contains a single integer n (1 ≤ n ≤ 600) — the number of vertices in Bob's graph.

Interaction

First, read an integer n (1≤ n≤ 600) — the number of vertices in Bob's graph.

To make a query, print two lines. First of which should be in the format "? k" (1 ≤ k ≤ n), where k is the size of the set to be queried. The second line should contain k space separated distinct integers s_1, s_2, ..., s_k (1 ≤ s_i ≤ n) — the vertices of the queried set.

After each query read a single integer m (0 ≤ m ≤ (n(n-1))/(2)) — the number of edges between the vertices of the set \\{s_i\}.

You are not allowed to ask more than 20000 queries.

If m = -1, it means that you asked more queries than allowed, or asked an invalid query. Your program should immediately terminate (for example, by calling exit(0)). You will receive Wrong Answer; it means that you asked more queries than allowed, or asked an invalid query. If you ignore this, you can get other verdicts since your program will continue to read from a closed stream.

After printing a query do not forget to print end of line and flush the output. Otherwise, you will get Idleness limit exceeded. To do this, use:

  * fflush(stdout) or cout.flush() in C++;
  * System.out.flush() in Java;
  * flush(output) in Pascal;
  * stdout.flush() in Python;
  * see documentation for other languages.



When you know the answer, you need to print it.

The format of the answer depends on whether the graph is bipartite or not.

If the graph is bipartite, print two lines. The first should contain the letter "Y" (short for "YES") followed by a space, and then a single integer s (0 ≤ s ≤ n) — the number of vertices in one of the partitions. Second line should contain s integers a_1, a_2, ..., a_s — vertices belonging to the first partition. All a_i must be distinct, and all edges in the main graph must have exactly one endpoint in the set \\{a_i\}.

If the graph is not bipartite, print two lines. The first should contain the letter "N" (short for "NO") followed by a space, and then a single integer l (3 ≤ l ≤ n) — the length of one simple cycle of odd length. Second line should contain l integers c_1, c_2, ..., c_l — the vertices along the cycle. It must hold that for all 1 ≤ i ≤ l, there is an edge \\{c_i, c_{(i mod l)+1}\} in the main graph, and all c_i are distinct.

If there are multiple possible answers, you may print any of them.

Hacks format For hacks, use the following format:

The first line contains two integers n and m~(1 ≤ n ≤ 600, 0 ≤ m ≤ (n(n-1))/(2)) — the number of vertices and edges of the graph, respectively.

Each of the next m lines contains two integers u_i and v_i~(1 ≤ u_i, v_i ≤ n) mean that there is an edge between u_i and v_i. There must not be any multiple edges, no loops, and the graph must be connected.

For example, you need to use this test to get the first sample:
    
    
      
    4 4  
    4 1  
    1 3  
    3 2  
    2 4  
    

Examples

Input

4
4
0
1
1
1
0

Output

? 4 
1 2 3 4
? 2
1 2
? 2
1 3
? 2
1 4
? 2
2 4
? 2
3 4
Y 2
1 2

Input

4
4
3

Output

? 4
1 4 2 3
? 3
1 2 4
N 3
2 1 4

Note

In the first case, Alice learns that there are 4 edges in the whole graph. Over the course of the next three queries, she learns that vertex 1 has two neighbors: 3 and 4. She then learns that while vertex 2 is adjacent to 4, the vertex 3 isn't adjacent to 4. There is only one option for the remaining edge, and that is (2, 3). This means that the graph is a cycle on four vertices, with (1, 2) being one partition and (3, 4) being the second. Here, it would be also valid to output "3 4" on the second line.

In the second case, we also have a graph on four vertices and four edges. In the second query, Alice learns that there are three edges among vertices (1, 2, 4). The only way this could possibly happen is that those form a triangle. As the triangle is not bipartite, Alice can report it as a proof. Notice that she does not learn where the fourth edge is, but she is able to answer Bob correctly anyway.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int INF = 1e9;
const long long INFLL = 1e18 + 1;
const int MAX = 200001;
const long long MOD = 1000000007;
const int SZ = 300100;
const double PI = 3.14159265358979323846264338327;
long long inq(long long k, long long q, long long mod) {
  if (q == 0) return 1;
  long long l = inq(k, q / 2, mod);
  if (q % 2 == 0)
    return l * l % mod;
  else
    return l * l % mod * k % mod;
}
long long gcd(long long a, long long b) {
  if (a < b) swap(a, b);
  if (b == 0) return a;
  return gcd(b, a % b);
}
long long cubr(long long a) {
  long long l = -1, r = 1e6 + 2;
  while (l < r - 1) {
    long long mid = (l + r) / 2;
    if (mid * mid * mid > a)
      r = mid;
    else
      l = mid;
  }
  return l;
}
long long max(long long a, long long b) {
  if (a > b) return a;
  return b;
}
long long min(long long a, long long b) { return -1 * max(-a, -b); }
long long possible(long long q) {
  if (q == INF) return -1;
  return q;
}
bool correct(int x, int xx) {
  if (x < 0) return 0;
  if (x >= xx) return 0;
  return 1;
}
long long dsumm(long long x, long long k) {
  long long y = 1;
  long long z = 0;
  for (int i = 0; y < 1e18; i++) {
    z += x / y % k;
    y *= k;
  }
  return z;
}
long long dcount(long long x) {
  long long y = 1;
  long long z = 0;
  int c[100];
  for (int i = 0; i < 10; i++) c[i] = 0;
  for (int i = 0; x > 0; i++) {
    if (c[x / y % 10] == 0) z++;
    c[x / y % 10] = 1;
    x /= 10;
  }
  return z;
}
long long lg10(long long x) {
  if (10000 <= x && x < 100000) return 5;
  if (x == 0) return 0;
  return lg10(x / 10) + 1;
}
long long g(long long x, long long mod) {
  if (x == 0) return 0;
  return x / mod + g(x / mod, mod);
}
bool is_digit(char c) { return ('0' <= c && c <= '9'); }
long long n, m, k;
map<vector<int>, int> mm;
long long q(vector<int> a, vector<int> b) {
  if (a.size() + b.size() == 1) return 0;
  vector<int> c;
  for (int i = 0; i < a.size(); i++) c.push_back(a[i]);
  for (int i = 0; i < b.size(); i++) c.push_back(b[i]);
  sort((c).begin(), (c).end());
  if (mm[c] != 0) return mm[c] - 1;
  cout << "? " << a.size() + b.size() << endl;
  for (int i = 0; i < a.size(); i++) {
    cout << a[i] << " ";
  }
  for (int i = 0; i < b.size(); i++) {
    cout << b[i] << " ";
  }
  cout << endl;
  long long x;
  cin >> x;
  mm[c] = x + 1;
  return x;
}
long long q(vector<int> a) {
  if (a.size() == 1) return 0;
  sort((a).begin(), (a).end());
  if (mm[a] != 0) return mm[a] - 1;
  cout << "? " << a.size() << endl;
  for (int i = 0; i < a.size(); i++) {
    cout << a[i] << " ";
  }
  cout << endl;
  long long x;
  cin >> x;
  mm[a] = x + 1;
  return x;
}
pair<int, int> find_edge_between(vector<int> a, vector<int> b) {
  if (a.size() == 0 || b.size() == 0) {
    return {-1, -1};
  }
  if (a.size() == 1 && b.size() == 1) {
    vector<int> c;
    c.push_back(a[0]);
    c.push_back(b[0]);
    if (q(c))
      return {a[0], b[0]};
    else
      return {-1, -1};
  }
  if (b.size() == 1) {
    swap(a, b);
  }
  vector<int> c, d;
  for (int i = 0; i < b.size() / 2; i++) c.push_back(b[i]);
  for (int i = b.size() / 2; i < b.size(); i++) d.push_back(b[i]);
  if (q(a, c) > q(a) + q(c))
    return find_edge_between(a, c);
  else
    return find_edge_between(a, d);
}
vector<int> graph[700];
void spawning_tree() {
  vector<int> x;
  vector<int> is(700);
  is[1] = 1;
  x.push_back(1);
  while (x.size() != n) {
    vector<int> y;
    for (int i = 1; i <= n; i++) {
      if (!(is[i])) y.push_back(i);
    }
    pair<int, int> e = find_edge_between(x, y);
    pair<int, int> no = {-1, -1};
    if (no == e) break;
    if (is[e.first]) {
      is[e.second] = 1;
      x.push_back(e.second);
      graph[e.first].push_back(e.second);
      graph[e.second].push_back(e.first);
    } else {
      is[e.first] = 1;
      x.push_back(e.first);
      graph[e.first].push_back(e.second);
      graph[e.second].push_back(e.first);
    }
  }
}
long long c[700];
vector<int> p1;
vector<int> p2;
void dfs(int x, int fl) {
  c[x] = 1;
  if (fl == 1)
    p1.push_back(x);
  else
    p2.push_back(x);
  for (int i = 0; i < graph[x].size(); i++) {
    long long u = graph[x][i];
    if (c[u] == 0) {
      dfs(u, 1 - fl);
    }
  }
}
long long beg, en;
long long pmt = 0;
vector<int> cc;
long long prev1234[5000];
void dfs(int x, int pr, int q) {
  prev1234[x] = pr;
  if (pmt == 1) return;
  c[x] = 2;
  for (int i = 0; i < graph[x].size(); i++) {
    long long u = graph[x][i];
    if (c[u] != 2) {
      prev1234[u] = x;
      if (u == en && pmt == 0) {
        vector<int> cnts(4000);
        while (u != beg) {
          cc.push_back(u);
          cnts[u]++;
          u = prev1234[u];
          if (cnts[u] > 0) break;
        }
        if (cnts[beg] == 0) cc.push_back(beg);
        pmt = 1;
        return;
      }
      dfs(u, x, INF);
    }
  }
}
signed main() {
  ios_base::sync_with_stdio(false);
  cin.tie(0);
  cout.tie(0);
  cin >> n;
  if (n == 1) {
    cout << "Y 1" << endl;
    cout << 1 << endl;
    return 0;
  }
  spawning_tree();
  dfs(1, 1);
  pair<int, int> no = {-1, -1};
  if (q(p1) == 0 && q(p2) == 0) {
    cout << "Y " << p1.size() << endl;
    for (int i = 0; i < p1.size(); i++) {
      cout << p1[i] << " ";
    }
    cout << endl;
    return 0;
  }
  if (q(p1) == 0) {
    swap(p1, p2);
  }
  long long y = 0;
  for (int i = max(1, p1.size() - 1); i < p1.size(); i++) {
    vector<int> q1, q2;
    for (int j = 0; j < i; j++) q1.push_back(p1[j]);
    for (int j = i; j < p1.size(); j++) q2.push_back(p1[j]);
    pair<int, int> F = find_edge_between(q1, q2);
    if (F != no) {
      graph[F.first].push_back(F.second);
      graph[F.second].push_back(F.first);
      beg = F.first;
      en = F.second;
      y = 1;
      break;
    }
  }
  if (y == 0) {
    for (int i = 1; i < p1.size(); i++) {
      vector<int> q1, q2;
      for (int j = 0; j < i; j++) q1.push_back(p1[j]);
      for (int j = i; j < p1.size(); j++) q2.push_back(p1[j]);
      pair<int, int> F = find_edge_between(q1, q2);
      if (F != no) {
        graph[F.first].push_back(F.second);
        graph[F.second].push_back(F.first);
        beg = F.first;
        en = F.second;
        y = 1;
        break;
      }
    }
  }
  dfs(beg, -INF, INF);
  cout << "N " << cc.size() << endl;
  for (int i = 0; i < cc.size(); i++) {
    cout << cc[i] << " ";
  }
  cout << endl;
}