Exploiting Commonality

     (define together-copies-of
       (lambda (combine quantity thing)
         (if (= quantity 1)
             thing
             (combine (together-copies-of combine (- quantity 1) thing)
                      thing))))