o=14cls()n={peek(24322,o)}e=rnd
d=o for o=1,o do pal(o,del(n,e(n))+e{0,128},1)f=d 
d=2+e(62)\1*2pset(d,f,e(4))end
::▒::for o=1,2000do d=f f=2+e(62)\1*2
if(pget(d,f)<1)r=e(4)\1/4x,i=cos(r),sin(r)h=pget(d+x*2,f+i*2)pset(d,f,h)pset(d+x,f+i,h)
end flip()goto ▒