q=128
function s(x,y,w)
c+=.001if(w<5+c)pset(x,y,8)pset(x+c,y,12)return
w/=3for v=0,2do for u=0,2do
if(u&v&1<1)s(x+u*w,y+v*w,w)
end end end
::_::cls()q*=1.01if(q>128*3)q/=3
c=0s(0,0,q)flip()goto _