;;; Your entry for the Scheme contest
;;;
;;; Title: 
;;;   Fibonacci
;;;
;;; Description:
;;; 	Fibonacci tree
;;; 	It grows exponentially
;;;     I'm not a poet

(define (fib depth)
  (forward 30)
  (if (> depth 3)
    (begin 
      (left 15)
      (fib (- depth 1))
      (right 30)
      (fib (- depth 2))
      (left 15))
    (begin (color 'green)
     (circle 5)
     (color '|#603913|))
    )
  (back 30))

  (penup)
  (goto 0 -100)
  (color '|#603913|)
  (pendown)
  (fib 10)
;  (exitonclick)