Buggy python submission (verdict: Time Limit Exceeded):
from collections import defaultdict, deque, Counter
from heapq import heappush, heappop, heapify
import math
import bisect
import random
from itertools import permutations, accumulate, combinations, product
import sys
import string
from bisect import bisect_left, bisect_right
from math import factorial, ceil, floor
from operator import mul
from functools import reduce
import pprint
sys.setrecursionlimit(10 ** 9)


INF = 100
def LI(): return list(map(int, sys.stdin.buffer.readline().split()))
def I(): return int(sys.stdin.buffer.readline())
def LS(): return sys.stdin.buffer.readline().rstrip().decode('utf-8').split()
def S(): return sys.stdin.buffer.readline().rstrip().decode('utf-8')
def IR(n): return [I() for i in range(n)]
def LIR(n): return [LI() for i in range(n)]
def SR(n): return [S() for i in range(n)]
def LSR(n): return [LS() for i in range(n)]
def SRL(n): return [list(S()) for i in range(n)]
def MSRL(n): return [[int(j) for j in list(S())] for i in range(n)]
mod = 1000000007


n = I()
print("? " +  " ".join(map(str, [i for i in range(1, n + 1)])))
flg = str(input())
ng = n + 1
ok = 1
while ok + 1 < ng:
    mid = (ok + ng) // 2
    print("? " + " ".join(map(str, [i for i in range(mid, mid + n)])))
    if flg != S():
        ng = mid
    else:
        ok = mid


L = [i for i in range(ok + 1, ok + n)]
b_cnt = 0
r_cnt = 0
LL = []
R = []
B = []
if flg == "Red":
    R += [ok]
    B += [ok + n]
else:
    B += [ok]
    R += [ok + n]

for j in range(1, 2 * n + 1):
    if ok <= j <= ok + n:
        continue
    L += [j]
    print("? " + " ".join(map(str, L)))
    L.pop()
    s = str(input())
    if s == "Blue":
        B += [j]
    else:
        R += [j]

