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

:A=40
REPEAT 8
 [
  SQ :A
  RIGHT 45
 ]