main=mapM(putStrLn.(s>>=).f 20 8)s
f m d y x|max x y<m-d=f(m-d)(d-2)y x|0<1=["[]","  "]!!min(mod(x+m)d*mod(y+m)d)1
s=map abs[-20..20]