m,z,t,c,l,s=55,127,0,circfill,line,sin::_::cls(0)for i=-6,6 do
c(m-i*3+s(i*t/z),80+i*6,12-i*i,7)l(46+i,90,41,115,7)c(60,m,9)l(66+i/6,48+i/7,87,36,1)end
?"●",m,50,1
for i=0,z do
l(m-sqrt(i),66+i/8,m+s((t-i/9)/z)*50,66+i/m-s(t/z*2)*9,3)l(z+4,3,90+i/9,9+i/4,8)end
t+=4
flip()goto _