#include<bits/stdc++.h>
#define LL long long
#define P pair<int,int>
#define fi first
#define se second
#define fr(x) freopen(#x".in","r",stdin);freopen(#x".out","w",stdout);
using namespace std;
const int N=1e3+5;
int n,s[N],L[N],tot;P w[N][3],ans[N*6];
struct node
{
	int t,a[3];
	inline auto& operator[](int x){return a[x];}
	inline int sz(){return 2-t;}
	inline void push(int x){a[t--]=x;}
	inline int top(){return a[t+1];}
	inline int pop(){return a[++t];}
}a[N];
inline int gete(){for(int i=1;i<=n;i++) if(!a[i].sz()) return i;}
inline void upd(int i,int j,int x){s[x]+=j;w[x][L[x]++]={j,i};}
inline bool chk(int i){return s[i]<=3&&(w[i][0].se!=w[i][1].se||w[i][0].se!=w[i][2].se||w[i][1].se!=w[i][2].se)&&!min({w[i][0].fi,w[i][1].fi,w[i][2].fi});}
inline int getc()
{
	for(int i=1;i<=n;i++) s[i]=L[i]=0;
	for(int i=1;i<=n;i++) if(a[i].sz())
		for(int j=0;j<3;j++) upd(i,j,a[i][j]);
	for(int i=1;i<=n;i++) if(chk(i)) return i;
	return -1;
}
inline void mv(int x,int y){int t=a[x].pop();a[y].push(t);ans[++tot]={x,y};}
inline bool pd(int x){x=a[x].sz();return 1<=x&&x<=2;}
int main()
{
	ios::sync_with_stdio(0);cin.tie(0);cout.tie(0);cin>>n;
	for(int i=1;i<=n;i++) a[i].t=-1;a[n+1].t=2;
	for(int i=0;i<3;i++) for(int j=1;j<=n;j++) cin>>a[j][i];n++;
	for(int i=1;i<n-1;i++)
	{
		int z=gete(),c=getc(),b[3];sort(w[c],w[c]+3);
		if(c==-1) break;
		for(int j=0;j<3;j++) b[j]=w[c][j].se;
		mv(b[0],z);int w=b[1];
		while(a[w].top()^c) mv(w,b[0]);
		mv(w,z);w=b[2];
		while(a[w].top()^c) mv(w,b[a[b[0]].sz()==3||b[0]==w]);
		mv(w,z);
		while(pd(b[0])||pd(b[1])||pd(b[2]))
		{
			int t=0,c[3];
			for(int j=0;j<3;j++) if(pd(b[j])) c[++t]=b[j];
			sort(c+1,c+1+t,[](int x,int y){return a[x].sz()<a[y].sz();});
			t=unique(c+1,c+1+t)-c-1;mv(c[1],c[2]);
		}
	}int w=gete();
	if(w!=n) for(int i=1;i<=3;i++) mv(n,w);cout<<tot<<"\n";
	for(int i=1;i<=tot;i++) cout<<ans[i].fi<<" "<<ans[i].se<<"\n";
	return 0;
}