N=1<<int(input())
R=range(N)
for m in[[[[i%2+j*2,(58407>>(i%4*4+j%4))%2+(j-j%4+(3830337252>>(i%4*8+j%4*2))%4)*2][i//4==j//4]+N*(i-i%2)for j in R]for i in R],[[-1]]][N<3]:print(*m)