make "l 30 make "a 4*30 to fr :f :r forward :f right :r end to fl :f :l forward :f left :l end repeat 4 [ fr :l*2 :a fr :l*3 :a fr :l*1 :a fl :l*2 :a fl :l*1 :a ]