;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: The ICU
;;;
;;; Description:
;;;   <Poems are not for me
;;;    You can't program poetry
;;;    Hippopotamus.>

(speed 0)

(define (draw)
  (define (screwit1 count)
    (cond ((= count 60) nil)
        (else
            (color 'red)
            (begin_fill)
            (circle 20)
            (end_fill)
            (left 6)
            (screwit1 (+ count 1)))))
  (screwit1 0)
  (define (screwit2 count)
    (cond ((= count 60) nil)
        (else
            (color 'black)
            (forward 200)
            (color 'orange3)
            (begin_fill)
            (circle 10)
            (end_fill)
            (color 'black)
            (back 200)
            (left 6)
            (screwit2 (+ count 1)))))
  (screwit2 0)
  (hideturtle)
  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.  All Scheme tokens in this file (including the one below) count
; toward the token limit.
(draw)