(load "stk-turtle-stuff")

(define (tri a) 
(repeat 3 (fd a) (rt 120)))

(define (foo a)
(begin
	(tri a)
	(fd a)
	(tri a)
	(bk a)
	(rt 60)
	(fd a)
	(lt 60)
	(tri a)
	(rt 60)
	(bk a)
	(lt 60)))

(define (sk d)
(begin
	(if (> d 5)
	(begin
	(foo d)
	(sk (/ d 2))
	(fd d)
	(sk (/ d 2))
	(bk d)
	(rt 60)
	(fd d)
	(lt 60)
	(sk (/ d 2))
	(rt 60)
	(bk d)
	(lt 60)))))


(cs)
(pu)
(setxy -200 -200)
(pd)
(rt 30)
(color "blue")
(begin_fill)
(sk 200)
(ht)
(end_fill)