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