(load "stk-turtle-stuff")

(define (fact n)
(if (< n 6)
(forward 5)
(and (and (forward n) (left 90)) (fact (- n 5)))))

(define (turtle n k)
	(if (<= n k)
		(circle k)
		(and(circle n)
			(turtle (- n k) k))))
(color "#000000")
(fact 1000)
(fact -1000)
(color "#003eff")
(fact 1000)
(color "#00c5cd")
(fact 1000)
(color "#00fa9a")
(fact 1000)
(color "#050505")
(fact 10000)
(color "#0276fd")
(setxy 0 0)
(fact 1000)
(setxy 1000 -1000)
(setxy 0 0)
(left 90)
(setxy -500 -500)
(setxy 500 500)
(setxy 0 0)
(color "#000000")
(fact 1000)
(setxy 0 0)
(fact 1000)
(setxy 0 0)
(fact 1000)
(setxy 0 0)
(left 135)
(fact 1000)
(setxy 0 0)
(fact 1000)
(setxy 0 0)
(right 90)
(fact 1000)
(setxy 0 0)
(left 135)
(color "#00611c")
(turtle 100 1)
(color "#000000")
(setxy 0 -60)
(color "#00611c")
(turtle 30 1)
(setxy 0 0)
(left 180)
(turtle 30 1)
(right 180)
(setxy 0 -60)
(setxy -35 -35)
(right 90)
(turtle 8 1)
(left 180)
(turtle 8 1)
(left 180)
(setxy 0 -60)
(setxy 35 -35)
(right 180)
(turtle 8 1)
(right 180)
(turtle 8 1)
(setxy 0 -45)
(left 90)
(turtle 8 1)
(setxy 0 -60)
(left 180)
(color "#ff0000")
(turtle 4 1)
(right 180)
(color "#000000")
(setxy 0 0)
(color "#00611c")
(setxy 50 50)
(right 45)
(forward 100)
(right 157)
(forward 88)
(setxy 0 0)
(setxy -50 50)
(left 60)
(forward 100)
(left 157)
(forward 92)
(setxy 0 0)
(setxy 100 100)
(left 45)
(forward 100)
(left 150)
(forward 75)
(back 75)
(right 150)
(back 100)
(right 45)
(setxy 0 0)
(setxy -100 100)
(left 105)
(forward 100)
(right 150)
(forward 75)
(ht)