#include <bits/stdc++.h>
using namespace std;
typedef pair<int,int> P;
typedef long long ll;
typedef vector<int> vi;
typedef vector<ll> vll;
// #define int long long
#define pb push_back
#define mp make_pair
#define eps 1e-9
#define INF 2000000000
#define LLINF 1000000000000000ll
#define sz(x) ((int)(x).size())
#define fi first
#define sec second
#define all(x) (x).begin(),(x).end()
#define sq(x) ((x)*(x))
#define rep(i,n) for(int (i)=0;(i)<(int)(n);(i)++)
#define repn(i,a,n) for(int (i)=(a);(i)<(int)(n);(i)++)
#define EQ(a,b) (abs((a)-(b))<eps)
#define dmp(x) cerr << __LINE__ << " " << #x << " " << x << endl;
template<class T> void chmin(T& a,const T& b){if(a>b)a=b;}
template<class T> void chmax(T& a,const T& b){if(a<b)a=b;}
template<class T>
using MaxHeap = priority_queue<T>;
template<class T>
using MinHeap = priority_queue<T,vector<T>,greater<T> >;
template<class T,class U>
ostream& operator << (ostream& os,pair<T,U>& p){
  os << p.fi << ',' << p.sec; return os;
}
template<class T,class U>
istream& operator >> (istream& is,pair<T,U>& p){
  is >> p.fi >> p.sec; return is;
}
template<class T>
ostream& operator << (ostream &os,const vector<T> &vec){
  for(int i=0;i<vec.size();i++){
    os << vec[i];
    if(i+1<vec.size())os << ' ';
  }
  return os;
}
template<class T>
istream& operator >> (istream &is,vector<T>& vec){
  for(int i=0;i<vec.size();i++)is >> vec[i];
  return is;
}
void fastio(){
  cin.tie(0);
  ios::sync_with_stdio(0);
  cout<<fixed<<setprecision(20);
}
const ll MOD = 1000000007ll; // if inv is needed, this shold be prime.
struct ModInt{
	ll val;
	ModInt():val(0ll){}
	ModInt(const ll& v):val(((v%MOD)+MOD)%MOD){}
	ModInt exp(ll y)const{
		if(!y)return ModInt(1ll);
		ModInt a = exp(y/2ll);
		a *= a;
		if(y&1)a*=(*this);
		return a;
	}
	bool operator==(const ModInt& x)const{return val==x.val;}
	inline bool operator!=(const ModInt& x)const{return !(*this==x);}
	bool operator<(const ModInt& x)const{return val<x.val;}
	bool operator>(const ModInt& x)const{return val>x.val;}
	inline bool operator>=(const ModInt& x)const{return !(*this<x);}
	inline bool operator<=(const ModInt& x)const{return !(*this>x);}
	ModInt& operator+=(const ModInt& x){if((val+=x.val)>=MOD)val-=MOD;return *this;}
	ModInt& operator-=(const ModInt& x){if((val+=MOD-x.val)>=MOD)val-=MOD;return *this;}
	ModInt& operator*=(const ModInt& x){(val*=x.val)%=MOD;return *this;}
	ModInt operator+(const ModInt& x)const{return ModInt(*this)+=x;}
	ModInt operator-(const ModInt& x)const{return ModInt(*this)-=x;}
	ModInt operator*(const ModInt& x)const{return ModInt(*this)*=x;}
  friend istream& operator>>(istream&i,ModInt& x){ll v;i>>v;x=v;return i;}
  friend ostream& operator<<(ostream&o,const ModInt& x){o<<x.val;return o;}
};
ModInt pow(ModInt a,ll x){
  ModInt res = ModInt(1ll);
  while(x){
    if(x&1)res *= a;
    x >>= 1;
    a = a*a;
  }
  return res;
}
vector<ModInt> inv,fac,facinv;
// notice: 0C0 = 1 
ModInt nCr(int n,int r){
	assert(!(n<r));
	assert(!(n<0||r<0));
	return fac[n]*facinv[r]*facinv[n-r];
}
void init(int SIZE){
  fac.resize(SIZE+10);
  inv.resize(SIZE+10);
  facinv.resize(SIZE+10);
	fac[0]=ModInt(1ll);
	for(int i=1;i<=SIZE;i++)fac[i]=fac[i-1]*ModInt(i);
	inv[1]=ModInt(1ll);
	for(int i=2;i<=SIZE;i++)inv[i]=ModInt(0ll)-ModInt(MOD/i)*inv[MOD%i];
	facinv[0]=ModInt(1ll);
	for(int i=1;i<=SIZE;i++)facinv[i]=facinv[i-1]*inv[i];
	return;
}
int N;
int a[1010];
int ans[1010];
void query(int a,int b){
  cout << "? ";
  for(int i=a;i<b;i++){
    cout << i+1;
    if(i+1<b)cout << ' ';
  }
  cout << endl;
  return;
}
void query(int a,int b,int c){
  cout << "? ";
  for(int i=a;i<b;i++){
    cout << i+1;
    cout << ' ';
  }
  cout << c+1 << endl;
  return;
}
void query(vector<int> v,int c){
  cout << "? ";
  for(int i=0;i<v.size();i++){
    cout << v[i]+1 << ' ';
  }
  cout << c+1 << endl;
  return;
}
void answer(){
  cout << "! ";
  for(int i=0;i<2*N;i++){
    if(ans[i]==1)cout << 'R';
    else if(ans[i]==0)cout << 'B';
    else cout << '?';
  }
  cout << endl;
  return;
}
int re(string res){
  if(res=="Red")return 1;
  else return 0;
}
signed main(){
  fastio();
  cin >> N;
  memset(ans,-1,sizeof(ans));
  query(0,0+N);
  string res;
  cin >> res;
  a[0] = re(res);
  a[N] = 1-a[0];
  int l = 0,r = N;
  while(r-l>1){
    int mid = (l+r)/2;
    query(mid,mid+N);
    cin >> res;
    a[mid] = re(res);
    if(a[mid]==a[0])l=mid;
    else r=mid;
  }
  assert(r==l+1);
  ans[l] = a[l];
  ans[l+N] = a[r];
  for(int i=0;i<2*N;i++){
    if(i>=l&&i<=l+N)continue;
    query(l+1,l+N,i);
    cin >> res;
    ans[i] = re(res);
  }
  vector<int> v1,v2;
  for(int i=0;i<2*N;i++){
    if(i>=l&&i<=l+N)continue;
    if(ans[i]==0){
      if(v1.size()<(N-1)/2)v1.pb(i);
    }else{
      if(v2.size()<(N-1)/2)v2.pb(i);
    }
  }
  assert(v1.size()==(N-1)/2);
  assert(v2.size()==(N-1)/2);
  for(int i=0;i<v2.size();i++){
    v1.pb(v2[i]);
  }
  for(int i=l+1;i<l+N;i++){
    query(v1,i);
    cin >> res;
    ans[i] = re(res);
  }
  answer();
  return 0;
}


Measured memory_bytes: 724