#include<iostream>

#include<cstdio>

#include<cstring>

#include<algorithm>

using namespace std;

const int N=,K=;

int n,sta[N][],a[N][N][N],cnt,ct[K],sum,mx;

int xx[]={-,,,},yy[]={,-,,};

bool vis[N][N],eflag;

void dfs(int cr,int x,int y,int fx)

{

  cnt++;vis[x][y]=;

  int tx=x+xx[fx],ty=y+yy[fx];

  if(!vis[tx][ty]&&a[cr][tx][ty]==a[cr][x][y])

    dfs(cr,tx,ty,fx);

}

void cz(int cr,int x,int y)

{

  if(x>&&a[cr][x-][y]==a[cr][x][y]&&a[cr][x-][y]==a[cr][x][y])

    dfs(cr,x,y,);

  if(y>&&a[cr][x][y-]==a[cr][x][y]&&a[cr][x][y-]==a[cr][x][y])

    dfs(cr,x,y,);

  //上面两个去掉会错？//去掉上面还会变慢？

  if(x<&&a[cr][x+][y]==a[cr][x][y]&&a[cr][x+][y]==a[cr][x][y])

    dfs(cr,x,y,);

  if(y<&&a[cr][x][y+]==a[cr][x][y]&&a[cr][x][y+]==a[cr][x][y])

    dfs(cr,x,y,);

}

void xc(int cr)

{

  int tmp[N][N]={};

  for(int i=;i<=;i++)

    {

      int p0=;

      for(int j=;j<=;j++)

    {

      while(p0<&&vis[i][p0])p0++;

      if(vis[i][p0]||!a[cr][i][p0])break;

      tmp[i][j]=a[cr][i][p0];p0++;

    }

    }

  memcpy(a[cr],tmp,sizeof tmp);

}

void clear(int cr)

{

  while()

    {

      memset(vis,,sizeof vis); cnt=;

      for(int i=;i<=;i++)

    for(int j=;j<=&&a[cr][i][j];j++)

      if(!vis[i][j])cz(cr,i,j);

      if(!cnt)break; xc(cr); sum-=cnt;

    }

}

void calc(int cr,int x,int y,int op)

{

  memcpy(a[cr],a[cr-],sizeof a[cr-]);

  if(a[cr][x+op][y])

    {

      if(a[cr][x][y]==a[cr][x+op][y])return;

      swap(a[cr][x][y],a[cr][x+op][y]);

      clear(cr);  return;

    }

  else

    {

      for(int i=;i<=;i++)

    if(!a[cr][x+op][i])

      {a[cr][x+op][i]=a[cr][x][y];break;}

      for(int i=y;i<=;i++)a[cr][x][i]=a[cr][x][i+];

      clear(cr);  return;

    }

}

bool pan(int cr)

{

  memset(ct,,sizeof ct);

  for(int i=;i<=;i++)

    for(int j=;j<=&&a[cr][i][j];j++)

      ct[a[cr][i][j]]++;

  for(int i=;i<=mx;i++)if(ct[i]==||ct[i]==)return false;

  return true;

}

void solve(int cr)

{

  if(cr>n)

    {

      eflag=!sum; return;

    }

  int ysum=sum;

  for(int i=;i<=;i++)

    for(int j=;j<=&&a[cr-][i][j];j++)

      {

    if(i<&&a[cr-][i][j]!=a[cr-][i+][j])

      {

        calc(cr,i,j,);

        if(pan(cr))

          {

        sta[cr][]=i;sta[cr][]=j;sta[cr][]=;

        solve(cr+); if(eflag)return;

          }

        sum=ysum;

      }

    if(i>&&!a[cr-][i-][j])

      {

        calc(cr,i,j,-);

        if(pan(cr))

          {

        sta[cr][]=i;sta[cr][]=j;sta[cr][]=-;

        solve(cr+); if(eflag)return;

          }

        sum=ysum;

      }

      }

}

int main()

{

  scanf("%d",&n);

  for(int i=;i<=;i++)

    for(int j=;j<=;j++)//

      {

    scanf("%d",&a[][i][j]);

    if(!a[][i][j])break;

    ct[a[][i][j]]++; sum++; mx=max(mx,a[][i][j]);

      }

  if(!pan()){puts("-1");return ;}

  solve();

  if(eflag)

    {

      for(int i=;i<=n;i++)

    printf("%d %d %d\n",sta[i][],sta[i][],sta[i][]);

    }

  else puts("-1");

  return ;

}