#include<bits/stdc++.h>
#define Gc() getchar() 
#define Me(x,y) memset(x,y,sizeof(x))
#define Mc(x,y) memcpy(x,y,sizeof(x))
#define d(x,y) ((m)*(x-1)+(y))
#define R(n) (rnd()%(n)+1)
#define Pc(x) putchar(x)
#define LB lower_bound
#define UB upper_bound
#define fi first
#define se second
using namespace std;using ll=long long;using db=double;using lb=long db;using ui=unsigned;using ull=unsigned long long;using pii=pair<int,int>;using LL=__int128;
const int N=2e5+5,M=N*100+5,K=600+5,mod=1e9+7,Mod=mod-1;const db eps=1e-9;const int INF=1e9+7;mt19937 rnd(263082);
int n;
vector<tuple<int,int,int> > ans;
void Do(int x,int y,int z){ans.emplace_back(x,y,z);}
void Solve(){
	int i,j;scanf("%d",&n);
	int m=1;
	if(n==1){

	}else if(n<=2){
		Do(m+1,m,m+1);Do(2000,2000,2000);Do(2000,2000,2000);Do(2000,2000,2000);
	}else if(n<=4){
		Do(m+1,m,m+1);Do(m+3,m+2,m+3);Do(2000,2000,2000);Do(2000,2000,2000);
		Do(m+2,m+1,m+2);Do(m+3,m+1,m+3);Do(2000,2000,2000);Do(2000,2000,2000);
	}else if(n<=8){
		Do(m+1,m,m+1);Do(m+3,m+2,m+3);Do(m+5,m+4,m+5);Do(m+7,m+6,m+7);
		Do(m+2,m+1,m+2);Do(m+3,m+1,m+3);Do(m+6,m+5,m+6);Do(m+7,m+5,m+7);
		Do(m+4,m+3,m+4);Do(m+5,m+3,m+5);Do(m+6,m+3,m+6);Do(m+7,m+3,m+7);
	}else if(n<=11){
		Do(m+1,m,m+1);Do(m+3,m+2,m+3);Do(m+5,m+4,m+5);Do(m+8,m+7,m+8);
		Do(m+2,m+1,m+2);Do(m+3,m+1,m+3);Do(m+6,m+5,m+6);Do(m+9,m+8,m+9);
		Do(m+4,m+3,m+4);Do(m+5,m+3,m+5);Do(m+6,m+3,m+6);Do(m+10,m+9,m+10);
		Do(m+7,m+6,m+7);Do(m+8,m+6,m+8);Do(m+9,m+6,m+9);Do(m+10,m+6,m+10);
	}else if(n<=13){
		Do(m+1,m,m+1);Do(m+4,m+3,m+4);Do(m+7,m+6,m+7);Do(m+10,m+9,m+10);
		Do(m+2,m+1,m+2);Do(m+5,m+4,m+5);Do(m+8,m+7,m+8);Do(m+11,m+10,m+11);
		Do(m+3,m+2,m+3);Do(m+4,m+2,m+4);Do(m+5,m+2,m+5);Do(m+12,m+11,m+12);
		Do(m+6,m+5,m+6);Do(m+7,m+5,m+7);Do(m+8,m+5,m+8);Do(2000,2000,2000);
		Do(m+9,m+8,m+9);Do(m+10,m+8,m+10);Do(m+11,m+8,m+11);Do(m+12,m+8,m+12);
	}else{
		if((n-2)%5<=1) n=(n-2)/5*5+3;
		else n=(n-2)/5*5+6;
		int x=(n-1)/5+1;
		int R=x+1;
		for(i=1;i<x;i++){
			Do(i+1,i,i+1);
			for(j=1;j<=3;j++){
				Do(R+1,R,R+1);
				R+=4;if(R>=n) R=x+(R-x)%4+1;
			}
		}
		for(i=x+1;i<=n;i+=4){
			if(R<=n&&n%5==3) Do(R+1,R,R+1),R+=4;
			for(j=min(i+3,n);j>=i;j--) Do(j,i-1,j);
		}
		while(ans.size()%4) Do(2000,2000,2000);
	}
	printf("%d\n",ans.size()/4);
	for(auto i:ans){
		int x,y,z;tie(x,y,z)=i;
		printf("%d %d %d\n",x,y,z);
	}
}
int main(){
	int t=1;
	// scanf("%d",&t);
	while(t--) Solve();
	cerr<<clock()*1.0/CLOCKS_PER_SEC<<'\n';
}