
to circle :l
if empty? :l [stop]
setpc first :l
repeat 36 [fd 15 rt 10]
rt 40
circle bf :l
end

cs setpenwidth 10
circle [1 24 79 100 120 140 182 215 248
