#include<bits/stdc++.h>
#define ffor(i,a,b) for(int i=(a);i<=(b);i++)
#define roff(i,a,b) for(int i=(a);i>=(b);i--)
using namespace std;
const int MAXN=50000+10;
int n;
struct UNION {
	int fa[MAXN],sze[MAXN];
	bitset<MAXN> bt[MAXN];
	int find(int k) {
		return (fa[k]==k)?k:(fa[k]=find(fa[k]));	
	}
	void init(void) {
		ffor(i,1,n) fa[i]=i,sze[i]=1,bt[i][0]=bt[i][i]=1,bt[i]=~bt[i];
		return ; 
	}
	void merge(int u,int v) {
		u=find(u),v=find(v);
		if(u==v) return ;
		if(sze[u]<sze[v]) swap(u,v);
		fa[v]=u,sze[u]+=sze[v];
		bt[u]&=bt[v];
		return ;
	}
}r,b;
vector<pair<int,int>> R,B;
int main() {
	cin>>n;
	r.init(),b.init();
	ffor(i,1,n) {
		while(1) {
			bitset<MAXN> bt=r.bt[r.find(i)]&b.bt[b.find(i)];
			if(!bt.count()) break ;
			int j=bt._Find_first();
			if(j>i) break ; 
			cout<<"? "<<i<<' '<<j<<endl,cout.flush();
			char col;
			cin>>col;
			if(col=='R') r.merge(i,j),R.push_back({i,j});
			else b.merge(i,j),B.push_back({i,j});
		}
	}
	if(R.size()!=n-1) swap(R,B);
	cout<<"!\n";
	for(auto pr:R) cout<<pr.first<<' '<<pr.second<<'\n';
	cout<<endl,cout.flush();
	return 0;
}