(define make-maker
  (lambda (operation)
    (lambda (y)
      (lambda (x)
        (operation x y)))))

(define make-adder (make-maker +))

(define add-3 (make-adder 3))

(define make-combine-a-bunch
  (lambda (combiner)
    (define helper
      (lambda (x thing)
        (if (= x 1)
            thing
            (combiner thing (helper (- x 1) thing)))))
    helper))

(load "~mc27/labs/quilting/quilting.scm")
(load "~mc27/2005S/iod.ss")

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

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

(define add-5 (make-adder  5))

(define make-multiplier (make-maker *))

(define double (make-multiplier 2))

(define triple (make-multiplier 3))

(define make-exponentiator (make-maker expt))

(define square (make-exponentiator 2))

(define cube (make-exponentiator 3))