pal({11,2,140,136,135,129,1,138,130,143,139,3,7,128,142},1)
t=0 e=128 cls(6) ::e:: t+=1 for c=0,15 do
d=c*21%16*2
fillp(65<<(t/7%4))
circfill(64+64*sin(t/64+c/16),(t+9*d)%(e+d)+(d^^3)/2*sin(c*t/e),d/2,c)
end flip() goto e