go dat
sw pure
de-sy c
get
go poly
s-c t=500 n=1
s-a-v 1 p 1e5 1e10

c-e
step se
post
s-d-a x p
s-d-a y gm(*)

s-l d
pl

set-interactive