c=cos::_::for z=0,191do
u=z%12v=z\12x=.5+v%2*6+u*12y=.5+v*10r=((64-x)^2+(64-y)^2)^.5q=t()/4+c(r/80)h=mid(c(r/999-t()/4)*10,2)\1for i=0,2do
a=mid(1,2+c(q)*5,3)/12+i/3j=x+c(a)*7k=y+sin(a)*7for i=-h,h do
line(x,y-i,j,k-i,i==h and 7or 7+sgn(i)*6)end end end?"\^1\^c3"
goto _