/*需要模拟的操作：交换，消除，下落按照出入数据的格式，交换可以看做是和一个数上面的数或下面的数交换交换是有一定条件的：和下面的数交换，需要保证交换的两个数不相等，下面的位置不超过边界和上面的数交换，需要保证上面一行为空（不然与上一步重复，无意义），上面的位置不超过边界
*/
#include<iostream>
#include<cstdio>
#include<cstdlib>
using namespace std;
int n,a[10][10],b[10][10],ans[6][5];
bool judge(){for(int i=1;i<=5;i++)if(a[i][1]!=0)return 0;return 1;
}
void down(){for(int i=1;i<=5;i++)for(int j=1;j<=7;j++){int x=i,y=j;while(a[x][y]&&a[x][y-1]==0&&y-1>=1)swap(a[x][y],a[x][y-1]),y--;}
}
void remove(){down();bool flag=0;for(int i=1;i<=5;i++)for(int j=1;j<=7;j++)b[i][j]=a[i][j];for(int i=1;i<=5;i++)for(int j=1;j<=7;j++){if(b[i][j]==0)break;if(b[i][j]==b[i-1][j]&&b[i][j]==b[i+1][j])flag=1,a[i][j]=a[i-1][j]=a[i+1][j]=0;if(b[i][j]==b[i][j-1]&&b[i][j]==b[i][j+1])flag=1,a[i][j]=a[i][j-1]=a[i][j+1]=0;}if(flag)down(),remove();
}
void dfs(int step){if(step==n+1){if(judge()){for(int i=1;i<=n;i++)printf("%d %d %d\n",ans[i][1]-1,ans[i][2]-1,ans[i][3]);exit(0);}return ;}int c[10][10];for(int i=1;i<=5;i++)for(int j=1;j<=7;j++){if(a[i][j]==0)break;for(int k=1;k<=5;k++)for(int l=1;l<=7;l++)c[k][l]=a[k][l];if(!(a[i][j]==a[i+1][j]||i+1>5)){swap(a[i][j],a[i+1][j]);remove();ans[step][1]=i;ans[step][2]=j;ans[step][3]=1;dfs(step+1);for(int k=1;k<=5;k++)for(int l=1;l<=7;l++)a[k][l]=c[k][l];}if(!(a[i-1][j]!=0||i-1<1)){swap(a[i][j],a[i-1][j]);remove();ans[step][1]=i;ans[step][2]=j;ans[step][3]=-1;dfs(step+1);for(int k=1;k<=5;k++)for(int l=1;l<=7;l++)a[k][l]=c[k][l];}}
}
int main(){freopen("Cola.txt","r",stdin);scanf("%d",&n);int x;for(int i=1;i<=5;i++)while(1){scanf("%d",&x);if(x==0)break;a[i][++a[i][0]]=x;}dfs(1);puts("-1");return 0;
}