learn circle $X {repeat 36 {forward $X turnleft 10}} go 200,200 circle 20 go 300,200 circle 40
define faiCirculo $X {repite 36 {avanza $X xiraesquerda 10}} vai 200, 200 faiCirculo 20 vai 300, 300 faiCirculo 40