;; C.S. Lewis
(define circles
'((to circle (seg clr)
(if (< seg 1)
(forward 0)
(repeat 5
(repeat 8
(make clr (+ clr 10))
(forward seg)
(right 9)
)
(right 180)
(circle (/ seg 2) (+ clr 47))
(right 180)
)
)
)
(penup)
(setxy -50 200)
(pendown)
(circle 10 0)
))