;; Work done in class 2005-02-09

(load "~mc27/labs/quilting/quilting.scm") ; at home, this would need change

(define pair (stack rcross-bb corner-bb))

(define double
  (lambda (image)
    (stack image
           image)))

(define quadruple
  (lambda (image)
    (double (double image))))

(define triple
  (lambda (image)
    (stack image
           (double image))))