Problem: This problem is different with easy version only by constraints on total answers length

It is an interactive problem

Venya joined a tour to the madhouse, in which orderlies play with patients the following game. Orderlies pick a string s of length n, consisting only of lowercase English letters. The player can ask two types of queries: 

  * ? l r – ask to list all substrings of s[l..r]. Substrings will be returned in random order, and in every substring, all characters will be randomly shuffled. 
  * ! s – guess the string picked by the orderlies. This query can be asked exactly once, after that the game will finish. If the string is guessed correctly, the player wins, otherwise he loses. 



The player can ask no more than 3 queries of the first type.

To make it easier for the orderlies, there is an additional limitation: the total number of returned substrings in all queries of the first type must not exceed \left⌈ 0.777(n+1)^2 \right⌉ (⌈ x ⌉ is x rounded up).

Venya asked you to write a program, which will guess the string by interacting with the orderlies' program and acting by the game's rules.

Your program should immediately terminate after guessing the string using a query of the second type. In case your program guessed the string incorrectly, or it violated the game rules, it will receive verdict Wrong answer.

Note that in every test case the string is fixed beforehand and will not change during the game, which means that the interactor is not adaptive.

Input

First line contains number n (1 ≤ n ≤ 100) — the length of the picked string.

Interaction

You start the interaction by reading the number n.

To ask a query about a substring from l to r inclusively (1 ≤ l ≤ r ≤ n), you should output

? l r

on a separate line. After this, all substrings of s[l..r] will be returned in random order, each substring exactly once. In every returned substring all characters will be randomly shuffled.

In the case, if you ask an incorrect query, ask more than 3 queries of the first type or there will be more than \left⌈ 0.777(n+1)^2 \right⌉ substrings returned in total, you will receive verdict Wrong answer.

To guess the string s, you should output

! s

on a separate line.

After printing each query, do not forget to flush the output. Otherwise, you will get Idleness limit exceeded. To flush the output, you can 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. 



If you received - (dash) as an answer to any query, you need to terminate your program with exit code 0 (for example, by calling exit(0)). This means that there was an error in the interaction protocol. If you don't terminate with exit code 0, you can receive any unsuccessful verdict. 

Hack format

To hack a solution, use the following format:

The first line should contain one integer n (1 ≤ n ≤ 100) — the length of the string, and the following line should contain the string s.

Example

Input


4

a
aa
a

cb
b
c

c

Output


? 1 2

? 3 4

? 4 4

! aabc

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const long long mod = 1000000007;
const unsigned gen_seed =
    std::chrono::system_clock::now().time_since_epoch().count();
std::mt19937_64 gen(gen_seed);
char c[1000];
std::vector<string> req(int l, int r) {
  printf("? %d %d\n", l + 1, r + 1);
  fflush(stdout);
  int k = r - l + 1;
  std::vector<string> ret;
  for (int i = 0; i < k * (k + 1) / 2; i++) {
    scanf("%s", c);
    ret.push_back(string(c));
  }
  return ret;
}
std::vector<std::vector<int> > getpairs(int n, const std::vector<string>& a) {
  vector<std::vector<string> > byl(101);
  for (auto x : a) byl[x.size()].push_back(x);
  for (int i = 0; i < 100; i++)
    for (auto& x : byl[i]) sort((x).begin(), (x).end());
  std::vector<std::vector<int> > simp;
  for (int l = 0; l < n / 2; l++) {
    int r = n - 1 - l;
    int len = r + 1;
    std::vector<int> cnt(26, 0);
    for (auto s : byl[r])
      for (auto x : s) cnt[x - 'a']++;
    for (int i = 0; i < l; i++)
      for (auto x : simp[i]) cnt[x] += l + 1 - i;
    for (auto x : byl[n][0]) cnt[x - 'a'] -= (l + 2);
    simp.push_back(std::vector<int>());
    for (int i = 0; i < 26; i++)
      while (cnt[i] < 0) {
        cnt[i]++;
        simp.back().push_back(i);
      }
  }
  std::vector<int> ans(n);
  int pt = 0;
  while (pt < simp.size() && simp[pt][0] == simp[pt][1]) {
    ans[pt] = char('a' + simp[pt][0]);
    ans[n - 1 - pt] = ans[pt];
    pt++;
  }
  if (n % 2 == 1) {
    std::vector<int> cnt(26, 0);
    for (auto x : byl[n][0]) cnt[x - 'a'] += 1;
    for (auto x : simp)
      for (auto y : x) cnt[y]--;
    for (int i = 0; i < 26; i++)
      if (cnt[i]) simp.push_back(std::vector<int>(2, i));
  }
  return simp;
}
std::vector<int> solve(int n, std::vector<std::vector<int> >& simp,
                       std::vector<std::vector<int> >& simpn, int a0) {
  std::vector<int> ans(n);
  ans[0] = a0;
  ans[n - 1] = simpn[0][0];
  if (simpn[0][0] == ans[0]) ans[n - 1] = simpn[0][1];
  int pt = 0;
  while (2 * pt <= n - 2) {
    ans[n - 2 - pt] = simp[pt][0];
    if (simp[pt][0] == ans[pt]) ans[n - 2 - pt] = simp[pt][1];
    if (n - 2 - pt <= pt + 1) break;
    ans[pt + 1] = simpn[pt + 1][0];
    if (simpn[pt + 1][0] == ans[n - 2 - pt]) ans[pt + 1] = simpn[pt + 1][1];
    pt++;
  }
  return ans;
}
int n;
int main() {
  scanf("%d", &n);
  if (n <= 3) {
    string ans;
    for (int i = 0; i < n; i++) {
      std::vector<string> a = req(i, i);
      ans = ans + a[0];
    }
    cout << "! " << ans;
    return 0;
  }
  int k = n / 3;
  int l, r;
  if (n % 3 == 0) {
    r = 2 * k - 1;
    l = k;
  } else if (n % 3 == 1) {
    r = 2 * k;
    l = k + 1;
  } else if (n % 3 == 2) {
    r = 2 * k + 1;
    l = k + 2;
  }
  std::vector<string> a1 = req(0, r);
  std::vector<string> a2 = req(0, r - 1);
  std::vector<string> a3 = req(l, n - 1);
  std::vector<std::vector<int> > simp1 = getpairs(r + 1, a1);
  std::vector<std::vector<int> > simp2 = getpairs(r, a2);
  std::vector<std::vector<int> > simp3 = getpairs(n - l, a3);
  int pt1 = 0, pt2 = 0;
  while (a1[pt1].size() != r + 1) pt1++;
  while (a2[pt2].size() != r) pt2++;
  std::vector<int> cnt(26, 0);
  for (auto x : a1[pt1]) cnt[int(x - 'a')]++;
  for (auto x : a2[pt2]) cnt[int(x - 'a')]--;
  int cr = 0;
  while (cnt[cr] == 0) cr++;
  if (cr == simp1[0][0])
    cr = simp1[0][1];
  else
    cr = simp1[0][0];
  std::vector<int> ans = solve(r + 1, simp2, simp1, cr);
  while (ans.size() < n) ans.push_back('*');
  for (int i = 0; i < simp3.size(); i++) {
    int pl = l + i;
    int pr = n - 1 - i;
    if (pr == pl)
      ans[pl] = simp3[i][0];
    else {
      ans[pr] = simp3[i][0];
      if (ans[pl] == simp3[i][0]) ans[pr] = simp3[i][1];
    }
  }
  cout << "! ";
  for (int i = 0; i < n; i++) cout << char('a' + ans[i]);
}