N=1<<int(input())
R=range(N)
M=[[[i%2,[[1,1,1,0],[0,1,0,0],[0,0,1,0],[0,1,1,1]][i][j]][i//4==j//4]for j in R]for i in R]
a=b=0
for i in R:
	for j in R:
		c=M[i][j]
		M[i][j],a,b=c+[a,b][c]*2+(i//2)*N*2,(a+1-c)%N,(b+c)%N
if N<3:M=[[-1]]
for m in M:print(*m)