#include<bits/stdc++.h>
using namespace std;
const int N=1e6+5;
int n,ln[N],m,a[N],c,s[N];
char S[N];
vector<pair<int,int> >ans;
void print(){
	printf("%d\n",ans.size());
	for(auto [x,y]:ans)printf("%d %d\n",x,y);
}
void add(int x,int y){
	ans.push_back({x,y});
}
void del(int u){
	int p=s[u-1]+1;
	while(ln[u]>4){
		add(p,3);
		ln[u]-=3;
	}
	if(ln[u]==4)add(p,2),add(p,2);
	else if(ln[u]==3)add(p,3);
	else add(p,2);
}
bool check(int l,int r){
	int mid=l+r>>1;
	int u=upper_bound(a+1,a+c+1,mid)-a-1;
	if(a[u]<l)return false;
	if(a[u]==mid)return true;
	if(a[u+1]>r)return false;
	if(mid-a[u]<a[u+1]-mid){
		if(r-a[u+1]<mid-a[u])return false;
	}else{
		if(a[u]-l<a[u+1]-mid)return false;
	}
	return true;
}
bool cutl(){
	int p=1;
	while(a[p]*2<=m&&!check(a[p]*2,m))++p;
	if(a[p]*2>m)return false;
	int u=a[p];
	del(u);
	int nm=u+1;
	for(int i=u-1,j=u+1;i;--i,++j){
		ln[i]+=ln[j];
		del(i);
		nm=j+1;
	}
	for(int i=nm;i<=m;++i)ln[i-nm+1]=ln[i];
	c=0,m=m-nm+1;
	for(int i=1;i<=m;++i)if(ln[i]>1)a[++c]=i;
	for(int i=1;i<=m;++i)s[i]=s[i-1]+ln[i];
	return true;
}
bool cutr(){
	int p=c;
	while(a[p]*2>m&&!check(1,m-2*(m-a[p])-1))--p;
	if(a[p]*2<=m)return false;
	int u=a[p];
	del(u);
	int nm=u-1;
	for(int i=u+1,j=u-1;i<=m;++i,--j){
		ln[j]+=ln[i];
		del(j);
		nm=j-1;
	}
	c=0,m=nm;
	for(int i=1;i<=m;++i)if(ln[i]>1)a[++c]=i;
	return true;
}
void Del(int c,int p){
	int l=p,r=p;
	for(;c;++r,--l,--c){
		ln[l-1]+=ln[r+1];
		del(l);
	}
	int nm=l;
	for(int i=l+1,j=r+1;j<=m;++i,++j){
		nm=i;
		ln[i]=ln[j];
	}
	m=nm,c=0;
	for(int i=1;i<=m;++i)if(ln[i]>1)a[++c]=i;
	for(int i=1;i<=m;++i)s[i]=s[i-1]+ln[i];
}
void solve(){
	assert(m&1);
	int o=1,mid=(m+1)/2;
	while(a[o+1]<=mid)++o;
	if(a[o]!=mid){
		if(mid-a[o]<a[o+1]-mid)Del(mid-a[o],a[o+1]);
		else Del(a[o+1]-mid,a[o]);
	}
	o=1,mid=(m+1)/2;
	while(a[o+1]<=mid)++o;
	assert(a[o]==mid);
	for(int i=a[o],j=a[o];i;--i,++j){
		ln[i-1]+=ln[j+1];
		del(i);
	}
	print();
}
int main(){
	scanf("%d%s",&n,S+1);
	for(int i=1,j;j=i,i<=n;i=j+1){
		while(j<n&&S[j+1]==S[i])++j;
		ln[++m]=j-i+1,s[m]=s[m-1]+ln[m];
		if(ln[m]>1)a[++c]=m;
	}
	a[c+1]=m+1;
	if(!c)return puts("-1"),0;
	if(!(m&1)){
		if(cutl()){
			solve();
			return 0;
		}
		if(cutr()){
			solve();
			return 0;
		}
		puts("-1");
		return 0;
	}
	if(check(1,m))solve();
	else puts("-1");
	return 0;
}