cs home
pu
setpos [-50 23]
pd
setpencolor 4
to ngon :angle :edge
 while[:angle <= 50] [ print :angle make "angle :angle + 1
 print :edge make "edge :edge - .5
 repeat :angle[fd :edge wait 4 rt 360/:angle]]
end
 ngon 1 50