(load "stk-turtle-stuff")

(cs)
(ht)
(define colors (list "red" "green" "yellow" "blue"))
(define (spiral n clrs)
  (if (= n 0)
      n
      (begin
        (color (first clrs))
        (forward (- 200 n))
        (right 91)
        (if (= (length clrs) 1)
            (spiral (- n 1) colors)
        (spiral (- n 1) (rest clrs))))))
(spiral 100 colors)