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