#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.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).