program majority_of_balls
  implicit none
  integer :: n, d, l, r, m, i, j
  character(1) :: f, t
  character(200) :: c = ''
  read(*,*) n
  d = 2 * n
  l = 1
  r = n + 1
  write(*,'(a)',advance='no') '?'
  do i = 1, n
    write(*,'(x,i0)',advance='no') i
  end do
  write(*,*)
  read(*,*) f
  do while (r - l > 1)
    m = (l + r) / 2
    write(*,'(a)',advance='no') '?'
    do i = 1, n
      write(*,'(x,i0)',advance='no') m + i - 1
    end do
    write(*,*)
    read(*,*) t
    if (t == f) then
      l = m
    else
      r = m
    end if
  end do
  c(1:2) = '! '
  do i = 1, d
    if (i == l) then
      t = f
    else if (i == l + n) then
      t = merge('B', 'R', f == 'R')
    else if (l < i .and. i < l + n) then
      write(*,'(a)',advance='no') '?'
      write(*,'(x,i0)',advance='no') i
      do j = 1, n - 1
        write(*,'(x,i0)',advance='no') merge(-n + l + j, n + l + j, n + l + j > d)
      end do
      write(*,*)
      read(*,*) t
    else
      write(*,'(a)',advance='no') '?'
      write(*,'(x,i0)',advance='no') i
      do j = 1, n - 1
        write(*,'(x,i0)',advance='no') l + j
      end do
      write(*,*)
      read(*,*) t
    end if
    c(i + 2:i + 2) = t
  end do
  write(*,'(a)') trim(c)
end program majority_of_balls