g={}r=1s=11u=3v=3::_::for k=0,224do
i=k%15j=k\15p=g[i]or i
o=g[j]or j
q=1z=4if(p==s)q=r f=i
if(o==s)z*=r
x=5*u+q*(p%4-u)+z*(o%4-u)<<3y=5*v+q*(p\4-v)+z*(o\4-v)<<3rectfill(x,y,x+6,y+6,(i+j)%15+1)end?"⁶1⁶c"
r-=.1if(r<0)g[f]=u+v*4u=s%4v=s\4while(r!=1or g[f]==s)s=rnd(16)\1r=abs(s%4-u)+abs(s\4-v)
goto _