;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <Golden Ratio.
;;;    Golden Ratio in Sun
;;;    Golden Ratio.>

(define (draw)
  ; YOUR CODE HERE
  (begin_fill)
  (bgcolor "gold")
  (define (fact n)
    (if (zero? n) 1 (* n (fact (- n 1))))
    )

(define (fib n)
    (define (helper n curr prev)
      (if (zero? n) prev
        (helper (- n 1) prev (+ curr prev))
        )

    )
    (helper n 0 1)
)


  (define (spiral sign n z)
    (if (= n z) (pendown)
        (begin
        (circle (sign (fib z)) 90) (speed 0) (spiral sign n (+ z 1))))
    )

 (define (lists x)
  (spiral + 5 0)
  (spiral - 5 0)
  (spiral + 5 0)
  )
 (define (loop x)
 (if (= x 0)
    (+ 1 3)
  (begin (lists 10)
  (loop (- x 1)))
 ))

 (define (maker x y)
 (if (= x y) (+ 3 4)
 (begin (loop 5)
 (penup)
 (left (fib 20))
 (forward (fib 10))
 (pendown)
 (loop 10)
 (maker (+ x 1) y))
 )
 )
 (maker 0 30)
 (penup)
 (right 50)
 (forward 80)
 (right 10)
 (pendown)
 (loop 10)
 (hideturtle)

  (exitonclick))

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