;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Magic Fractal Tree
;;;
;;; Description:
;;;    Fractal gleam and glow
;;;    Spread branches shine their power
;;;    Comp sci hour by hour


(define (fn a b c d)
	(cond ((> d 0)
		(color 'brown)
		(fd a) (left b) 
		(fn (* a c) b c (- d 1))
		(right 90)
		(fn (* a c c) b c (- d 1))
		(left 90) (right b) (right 180) (fd a) (left 180))
		(else fd 1)
	))


(define (draw)
	(speed 0)
	(right 180) (fd 100) (right 180)
	(fn 100 29 0.8 10)
  (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)