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;
long long Ask(vector<long long> *V1, vector<long long> *V2,
              unsigned long long i, unsigned long long j) {
  unsigned long long v2size = 0;
  if (V2 != nullptr && !(V2->empty())) v2size = V2->size();
  if (v2size == 0 && j - i < 2) return 0;
  cout << "? " << j - i + v2size << "\n";
  for (long long k = i; k < j; k++) cout << (*V1)[k] + 1 << " ";
  for (long long k = 0; k < v2size; k++) cout << (*V2)[k] + 1 << " ";
  cout << "\n";
  cout.flush();
  long long edges_count = 0;
  cin >> edges_count;
  if (edges_count == -1) exit(0);
  return edges_count;
}
long long Found_Adjacent(long long s, vector<long long> *V) {
  unsigned long long L = 0;
  unsigned long long R = V->size();
  unsigned long long middle = 0;
  vector<long long> set_s = vector<long long>(1);
  set_s[0] = s;
  while (R - L > 1) {
    middle = L + (R - L) / 2;
    if (Ask(V, &set_s, L, middle) != Ask(V, nullptr, L, middle))
      R = middle;
    else
      L = middle;
  }
  return (*V)[L];
}
void Spanning_Build(long long s, vector<long long> *V, vector<long long> *pi,
                    int set, vector<long long> *sets) {
  (*sets)[s] = set;
  for (long long i = 0; i < V->size(); i++) {
    if ((*V)[i] == s) {
      (*V)[i] = V->back();
      V->pop_back();
      break;
    }
  }
  vector<long long> set_s = vector<long long>(1);
  set_s[0] = s;
  while (!(V->empty()) &&
         (Ask(V, &set_s, 0, V->size()) != Ask(V, nullptr, 0, V->size()))) {
    long long t = Found_Adjacent(s, V);
    (*pi)[t] = s;
    Spanning_Build(t, V, pi, (set == 1) ? 0 : 1, sets);
  }
}
pair<long long, long long> *Found_Edge(vector<long long> *B1,
                                       vector<long long> *B2) {
  unsigned long long L = 0;
  unsigned long long R = B1->size();
  unsigned long long middle = 0;
  while (R - L > 1) {
    middle = L + (R - L) / 2;
    if (Ask(B1, B2, L, middle) != 0)
      R = middle;
    else
      L = middle;
  }
  long long v = (*B1)[L];
  long long w = Found_Adjacent(v, B2);
  return new pair<long long, long long>(v, w);
}
pair<long long, long long> *Found_Edge(vector<long long> *B) {
  unsigned long long L = 0;
  unsigned long long R = B->size();
  unsigned long long middle = 0;
  while (R - L > 2) {
    middle = L + (R - L) / 2;
    if (Ask(B, nullptr, L, middle) != 0)
      R = middle;
    else if (Ask(B, nullptr, middle, R) != 0)
      L = middle;
    else {
      vector<long long> B1 = vector<long long>();
      vector<long long> B2 = vector<long long>();
      for (long long i = L; i < middle; i++) B1.push_back((*B)[i]);
      for (long long i = middle; i < R; i++) B2.push_back((*B)[i]);
      return Found_Edge(&B1, &B2);
    }
  }
  return new pair<long long, long long>((*B)[L], (*B)[R - 1]);
}
void Odd_cycle(pair<long long, long long> e, vector<long long> pi) {
  long long mutual_ancestor = -1;
  unsigned long long n = pi.size();
  vector<bool> mark = vector<bool>(n);
  long long v = e.first;
  while (v != -1) {
    mark[v] = true;
    v = pi[v];
  }
  long long w = e.second;
  while (w != -1) {
    mark[w] = !mark[w];
    if (!mark[w]) {
      mutual_ancestor = w;
      break;
    }
    w = pi[w];
  }
  v = e.first;
  w = e.second;
  if (v == mutual_ancestor || w == mutual_ancestor) {
    if (w == mutual_ancestor) swap(v, w);
    queue<long long> out = queue<long long>();
    while (w != v) {
      out.push(w);
      w = pi[w];
    }
    out.push(v);
    cout << "N " << out.size() << "\n";
    while (!out.empty()) {
      cout << out.front() + 1 << " ";
      out.pop();
    }
  } else {
    queue<long long> first_middle = queue<long long>();
    stack<long long> second_middle = stack<long long>();
    while (v != mutual_ancestor) {
      first_middle.push(v);
      v = pi[v];
    }
    first_middle.push(mutual_ancestor);
    while (w != mutual_ancestor) {
      second_middle.push(w);
      w = pi[w];
    }
    cout << "N " << first_middle.size() + second_middle.size() << "\n";
    while (!first_middle.empty()) {
      cout << first_middle.front() + 1 << " ";
      first_middle.pop();
    }
    while (!second_middle.empty()) {
      cout << second_middle.top() + 1 << " ";
      second_middle.pop();
    }
  }
  cout << "\n";
  cout.flush();
}
void Answer(vector<long long> *sets, vector<long long> *pi) {
  vector<long long> B = vector<long long>();
  vector<long long> N = vector<long long>();
  for (long long i = 0; i < sets->size(); i++) {
    if ((*sets)[i] == 0)
      B.push_back(i);
    else
      N.push_back(i);
  }
  if (Ask(&B, nullptr, 0, B.size()) != 0) {
    pair<long long, long long> e = *(Found_Edge(&B));
    Odd_cycle(e, *pi);
    return;
  }
  if (Ask(&N, nullptr, 0, N.size()) != 0) {
    pair<long long, long long> e = *(Found_Edge(&N));
    Odd_cycle(e, *pi);
    return;
  }
  cout << "Y " << B.size() << "\n";
  for (long long i : B) cout << i + 1 << " ";
  cout << "\n";
  cout.flush();
}
int main(int argc, char const *argv[]) {
  ios_base::sync_with_stdio(false);
  cin.tie(nullptr);
  unsigned long long n = 0;
  cin >> n;
  vector<long long> V = vector<long long>(n);
  for (long long i = 0; i < n; i++) V[i] = i;
  vector<long long> sets = vector<long long>(n);
  sets.assign(n, -1);
  vector<long long> pi = vector<long long>();
  pi.assign(n, -1);
  Spanning_Build(0, &V, &pi, 0, &sets);
  Answer(&sets, &pi);
  return 0;
}