(define (snowflake size level)
		(cond((= level 0)(forward size))
		(else
			(snowflake (/ size 3)(- level 1))
			(left 60)
			(snowflake (/ size 3) (- level 1)) 											
			(right 120) 											
			(snowflake ( / size 3)(- level 1))						
                        (left 60)
                        (snowflake (/ size 3) (- level 1))
			(right 120)
		        (snowflake (/ size 3)(- level 1))
			(left 60) 
			(snowflake (/ size 3) (- level 1))
			(right 120)
                        (snowflake ( / size 3)(- level 1))	
			(left 60)
                        (snowflake (/ size 3) (- level 1))
			(right 120)
			(snowflake (/ size 3)(- level 1))										
			(left 60)
			(snowflake (/ size 3) (- level 1))
                        (right 120)
                        (snowflake ( / size 3)(- level 1))
                        (left 60)
                        (snowflake (/ size 3) (- level 1))
			(right 120)
			)))



(define (tree length level)
   		(forward length)
		(right 30)
		(if (> level 1)
		(tree (* length 0.75) (- level 1)))
		(left 60)
		(if (> level 1)
		(tree (* length 0.75)(- level 1)))
		(right 30)
		(backward (length)))  


(define (fern size)
	(cond ((< size 5)(forward 0))
	(else	(forward ( / size 25))
		(left 80)
		(fern (* size 0.3))
		(right 82)
		(forward (/ size 25))
		(right 80)
		(fern (* size 0.3))
		(left 78)
		(fern (* size 0.9))
		(left 2)
		(backward (/ size 25))
		(left 2)
		(backward (/ size 25)))))



(snowflake 100 7)
(tree 75 7)
(fern 100))

;;;
;;; Title: 
;;;   Naturally Recursive
;;;
;;; Description:
;;; Look Around And See
;;; Nature In All Its Glory
;;; Recursive Beauty