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

:A=40
RIGHT 10

REPEAT 5
 [
  SQ :A
  RIGHT 360/5
 ]