clearscreen setbackground black hideturtle setpencolor green setx 350 sety 440 forward 200 :flowersize 50 to square :n repeat 4 [ forward :n right 90 ] end to flower :n repeat 36 [ right 10 square :n ] end setpencolor red flower :flowersize penup setx 330 sety 30 showturtle
to nested repeat 90 [fd 2 rt 2] rt 90 end to nest :n rt 45 repeat :n [ nested ] end repeat 8 [ nest 2 ]