LL = B[:n//2] + R[:n//2]
for k in range(ok + 1, ok + n):
    LL += [k]
    print("? " + " ".join(map(str, LL)))
    LL.pop()
    s = str(input())
    if s == "Blue":
        B += [k]
    else:
        R += [k]


ans = [""] * (2 * n)
for b in B:
    ans[b - 1] = "B"
for r in R:
    ans[r - 1] = "R"

print("! " + "".join(map(str, ans)))




Fixed submission:
from collections import defaultdict, deque, Counter
from heapq import heappush, heappop, heapify
import math
import bisect
import random
from itertools import permutations, accumulate, combinations, product
import sys
import string
from bisect import bisect_left, bisect_right
from math import factorial, ceil, floor
from operator import mul
from functools import reduce
import pprint
sys.setrecursionlimit(10 ** 9)


INF = 100
def LI(): return list(map(int, sys.stdin.buffer.readline().split()))
def I(): return int(sys.stdin.buffer.readline())
def LS(): return sys.stdin.buffer.readline().rstrip().decode('utf-8').split()
def S(): return sys.stdin.buffer.readline().rstrip().decode('utf-8')
def IR(n): return [I() for i in range(n)]
def LIR(n): return [LI() for i in range(n)]
def SR(n): return [S() for i in range(n)]
def LSR(n): return [LS() for i in range(n)]
def SRL(n): return [list(S()) for i in range(n)]
def MSRL(n): return [[int(j) for j in list(S())] for i in range(n)]
mod = 1000000007


n = I()
print("? " +  " ".join(map(str, [i for i in range(1, n + 1)])))
flg = str(input())
ng = n + 1
ok = 1
while ok + 1 < ng:
    mid = (ok + ng) // 2
    print("? " + " ".join(map(str, [i for i in range(mid, mid + n)])))
    s = str(input())
    if flg != s:
        ng = mid
    else:
        ok = mid


L = [i for i in range(ok + 1, ok + n)]
b_cnt = 0
r_cnt = 0
LL = []
R = []
B = []
if flg == "Red":
    R += [ok]
    B += [ok + n]
else:
    B += [ok]
    R += [ok + n]

for j in range(1, 2 * n + 1):
    if ok <= j <= ok + n:
        continue
    L += [j]
    print("? " + " ".join(map(str, L)))
    L.pop()
    s = str(input())
    if s == "Blue":
        B += [j]
    else:
        R += [j]

LL = B[:n//2] + R[:n//2]
for k in range(ok + 1, ok + n):
    LL += [k]
    print("? " + " ".join(map(str, LL)))
    LL.pop()
    s = str(input())
    if s == "Blue":
        B += [k]
    else:
        R += [k]


ans = [""] * (2 * n)
for b in B:
    ans[b - 1] = "B"
for r in R:
    ans[r - 1] = "R"

print("! " + "".join(map(str, ans)))

Buggy python submission (verdict: Time Limit Exceeded):
from collections import defaultdict, deque, Counter
from heapq import heappush, heappop, heapify
import math
import bisect
import random
from itertools import permutations, accumulate, combinations, product
import sys
import string
from bisect import bisect_left, bisect_right
from math import factorial, ceil, floor
from operator import mul
from functools import reduce
import pprint
sys.setrecursionlimit(10 ** 9)


INF = 100
def LI(): return list(map(int, sys.stdin.buffer.readline().split()))
def I(): return int(sys.stdin.buffer.readline())
def LS(): return sys.stdin.buffer.readline().rstrip().decode('utf-8').split()
def S(): return sys.stdin.buffer.readline().rstrip().decode('utf-8')
def IR(n): return [I() for i in range(n)]
def LIR(n): return [LI() for i in range(n)]
def SR(n): return [S() for i in range(n)]
def LSR(n): return [LS() for i in range(n)]
def SRL(n): return [list(S()) for i in range(n)]
def MSRL(n): return [[int(j) for j in list(S())] for i in range(n)]
mod = 1000000007


n = I()
print("? " +  " ".join(map(str, [i for i in range(1, n + 1)])))
flg = S()
ng = n + 1
ok = 1
while ok + 1 < ng:
    mid = (ok + ng) // 2
    print("? " + " ".join(map(str, [i for i in range(mid, mid + n)])))
    if flg != S():
        ng = mid
    else:
        ok = mid


L = [i for i in range(ok + 1, ok + n)]
b_cnt = 0
r_cnt = 0
LL = []
R = []
B = []
if flg == "Red":
    R += [ok]
    B += [ok + n]
else:
    B += [ok]
    R += [ok + n]

for j in range(1, 2 * n + 1):
    if ok <= j <= ok + n:
        continue
    L += [j]
    print("? " + " ".join(map(str, L)))
    L.pop()
    if S() == "Blue":
        B += [j]
    else:
        R += [j]

LL = B[:n//2] + R[:n//2]
for k in range(ok + 1, ok + n):
    LL += [k]
    print("? " + " ".join(map(str, LL)))
    LL.pop()
    if S() == "Blue":
        B += [k]
    else:
        R += [k]


ans = [""] * (2 * n)
print(B)
print(R)
for b in B:
    ans[b - 1] = "B"
for r in R:
    ans[r - 1] = "R"

print("! " + "".join(map(str, ans)))




Fixed submission:
from collections import defaultdict, deque, Counter
from heapq import heappush, heappop, heapify
import math
import bisect
import random
from itertools import permutations, accumulate, combinations, product
import sys
import string
from bisect import bisect_left, bisect_right
from math import factorial, ceil, floor
from operator import mul
from functools import reduce
import pprint
sys.setrecursionlimit(10 ** 9)


INF = 100
def LI(): return list(map(int, sys.stdin.buffer.readline().split()))
def I(): return int(sys.stdin.buffer.readline())
def LS(): return sys.stdin.buffer.readline().rstrip().decode('utf-8').split()
def S(): return sys.stdin.buffer.readline().rstrip().decode('utf-8')
def IR(n): return [I() for i in range(n)]
def LIR(n): return [LI() for i in range(n)]
def SR(n): return [S() for i in range(n)]
def LSR(n): return [LS() for i in range(n)]
def SRL(n): return [list(S()) for i in range(n)]
def MSRL(n): return [[int(j) for j in list(S())] for i in range(n)]
mod = 1000000007


n = I()
print("? " +  " ".join(map(str, [i for i in range(1, n + 1)])))
flg = str(input())
ng = n + 1
ok = 1
while ok + 1 < ng:
    mid = (ok + ng) // 2
    print("? " + " ".join(map(str, [i for i in range(mid, mid + n)])))
    s = str(input())
    if flg != s:
        ng = mid
    else:
        ok = mid


L = [i for i in range(ok + 1, ok + n)]
b_cnt = 0
r_cnt = 0
LL = []
R = []
B = []
if flg == "Red":
    R += [ok]
    B += [ok + n]
else:
    B += [ok]
    R += [ok + n]

for j in range(1, 2 * n + 1):
    if ok <= j <= ok + n:
        continue
    L += [j]
    print("? " + " ".join(map(str, L)))
    L.pop()
    s = str(input())
    if s == "Blue":
        B += [j]
    else:
        R += [j]

LL = B[:n//2] + R[:n//2]
for k in range(ok + 1, ok + n):
    LL += [k]
    print("? " + " ".join(map(str, LL)))
    LL.pop()
    s = str(input())
    if s == "Blue":
        B += [k]
    else:
        R += [k]


ans = [""] * (2 * n)
for b in B:
    ans[b - 1] = "B"
for r in R:
    ans[r - 1] = "R"

print("! " + "".join(map(str, ans)))

Buggy python submission (verdict: Time Limit Exceeded):
from collections import defaultdict, deque, Counter
from heapq import heappush, heappop, heapify
import math
import bisect
import random
from itertools import permutations, accumulate, combinations, product
import sys
import string
from bisect import bisect_left, bisect_right
from math import factorial, ceil, floor
from operator import mul
from functools import reduce
import pprint
sys.setrecursionlimit(10 ** 9)


INF = 100
def LI(): return list(map(int, sys.stdin.buffer.readline().split()))
def I(): return int(sys.stdin.buffer.readline())
def LS(): return sys.stdin.buffer.readline().rstrip().decode('utf-8').split()
def S(): return sys.stdin.buffer.readline().rstrip().decode('utf-8')
def IR(n): return [I() for i in range(n)]
def LIR(n): return [LI() for i in range(n)]
def SR(n): return [S() for i in range(n)]
def LSR(n): return [LS() for i in range(n)]
def SRL(n): return [list(S()) for i in range(n)]
def MSRL(n): return [[int(j) for j in list(S())] for i in range(n)]
mod = 1000000007


n = I()
ans = ["! "] + ["B"] * (2 * n)
L = [i for i in range(1, n + 1)]
print("? " +  " ".join(map(str, L)))
flg = S()
ng = n + 1
ok = 1
while ok + 1 < ng:
    mid = (ok + ng) // 2
    L = [i for i in range(mid, mid + n)]
    print("? " + " ".join(map(str, L)))
    if flg != S():
        ng = mid
    else:
        ok = mid

L = [i for i in range(ok + 1, ok + n)]
b_cnt = 0
r_cnt = 0
LL = []
for j in range(1, 2 * n + 1):
    if ok + 1 <= j < ok + n:
        continue
    L += [j]
    print("? " + " ".join(map(str, L)))
    L.pop()
    s = S()[0]
    ans[j] = s
    if s == "B" and b_cnt < n // 2:
        b_cnt += 1
        LL += [j]
    elif s == "R" and r_cnt < n // 2:
        r_cnt += 1
        LL += [j]

for k in range(ok + 1, ok + n):
    LL += [k]
    print("? " + " ".join(map(str, LL)))
    LL.pop()
    ans[k] = S()[0]


print("".join(map(str, ans)))




Fixed submission:
from collections import defaultdict, deque, Counter
from heapq import heappush, heappop, heapify
import math
import bisect
import random
from itertools import permutations, accumulate, combinations, product
import sys
import string
from bisect import bisect_left, bisect_right
from math import factorial, ceil, floor
from operator import mul
from functools import reduce
import pprint
sys.setrecursionlimit(10 ** 9)


INF = 100
def LI(): return list(map(int, sys.stdin.buffer.readline().split()))
def I(): return int(sys.stdin.buffer.readline())
def LS(): return sys.stdin.buffer.readline().rstrip().decode('utf-8').split()
def S(): return sys.stdin.buffer.readline().rstrip().decode('utf-8')
def IR(n): return [I() for i in range(n)]
def LIR(n): return [LI() for i in range(n)]
def SR(n): return [S() for i in range(n)]
def LSR(n): return [LS() for i in range(n)]
def SRL(n): return [list(S()) for i in range(n)]
def MSRL(n): return [[int(j) for j in list(S())] for i in range(n)]
mod = 1000000007


n = I()
print("? " +  " ".join(map(str, [i for i in range(1, n + 1)])))
flg = str(input())
ng = n + 1
ok = 1
while ok + 1 < ng:
    mid = (ok + ng) // 2
    print("? " + " ".join(map(str, [i for i in range(mid, mid + n)])))
    s = str(input())
    if flg != s:
        ng = mid
    else:
        ok = mid


L = [i for i in range(ok + 1, ok + n)]
b_cnt = 0
r_cnt = 0
LL = []
R = []
B = []
if flg == "Red":
    R += [ok]
    B += [ok + n]
else:
    B += [ok]
    R += [ok + n]

for j in range(1, 2 * n + 1):
    if ok <= j <= ok + n:
        continue
    L += [j]
    print("? " + " ".join(map(str, L)))
    L.pop()
    s = str(input())
    if s == "Blue":
        B += [j]
    else:
        R += [j]

LL = B[:n//2] + R[:n//2]
for k in range(ok + 1, ok + n):
    LL += [k]
    print("? " + " ".join(map(str, LL)))
    LL.pop()
    s = str(input())
    if s == "Blue":
        B += [k]
    else:
        R += [k]


ans = [""] * (2 * n)
for b in B:
    ans[b - 1] = "B"
for r in R:
    ans[r - 1] = "R"

print("! " + "".join(map(str, ans)))

Buggy python submission (verdict: Time Limit Exceeded):
from collections import defaultdict, deque, Counter
from heapq import heappush, heappop, heapify
import math
import bisect
import random
from itertools import permutations, accumulate, combinations, product
import sys
import string
from bisect import bisect_left, bisect_right
from math import factorial, ceil, floor
from operator import mul
from functools import reduce
import pprint
sys.setrecursionlimit(10 ** 9)


INF = 100
def LI(): return list(map(int, sys.stdin.buffer.readline().split()))
def I(): return int(sys.stdin.buffer.readline())
def LS(): return sys.stdin.buffer.readline().rstrip().decode('utf-8').split()
def S(): return sys.stdin.buffer.readline().rstrip().decode('utf-8')
def IR(n): return [I() for i in range(n)]
def LIR(n): return [LI() for i in range(n)]
def SR(n): return [S() for i in range(n)]
def LSR(n): return [LS() for i in range(n)]
def SRL(n): return [list(S()) for i in range(n)]
def MSRL(n): return [[int(j) for j in list(S())] for i in range(n)]
mod = 1000000007


n = I()
ans = ["! "] + ["B"] * (2 * n)
L = [i for i in range(1, n + 1)]
print("? " +  " ".join(map(str, L)))
flg = S()
ng = n + 1
ok = 1
while ok + 1 < ng:
    mid = (ok + ng) // 2
    L = [i for i in range(mid, mid + n)]
    print("? " + " ".join(map(str, L)))
    if flg != S():
        ng = mid
    else:
        ok = mid

L = [i for i in range(ok + 1, ok + n)]
b_cnt = 0
r_cnt = 0
LL = []
for j in range(1, 2 * n + 1):
    if ok + 1 <= j < ok + n:
        continue
    L += [j]
    print("? " + " ".join(map(str, L)))
    L.pop()
    s = S()[0]
    ans[j] = s
    if s == "B" and b_cnt < n // 2:
        b_cnt += 1
        LL += [j]
    elif s == "R" and r_cnt < n // 2:
        r_cnt += 1
        LL += [j]

for k in range(ok + 1, ok + n + 1):
    LL += [k]
    print("? " + " ".join(map(str, LL)))
    LL.pop()
    ans[k] = S()[0]


print("".join(map(str, ans)))









Fixed submission:
from collections import defaultdict, deque, Counter
from heapq import heappush, heappop, heapify
import math
import bisect
import random
from itertools import permutations, accumulate, combinations, product
import sys
import string
from bisect import bisect_left, bisect_right
from math import factorial, ceil, floor
from operator import mul
from functools import reduce
import pprint
sys.setrecursionlimit(10 ** 9)


INF = 100
def LI(): return list(map(int, sys.stdin.buffer.readline().split()))
def I(): return int(sys.stdin.buffer.readline())
def LS(): return sys.stdin.buffer.readline().rstrip().decode('utf-8').split()
def S(): return sys.stdin.buffer.readline().rstrip().decode('utf-8')
def IR(n): return [I() for i in range(n)]
def LIR(n): return [LI() for i in range(n)]
def SR(n): return [S() for i in range(n)]
def LSR(n): return [LS() for i in range(n)]
def SRL(n): return [list(S()) for i in range(n)]
def MSRL(n): return [[int(j) for j in list(S())] for i in range(n)]
mod = 1000000007


n = I()
print("? " +  " ".join(map(str, [i for i in range(1, n + 1)])))
flg = str(input())
ng = n + 1
ok = 1
while ok + 1 < ng:
    mid = (ok + ng) // 2
    print("? " + " ".join(map(str, [i for i in range(mid, mid + n)])))
    s = str(input())
    if flg != s:
        ng = mid
    else:
        ok = mid


L = [i for i in range(ok + 1, ok + n)]
b_cnt = 0
r_cnt = 0
LL = []
R = []
B = []
if flg == "Red":
    R += [ok]
    B += [ok + n]
else:
    B += [ok]
    R += [ok + n]

for j in range(1, 2 * n + 1):
    if ok <= j <= ok + n:
        continue
    L += [j]
    print("? " + " ".join(map(str, L)))
    L.pop()
    s = str(input())
    if s == "Blue":
        B += [j]
    else:
        R += [j]

LL = B[:n//2] + R[:n//2]
for k in range(ok + 1, ok + n):
    LL += [k]
    print("? " + " ".join(map(str, LL)))
    LL.pop()
    s = str(input())
    if s == "Blue":
        B += [k]
    else:
        R += [k]


ans = [""] * (2 * n)
for b in B:
    ans[b - 1] = "B"
for r in R:
    ans[r - 1] = "R"

print("! " + "".join(map(str, ans)))

Buggy python submission (verdict: Time Limit Exceeded):
from collections import defaultdict, deque, Counter
from heapq import heappush, heappop, heapify
import math
import bisect
import random
from itertools import permutations, accumulate, combinations, product
import sys
import string
from bisect import bisect_left, bisect_right
from math import factorial, ceil, floor
from operator import mul
from functools import reduce
import pprint
sys.setrecursionlimit(10 ** 9)


INF = 100
def LI(): return list(map(int, sys.stdin.buffer.readline().split()))
def I(): return int(sys.stdin.buffer.readline())
def LS(): return sys.stdin.buffer.readline().rstrip().decode('utf-8').split()
def S(): return sys.stdin.buffer.readline().rstrip().decode('utf-8')
def IR(n): return [I() for i in range(n)]
def LIR(n): return [LI() for i in range(n)]
def SR(n): return [S() for i in range(n)]
def LSR(n): return [LS() for i in range(n)]
def SRL(n): return [list(S()) for i in range(n)]
def MSRL(n): return [[int(j) for j in list(S())] for i in range(n)]
mod = 1000000007


n = I()
ans = ["! "] + ["B"] * (2 * n)
L = [i for i in range(1, n + 1)]
print("? " +  " ".join(map(str, L)))
flg = S()
ng = n + 1
ok = 1
while ok + 1 < ng:
    mid = (ok + ng) // 2
    L = [i for i in range(mid, mid + n + 1)]
    print("? " + " ".join(map(str, L)))
    if flg != S():
        ng = mid
    else:
        ok = mid

L = [i for i in range(ok + 1, ok + n + 1)]
b_cnt = 0
r_cnt = 0
for j in range(1, 2 * n + 1):
    if ok + 1 < j < ok + n + 1:
        continue
    L += [j]
    print("? " + " ".join(map(str, L)))
    s = S()[0]
    ans[j] = s
    LL = []
    if s == "B" and b_cnt < n // 2:
        b_cnt += 1
        LL += [j]
    elif s == "R" and r_cnt < n // 2:
        r_cnt += 1
        LL += [j]
    for k in range(ok + 1, ok + n + 1):
        LL += [k]
        print("? " + " ".join(map(str, L)))
        ans[k] = S()[0]


print("! " + "".join(map(str, ans)))














L.pop()










Fixed submission:
from collections import defaultdict, deque, Counter
from heapq import heappush, heappop, heapify
import math
import bisect
import random
from itertools import permutations, accumulate, combinations, product
import sys
import string
from bisect import bisect_left, bisect_right
from math import factorial, ceil, floor
from operator import mul
from functools import reduce
import pprint
sys.setrecursionlimit(10 ** 9)


INF = 100
def LI(): return list(map(int, sys.stdin.buffer.readline().split()))
def I(): return int(sys.stdin.buffer.readline())
def LS(): return sys.stdin.buffer.readline().rstrip().decode('utf-8').split()
def S(): return sys.stdin.buffer.readline().rstrip().decode('utf-8')
def IR(n): return [I() for i in range(n)]
def LIR(n): return [LI() for i in range(n)]
def SR(n): return [S() for i in range(n)]
def LSR(n): return [LS() for i in range(n)]
def SRL(n): return [list(S()) for i in range(n)]
def MSRL(n): return [[int(j) for j in list(S())] for i in range(n)]
mod = 1000000007


n = I()
print("? " +  " ".join(map(str, [i for i in range(1, n + 1)])))
flg = str(input())
ng = n + 1
ok = 1
while ok + 1 < ng:
    mid = (ok + ng) // 2
    print("? " + " ".join(map(str, [i for i in range(mid, mid + n)])))
    s = str(input())
    if flg != s:
        ng = mid
    else:
        ok = mid


L = [i for i in range(ok + 1, ok + n)]
b_cnt = 0
r_cnt = 0
LL = []
R = []
B = []
if flg == "Red":
    R += [ok]
    B += [ok + n]
else:
    B += [ok]
    R += [ok + n]

for j in range(1, 2 * n + 1):
    if ok <= j <= ok + n:
        continue
    L += [j]
    print("? " + " ".join(map(str, L)))
    L.pop()
    s = str(input())
    if s == "Blue":
        B += [j]
    else:
        R += [j]

LL = B[:n//2] + R[:n//2]
for k in range(ok + 1, ok + n):
    LL += [k]
    print("? " + " ".join(map(str, LL)))
    LL.pop()
    s = str(input())
    if s == "Blue":
        B += [k]
    else:
        R += [k]


ans = [""] * (2 * n)
for b in B:
    ans[b - 1] = "B"
for r in R:
    ans[r - 1] = "R"

print("! " + "".join(map(str, ans)))