f=->i,j,m{m<2?j:[f[i%n=m/2,j-=n,n],~f[j%n,i,n]][j/m]}
s' '+?_*~-(4*n=1<<gt.he),n.mp{|i|?|+(n*2).mp{|j|'__ '[r=f[i,j,n]]+'_||'[r]}.j}