#include <bits/stdc++.h>
using namespace std;
#define a first
#define b second
#define pb push_back
typedef long long llo;
//#define endl '\n'


int n;

int tree[1000001];
vector<pair<int,int>> ans;
void u(int i,int j){
	while(i<=1e6){
		tree[i]+=j;
		i+=(i&-i);
	}
}
int s2(int i){
	int su=0;
	while(i>0){
		su+=tree[i];
		i-=(i&-i);
	}
	return su;
}
set<int> tt;
void pre(int i,int j){
	int x=s2(i)+1;
	int y=s2(j+1);
	//cout<<i<<":"<<j<<endl;
	//cout<<x<<","<<y<<endl;
	if((y-x+1)%2==0){
		for(int j=y;j>=x;j-=2){
			ans.pb({j-1,j});
		}
	}
	else{
		for(int j=y;j>x;j-=2){
			if(j==x+2){
				ans.pb({j-2,j});
			}
			else{
				ans.pb({j-1,j});
			}
		}
	}
	auto jj=tt.lower_bound(i);
	vector<int> ee;
	while(jj!=tt.end()){
		if((*jj)>j){
			break;
		}
		ee.pb((*jj));
		jj++;
	}
	for(auto jj:ee){
		tt.erase(jj);
		u(jj+1,-1);
	}
}
void solve(vector<pair<int,pair<int,int>>> ss){
	if(ss[ss.size()/2].a==1){
			int ind=ss.size()/2;
			int ind2=ss.size()/2;
			while(ind>=0){
				pre(ss[ind].b.a,ss[ind2].b.b);
				ind--;
				ind2++;
			}
		}
		else{
			int ind=-1;
			for(int j=ss.size()/2;j>=0;j--){
				if(ss[j].a==1){
					ind=j;
					break;
				}
			}
			int ind2=-1;
			for(int j=ss.size()/2;j<ss.size();j++){
				if(ss[j].a==1){
					ind2=j;
					break;
				}
			}
			//cout<<ind<<":"<<ind2<<endl;
			if(ind==-1 or ind2==-1){
				cout<<-1<<endl;
				return ;
			}
			if(ind2-ind-1>=(ss.size()/2)){
				cout<<-1<<endl;
				return ;
			}
			int l=ind;
			int r=ss.size();
			r-=ind+1;
			vector<pair<int,int>> xx;
			vector<pair<int,int>> yy;
			int aa=ind2;
			int bb=ind2;
		//	cout<<l<<"?"<<r<<endl;
			while(r>l){
				pre(ss[aa].b.a,ss[bb].b.b);
				aa--;
				bb++;
				r-=2;
			}

			if(aa==bb){
				for(int j=ind+1;j<ss.size();j++){
					xx.pb(ss[j].b);
				}
			}
			else{
				xx.pb(ss[ind].b);
				for(int i=ind+1;i<=aa;i++){
					xx.pb(ss[i].b);
				}
				xx.pb({ss[aa+1].b.a,ss[bb-1].b.a});

				for(int i=bb;i<ss.size();i++){
					xx.pb(ss[i].b);
				}
			}
			//cout<<22<<endl;
			aa=ind;
			llo ind3=0;
			while(aa>=0){
				pre(ss[aa].b.a,xx[ind3].b);
				aa--;
				ind3++;
			}

		}
}
int main(){
	ios_base::sync_with_stdio(false);
	cin.tie(NULL);
	cin>>n;
	vector<pair<int,pair<int,int>>> ss;
	
	string s;
	cin>>s;
	for(int i=0;i<n;i++){
		if(ss.size()==0){
			ss.pb({0,{i,i}});
		}
		else{
			if((s[i]-'A')==s[i-1]-'A'){
				ss[ss.size()-1].a|=1;
				ss[ss.size()-1].b.b+=1;
			}
			else{
				ss.pb({0,{i,i}});
			}
		}
	}

	for(int i=0;i<n;i++){
		u(i+1,1);
		tt.insert(i);
	}
	set<int> ee;
	for(int j=0;j<ss.size();j++){
		if(ss[j].a==1){
			ee.insert(j);
		}
	}
	/*for(auto j:ss){
		cout<<j.a<<":"<<j.b.a<<":"<<j.b.b<<endl;
	}*/
	//return 0;
	if(ss.size()%2==1){
		solve(ss);
	}
	else{
		if(ee.size()<2){
			cout<<-1<<endl;
			return 0;
		}
		int st=0;
		for(int i=0;i<ss.size();i+=2){
			int x=1;
			if(ss[(i+1)/2].a==1){
			}
			else{
				 int j=(*ee.begin());
				 if(j>=(i+1)/2){
				 	x=0;
				 }
				 else{
				 	auto k=ee.lower_bound((i+1)/2);
				 	if(k==ee.end()){
				 		x=0;
				 	}
				 	else{
				 		if((*k)>i){
				 			x=0;
				 		}
				 		else{
				 			if((*k)-j-1>=(i+1)/2){
				 				x=0;
				 			}
				 		}
				 	}
				 }
			}
			int y=1;
			pair<int,int> rr={i+1,ss.size()};
			int mid=(rr.a+rr.b)/2;
			if(ss[mid].a==1){
			}
			else{
				auto j=ee.lower_bound(i+1);
				if(j==ee.end()){
					y=0;
				}
				else{
					if((*j)>=mid){
						y=0;
					}
					else{
						auto k=ee.lower_bound(mid);
						if(k==ee.end()){
							y=0;
						}
						else if((*k)-(*j)-1>=((n-i-1)/2)){
							y=0;
						}
					}
				}
			}
			if(x==1 and y==1){
				st=1;
				//cout<<i<<"::::"<<endl;
				vector<pair<int,pair<int,int>>> xx;
				for(int j=0;j<=i;j++){
					xx.pb(ss[j]);
				}
				solve(xx);
				xx.clear();
				for(int j=i+1;j<ss.size();j++){
					xx.pb(ss[j]);
				}
				solve(xx);
				break;
			}
		}
		if(st==0){
			cout<<-1<<endl;
			return 0;
		}
	}


	cout<<ans.size()<<endl;
	for(auto j:ans){
		cout<<j.a<<" "<<(j.b-j.a+1)<<endl;
	}








	return 0;
}