(load "~mc27/labs/quilting/quilting.scm")

(define repeatedly-double
  (lambda (times image)
    (if (= times 0)
        image
        (repeatedly-double (- times 1) 
                           (stack image image)))))

(define rd2
  (lambda (times image)
    (if (= times 0)
        image
        (let ((one-half (rd2 (- times 1) image)))
          (stack one-half one-half)))))