#include<bits/stdc++.h>
using namespace std;
const int N=1e6+5;
int n,ln[N],m,a[N],c,s[N],Ln[N],M;
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 work1(){
	int u=a[1];
	if(u-1!=m-u)return false;
	del(u);
	for(int i=u-1;i;--i)add(i,2);
	return true;
}
bool check(){
	if(!c)return false;
	if(c==1){
		if(!work1())return false;
		print();
		exit(0);
	}
	a[c+1]=m+1;
	int mx=a[1]-1;
	for(int i=1;i<=c;++i)mx=max(mx,a[i+1]-a[i]-1);
	if(mx*2+1>m)return false;
	return true;
}
void cutl(){
	int u=a[1];
	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];
}
void cutr(){
	int u=a[c];
	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;
}
bool Del(int c,int p){
	int l=p,r=p;
	for(;c;++r,--l,--c){
		ln[l-1]+=ln[r+1];
		if(l-1<1||r+1>m)return false;
		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];
	return true;
}
bool solve(){
	if(!check())return false;
	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){
			if(!Del(mid-a[o],a[o+1]))return false;
		}
		else{
			if(!Del(a[o+1]-mid,a[o]))return false;
		}
	}
	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();
	return true;
}
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;
	}
	if(!check())return puts("-1"),0;
	if(!(m&1)){
		M=m;
		for(int i=1;i<=m;++i)Ln[i]=ln[i];
		cutl();
		if(solve())return 0;
		ans.clear();
		m=M,c=0;
		for(int i=1;i<=m;++i)ln[i]=Ln[i];
		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];
		cutr();
		if(solve())return 0;
		puts("-1");
		return 0;
	}
	if(!solve())puts("-1");
	return 0;
}