TO TR :A
 FORWARD 2*:A
 RIGHT 120
 FORWARD :a
 RIGHT 90
 FORWARD :A*172/100
END

:A=40

REPEAT 4
 [
  TR :A
  RIGHT 150
  FORWARD 2*:A
  RIGHT 90
 ]