ll f(ll a,ll b){
	return gcd(a,b)!=1?0:(a-1)*(b-1);
}
{
	ll@n;
	if(n==2){
		ll@a,@b;
		wt(f(a,b));
		wt(1,2);
	}
	if(n==3){
		ll@a,@b,@c;
		ll x=f(f(b,c),a);
		ll y=f(f(a,c),b);
		ll z=f(f(a,b),c);
		if(x<y&&x<z){
			wt(x);
			wt(2,3);
			wt(1,2);
		}else if(y<z){
			wt(y);
			wt(1,3);
			wt(1,2);
		}else{
			wt(z);
			wt(1,2);
			wt(1,2);
		}
	}
	if(n>3){
		wt(0);
		rep(i,n-1){
			wt(1,2);
		}
	}
}