★=rnd()
poke(0x5f2c,6)
extcmd"rec_frames"
::l::
srand((t())\2+★)
fillp(rnd(0xffff)\1)
color((rnd(7)+8)<<4|(rnd(7)+8))
rectfill(0,0,128,128)
s=4
⧗=t()
⧗=⧗%2<1 and ⧗%1 or 1-⧗%1
m=((⧗)*1^(1/s))^s
for n=0,127 do
	line(n,0,n,m*n*(n-127)+64,0)
end
flip()
if(t()>20)extcmd"video" stop()
goto l