;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Unending paper roses
;;;
;;; Description:
;;;   <Here are some lovely
;;;    unending paper roses.
;;;    Enjoy, everyone!>

(define (repeat k fn)
  (if (> k 1)
     (begin (fn) (repeat (- k 1) fn))
     (fn)
  )
)

(define (hept fn)
  (repeat 7 (lambda () (fn) (lt 72)))
)

(define (honey d k)
  (hept (lambda ()
      (if (= k 1) (fd d) (side d k))))
)

(define (side d k)
  (honey (/ d 2) (- k 1))
  (pu) (fd d) (pd)
)

(define (draw)
  (honey 400 5)
  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)