(load "stk-turtle-stuff")

(define (abst-circles n)
	(if (eq? n 360)
		(circle 360)
		(and (and (circle n) (left 15))
			(abst-circles (+ n 1)))))
(define (fact n)
	(if (< n 2)
		(forward 1)
		(and (and (forward n) (left 90)) 
			(fact (- n 1)))))
(color "#000000")
(fact 1000)
(setxy 0 0)
(fact 1000)
(setxy 0 0)
(fact 1000)
(setxy 0 0)
(fact 1000)
(setxy 0 0)
(color "#ff0000")
(abst-circles 0)