main=interact f
f(a:b)=unlines[[b!!(0^(mod x m*mod(x+2*y)m))|x<-[-y..m*n]]|let n=read[a]-1;m=2*n,y<-[0..n]]