TO SQ :A
 REPEAT 4
  [
   FORWARD :A
   RIGHT 90
  ]
END

:A=40

REPEAT 18
 [
  SQ :A
  RIGHT 360/18
 ]