;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Purpose
;;;
;;; Description:
;;;  It guides you
;;;
;;;

(define (fib past present) (cons-stream past (fib present (+ past present))))
(begin (define nothing 0) (define something 1) (define routine (fib nothing something)))
(define (draw)
 (bgcolor "#001f3f")
 (color "#FFFFFF")
 (speed 0)
 (define (spiral n x)
  (if (not (= (car n) 610)) (begin (circle (car n) x) (spiral (cdr-stream n) x))
   (begin (right 2) (penup) (setposition 0 0) (pendown) (spiral routine 90))))
 (begin (spiral routine 90) (exitonclick))
)

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)