ll@N,i=N%3,b=i<2,A[4N]={1,4-2b,4,11},B[4N]={3+4b,6+3b,10,12},C[4N]={5+3b,2+3b,6,3};if(N<2)wt(-1);else{i+=(i==1)*3-1;while(++i<N)A[i]=i+1,B[i]=i+6,C[i]=i+3,A[++i]=i+1,B[i]=i+7,C[i]=i+3,A[++i]=i+7,B[i]=i+5,C[i]=i+3;wt(A(N),B(N),C(N));}