// what is matter? never mind. 
#pragma GCC optimize("Ofast")
#pragma GCC optimize("unroll-loops")
//#pragma GCC target("sse,sse2,sse3,sse4,popcnt,abm,mmx,avx,avx2") 
#include<bits/stdc++.h>
#define For(i,a,b) for(int i=(a);i<=(b);++i)
#define Rep(i,a,b) for(int i=(a);i>=(b);--i)
#define ll long long
#define ull unsigned long long
using namespace std;
inline int read()
{
	char c=getchar();int x=0;bool f=0;
	for(;!isdigit(c);c=getchar())f^=!(c^45);
	for(;isdigit(c);c=getchar())x=(x<<1)+(x<<3)+(c^48);
	if(f)x=-x;return x;
}

#define fi first
#define se second
#define pb push_back
#define mkp make_pair
typedef pair<int,int>pii;
typedef vector<int>vi;

#define maxn 500005
#define inf 0x3f3f3f3f

int n,k,a[maxn];
int g[5005][5005];

signed main()
{
	cin>>n;
	k=n/3;
	For(i,0,k-1)a[i]=i/2+i%2*((k+1)/2)+1;
//	For(i,0,k-1)cout<<a[i]<<" \n"[i==k-1];
	if(n%6==3){
		k=n/3;
		For(i,0,k-1)a[i]=i/2+i%2*(k/2+1)+1;
		For(i,1,k)cout<<i<<" "<<i+k<<" "<<i+k*2<<"\n";
		For(i,1,k)For(j,i+1,k)For(c,0,2)cout<<i+c*k<<" "<<j+c*k<<" "<<a[(i+j-2)%k]+(c+1)%3*k<<"\n";
	}
	For(i,0,k-1)For(j,i+1,k-1){
		int x=a[(i+j)%k];
		g[i][x]++;
		g[j][x]++;
		For(c,0,2)cout<<i+c*k+1<<" "<<j+c*k+1<<" "<<x+(c+1)%3*k+1<<"\n";
	}
//	For(i,0,k-1)For(j,0,k-1)cout<<g[i][j]<<" \n"[j==k-1];
	For(i,1,k/2)cout<<i<<" "<<i+k<<" "<<i+k*2<<"\n";
	For(i,1,k/2)For(c,0,2)cout<<n<<" "<<i+k/2+c*k<<" "<<i+(c+1)%3*k<<"\n";
	return 0;
}
/*

*/