#define F(a,b,c)for a:=b to c do
var a:array[byte,byte]of string;n,d,x,i,j,k,l:comp=1;begin
d:=4;repeat
n:=d*2;F(i,0,d)F(j,0,d)if[0,d]*[i,j]>[]then
F(k,1,n-1)F(l,1,n-1)a[x+n*i+k,x+n*j+l]:="  ";x:=x+n;dec(d)until
d=0;F(i,1,41)F(j,1,41)write(a[i,j]+"[]":2,^j:j div 41)end.