;; 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) ))