;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <TriPentaTorso>
;;;
;;; Description:
;;;   <Fractals fascinate -
;;;    Recursion recursively
;;;    Self-references.>

(define (draw)
  (bgcolor "white")
  (speed 10)
  ; YOUR CODE HERE
  (define (snowflake n len depth)
  (cond ((> depth 0)
      (define (helper k)
        (cond ((> n k)
            (forward len)
            (snowflake n (/ len 3) (- depth 1))
            (backward len)
            (left (/ 360 n))
            (helper (+ k 1))
            )
          )
        )
        (helper 0)
      )
    )
  )
(hideturtle)
(snowflake 5 100 6)
(penup)
(setpos 140 192.693469)
(pendown)
(setheading 36)
(snowflake 5 70 6)
(penup)
(setheading -36)
(setpos -140 192.693469)
(pendown)
(snowflake 5 70 6)
(penup)
(setpos 0 -238.182226)
(pendown)
(snowflake 5 70 6)
)
; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)