(load "stk-turtle-stuff")

(define (movement-for-star action n)
  (if (= n 1)
      (begin
        (action)
        (right 120))
      (begin
        (action)
        (right 120)
        (movement-for-star action (- n 1)))))

(define (movement-for-koch action)
  (action)
  (left 60)
  (action)
  (right 120)
  (action)
  (left 60)
  (action))

(define (draw-koch level length)
  (if (= level 1)
      (movement-for-koch (lambda () (forward length)))
      (movement-for-koch (lambda () (draw-koch (- level 1) length)))))

(define (draw-star level size)
  (movement-for-star (lambda () (draw-koch level size)) 3))

(penup)
(setposition (- 200) 120)
(pendown)
(right 90)
(draw-star 5 2)
(draw-star 4 2)
(draw-star 3 2)
(draw-star 2 2)
(draw-star 1 2)