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

:A=40

REPEAT 12
 [
  TR :A
  RIGHT 180
 ]