z,g,s,r,f=128,pget,pset,rnd,flr
cls(0)
for i=1,9 do
x=f(r(z))y=f(r(z))
s(x,y,8)
end
::_::
for i=1,z do
x=f(r(z))y=f(r(z))
c=g(x,y)
a=g(x+1,y)+g(x-1,y)+g(x,y+1)+g(x,y-1)
if(c>1)then
s(x,y,c-1)elseif(c==1)then
elseif(a>4 and r(a)>4)then
s(x,y,8)end
end
flip()
goto _