:A=60
:N=7


 REPEAT :N
  [
   FORWARD :A
   RIGHT 720/:N+1
  ]