#include <cstdio>
#include <cstring>
#include <algorithm>
#include <cassert>
using namespace std;

const int MAX_ROW = 10, MAX_COL = 10;
const int TotX = 5, TotY = 7;
int N;

struct Matrix
{
	int A[MAX_ROW][MAX_COL];

private:
	int GetHorSum(int x, int y)
	{
		int color = A[x][y];
		int ans = 1;
		for (int i = x - 1; i >= 0 && A[i][y] == color; i--)
			ans++;
		for (int i = x + 1; i < TotX && A[i][y] == color; i++)
			ans++;
		return ans;
	}

	int GetVerSum(int x, int y)
	{
		int color = A[x][y];
		int ans = 1;
		for (int i = y + 1; i < TotY && A[x][i] == color; i++)
			ans++;
		for (int i = y - 1; i >= 0 && A[x][i] == color; i--)
			ans++;
		return ans;
	}

	void DropOne(int x, int y)
	{
		if (A[x][y])
			for (int i = y - 1; i >= 0 && !A[x][i]; i--)
				swap(A[x][i], A[x][i + 1]);
	}

	void DropAll()
	{
		for (int x = 0; x < TotX; x++)
			for (int y = 0; y < TotY; y++)
				DropOne(x, y);
	}

	void RemoveHor(int, int);
	void RemoveVer(int, int);

	bool Remove(int x, int y)
	{
		if (GetHorSum(x, y) >= 3)
		{
			RemoveHor(x, y);
			DropAll();
			return true;
		}
		if (GetVerSum(x, y) >= 3)
		{
			RemoveVer(x, y);
			DropAll();
			return true;
		}
		return false;
	}

	bool Search_Remove()
	{
		for (int x = 0; x < TotX; x++)
			for (int y = 0; y < TotY && A[x][y]; y++)
				if (Remove(x, y))
					return true;
		return false;
	}

	void RemoveAll()
	{
		while (Search_Remove());
	}

public:
	Matrix operator = (const Matrix& a)
	{
		memcpy(A, a.A, sizeof(a.A));
		return *this;
	}

	bool operator == (const Matrix& a) const
	{
		return !memcmp(A, a.A, sizeof(A));
	}

	bool Empty()
	{
		for (int x = 0; x < TotX; x++)
			if (A[x][0])
				return false;
		return true;
	}

	Matrix Move(int x, int y, int dir)
	{
		Matrix ans;
		ans = *this;
		assert(ans.A[x][y]);
		assert(x + dir < TotX && x + dir >= 0);
		if (ans.A[x + dir][y])
			swap(ans.A[x][y], ans.A[x + dir][y]);
		else
		{
			swap(ans.A[x][y], ans.A[x + dir][y]);
			ans.DropAll();
		}
		ans.RemoveAll();
		return ans;
	}
};

void Matrix::RemoveHor(int x, int y)
{
	int color = A[x][y];
	A[x][y] = 0;
	for (int i = x - 1; i >= 0 && A[i][y] == color; i--)
	{
		if (GetVerSum(i, y) >= 3)
			RemoveVer(i, y);
		A[i][y] = 0;
	}
	for (int i = x + 1; i < TotX && A[i][y] == color; i++)
	{
		if (GetVerSum(i, y) >= 3)
			RemoveVer(i, y);
		A[i][y] = 0;
	}
}

void Matrix::RemoveVer(int x, int y)
{
	int color = A[x][y];
	A[x][y] = 0;
	for (int i = y - 1; y >= 0 && A[x][i] == color; i--)
	{
		if (GetHorSum(x, i) >= 3)
			RemoveHor(x, i);
		A[x][i] = 0;
	}
	for (int i = y + 1; y < TotY && A[x][i] == color; i++)
	{
		if (GetHorSum(x, i) >= 3)
			RemoveHor(x, i);
		A[x][i] = 0;
	}
}


struct State
{
	Matrix mat;
	int X, Y, Dir;
}States[10];

bool Ok(int cnt)
{
	for (int i = 0; i < cnt; i++)
		if (States[i].mat == States[cnt].mat)
			return false;
	return true;
}

int Dfs(int cnt)
{
	if (cnt > N)
		return -1;
	for (int x = 0; x < TotX; x++)
		for (int y = 0; y < TotY && States[cnt - 1].mat.A[x][y]; y++)
		{
			States[cnt].X = x;
			States[cnt].Y = y;
			const Matrix& matFrom = States[cnt - 1].mat;
			if (x <= TotX - 2 && matFrom.A[x + 1][y] != matFrom.A[x][y])
			{
				States[cnt].Dir = 1;
				States[cnt].mat = States[cnt - 1].mat.Move(x, y, 1);
				if (States[cnt].mat.Empty())
					return cnt;
				if (Ok(cnt))
				{
					int nextAns = Dfs(cnt + 1);
					if (nextAns > -1)
						return nextAns;
				}
			}
			if (x >= 1 && !matFrom.A[x - 1][y])
			{
				States[cnt].Dir = -1;
				States[cnt].mat = States[cnt - 1].mat.Move(x, y, -1);
				if (States[cnt].mat.Empty())
					return cnt;
				if (Ok(cnt))
				{
					int nextAns = Dfs(cnt + 1);
					if (nextAns > -1)
						return nextAns;
				}
			}
		}
	return -1;
}

int main()
{
	scanf("%d", &N);
	for (int x = 0; x < TotX; x++)
		for (int y = 0; scanf("%d", &States[0].mat.A[x][y]) && States[0].mat.A[x][y]; y++);

	int cnt = Dfs(1);
	if (cnt == -1)
		printf("-1\n");
	else
	{
		for (int i = 1; i <= cnt; i++)
			printf("%d %d %d\n", States[i].X, States[i].Y, States[i].Dir);
	}
	return 0;
}