TO POLYGON :SIDE :NUMOFSIDES
MAKE "ANGLE 360 / :NUMOFSIDES
REPEAT :NUMOFSIDES [
FORWARD :SIDE
LEFT :ANGLE ]
END
