(load "~mc27/labs/quilting/quilting.scm")
(load "~mc27/2005S/iod.ss") ; contains definition of side-by-side

(define make-combine-a-bunch
  (lambda (process)
    (define combine-a-bunch
      (lambda  (x image)
        (if  (= x 1)
             image
             (process (combine-a-bunch (- x 1) image) image))))
    combine-a-bunch))

(define stack-copies-of (make-combine-a-bunch stack))

(define side-by-side-copies-of (make-combine-a-bunch side-by-side))