#define _CRT_SECURE_NO_WARNINGS
#define _SCL_SECURE_NO_WARNINGS
#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <cassert>
#include <iostream>
#include <string>
#include <vector>
#include <list>
#include <utility>
#include <algorithm>
#include <functional>
#include <cmath>
#include <stack>
#include <queue>
#include <set>
#include <map>
#include <iomanip>
#include <sstream>
#include <bitset>
#include <limits>
#include <numeric>
#include <valarray>
#include <fstream>
#include <array>
#include <random>
#include <unordered_set>
#include <unordered_map>

using namespace std;
using uint = uint32_t;
using LL = int64_t;
using ULL = uint64_t;
using PP = pair<LL, LL>;
template <typename T> using PriorityQ = priority_queue<T, vector<T>, greater<T> >;
#define REP(i, a, n) for(LL i = (a), i##_max_ = (n); i < i##_max_; ++i)
#define REM(i, a, n) for(LL i = (LL)(n) - 1, i##_min_ = (a); i >= i##_min_; --i)
#define FLOAT fixed << setprecision(16)
#define SPEEDUP { cin.tie(NULL); ios::sync_with_stdio(false); }
const int INF = 0x3FFFFFFF;
const LL INFLL = 0x3FFFFFFF3FFFFFFF;
const double INFD = 1.0e+308;
const double EPS = 1.0e-9;

void YesNo(bool b) { cout << (b ? "Yes" : "No") << endl; }
void YESNO(bool b) { cout << (b ? "YES" : "NO") << endl; }
template <class T, class U> istream& operator>>(istream& ist, pair<T, U>& right) { return ist >> right.first >> right.second; }
template <class T, class U> ostream& operator<<(ostream& ost, const pair<T, U>& right) { return ost << right.first << ' ' << right.second; }
template <class T, class TCompatible, size_t N> void Fill(T(&dest)[N], const TCompatible& val) { fill(dest, dest + N, val); }
template <class T, class TCompatible, size_t M, size_t N> void Fill(T(&dest)[M][N], const TCompatible& val) { for (int i = 0; i < M; ++i) Fill(dest[i], val); }
template <class T> T Next() { T buf; cin >> buf; return buf; }
istream& Ignore(istream& ist) { string s; ist >> s; return ist; }
bool Inside(int i, int j, int h, int w) { return i >= 0 && i < h && j >= 0 && j < w; }

#ifdef ONLY_MY_ENVIR
#include "IntMod.h"
#include "Algebraic.h"
#include "BinaryMatrix.h"
#include "BinaryTree.h"
#include "Bipartite.h"
#include "BIT.h"
#include "DynamicMod.h"
#include "Factorization.h"
#include "FFT.h"
#include "FlowSolver.h"
#include "Graph.h"
#include "LazySegmentTree.h"
#include "Math.h"
#include "Matrix.h"
#include "MinCostFlowSolver.h"
#include "MinMax.h"
#include "Numbers.h"
#include "Polynomial.h"
#include "Position.h"
#include "Range.h"
#include "Rational.h"
#include "SegmentTree.h"
#include "SegmentTree2D.h"
#include "SuffixArray.h"
#include "Tree.h"
#include "UnionFind.h"
#endif

#ifdef __GNUC__
typedef __int128 LLL;
istream& operator>> (istream& ist, __int128& val) { LL tmp; ist >> tmp; val = tmp; return ist; }
ostream& operator<< (ostream& ost, __int128 val) { LL tmp = val; ost << tmp; return ost; }
#endif

int N;
int M;
bool query(vector<int> v) {
	for (int& i : v) {
		i %= M;
	}
	sort(v.begin(), v.end());

	cout << '?';
	REP(i, 0, N) {
		cout << ' ' << v[i] % M + 1;
	}
	cout << endl;
	
	string t;
	cin >> t;
	return t == "Blue";
}

void answer(vector<int> v) {
	cout << "! ";
	for (int b : v) {
		cout << (b ? 'B' : 'R');
	}
	cout << endl;
}

void rec(vector<int>& ans, int l, int r, vector<int> fix) {
	if (l == r) return;
	vector<int> v = fix;
	REP(i, l + 1, r - 1) {
		v.push_back(i);
	}

	v.push_back(l);
	bool a = query(v);
	v.pop_back();
	v.push_back(r - 1);
	bool b = query(v);
	v.pop_back();

	if (a == b) {
		ans[l % M] = ans[(r - 1) % M] = !a;
	} else {
		ans[l % M] = a;
		ans[(r - 1) % M] = b;
	}
	fix.push_back(l);
	fix.push_back(r - 1);
	rec(ans, l + 1, r - 1, fix);
}

bool cat(int i) {
	vector<int> v;
	REP(k, i, N + i) {
		v.push_back(k);
	}
	return query(v);
}

int main() {
	cin >> N;
	M = 2 * N;
	vector<int> ans(M, -1);

	int lo = 0;
	int hi = N;

	bool ref = cat(lo);
	while (hi - lo > 1) {
		int mid = (lo + hi) / 2;
		if (cat(mid) == ref) {
			lo = mid;
		} else {
			hi = mid;
		}
	}

	{
		int a = lo;
		int b = lo + N;
		ans[a] = ref;
		ans[b] = !ref;

		vector<int> fix = { a, b };
		rec(ans, a + 1, a + N, fix);
		rec(ans, b + 1, b + N, fix);
	}
	answer(ans);

	return 0;
}


Measured memory_bytes: 732