To poly :SIDE :ANGLE
Fd :SIDE Rt :ANGLE
POLY :SIDE + 10 :ANGLE
End

