(load "stk-turtle-stuff")
(ht)

(define (vines size level right left)
	(cond ((= level 0) (fd size))
			(else (vines size (- level 1) right left)
				(rt right)
				(vines size (- level 1) right left)
				(lt left))))
(repeat 4
		(set-canvas-foreground-color "#72A859")
		(vines 2.5 10 45 90)
		(set-canvas-foreground-color "#0500AD")
		(begin-fill)
		(repeat 3 (vines 5 10 45 60))
		(end-fill)
		(pu)
		(fd 150)
		(pd))
(lt 45)
(repeat 4
		(set-canvas-foreground-color "#1BB016")
		(vines 2.5 10 45 90)
		(set-canvas-foreground-color "#FF9F06")
		(begin-fill)
		(repeat 3 (vines 3 10 45 60))
		(end-fill)
		(pu)
		(fd 150)
		(pd))