;;; Your entry for the Scheme contest
;;;
;;; Title: 
;;;   Down the Rabbit Hole
;;;
;;; Description:
;;;   Mesmerized by the
;;;   Swirl of color leading you
;;;   To an unknown fate

(define (even? n) (if (= (modulo n 2) 0) #t #f))

(define (drawevens start end) (if (even? end) (begin (color 'black) (penup) (right 10) (fd 10) (pendown) (begin_fill) (circle (/ end 2)) (end_fill)) (begin (color 'red) (penup) (right 10) (fd 10) (pendown) (begin_fill) (circle (ceil (/ end 2))) (end_fill))) (if (< start end) (drawevens start (- end 5)) (hideturtle)))

(drawevens 1 200)