(define (draw-tree lvls size l r)
	(cond 
		((eq? lvls 1)(begin (fd size) (stamp) (bk size) ))
		(else
	(penup)
	(speed 0)
	(ht)
	(fd size)
	(lt l)
	(draw-tree (- lvls 1) (* size .75) l r)
	(rt r)
	(draw-tree (- lvls 1) (* size .75) l r)
	(stamp)
	(lt (- r l))
	(bk size))
	)
)

(define (snowflake-segment lvls size)
	(if (< lvls 2) (fd size)
		(begin
			(snowflake-segment (- lvls 1) (/ size 3))
			(lt 60)
			(snowflake-segment (- lvls 1) (/ size 3))
			(rt 120)
			(snowflake-segment (- lvls 1) (/ size 3))
			(lt 60)
			(snowflake-segment (- lvls 1) (/ size 3))
		)
	)
)

(define (kochs-snowflake lvls size)
	(snowflake-segment lvls size)
	(rt 120)
	(snowflake-segment lvls size)
	(rt 120)
	(snowflake-segment lvls size)
	(rt 120)
)

(define (repeat-koch n size)
	(if (eq? n 1) (kochs-snowflake n size)
		(begin
			(pendown)
			(kochs-snowflake n size)
			(penup)
			(rt 90)
			(fd (/ size 4))
			(lt 90)
			(fd (/ size 4))
			(repeat-koch (- n 1) (/ size 1.5))
		)

	)

)

(bgcolorr 'black)

(define (draw)
(penup)
(goto -230 -300)
(pendown)
(pensize 20)
(pencolor 'yellow)
(repeat-koch 4 900)

(penup)
(goto -230 -300)
(pendown)
(pensize 2)
(pencolor 'white)
(repeat-koch 6 800)

(addshape 'hughead.gif)
(goto 270 -470)
(draw-tree 6 175 40 47)

(addshape 'denerohead.gif)
(goto 230 -370)
(draw-tree 6 80 60 100)

(addshape 'head.gif)
(goto -300 -400)
(draw-tree 6 120 10 55)

(penup)
(addshape 'csss.gif)
(goto -150 150)
(stamp)
)

(draw)