|           | taggen-1.scm - The two higher-order functions for the HTML mirror generation. | Lecture 4 - slide 27 : 34 Program 1 | 
(define (generate-double-tag-function tag-name)
  (lambda (contents . attributes)
    (double-tag tag-name contents attributes)))
(define (generate-single-tag-function tag-name)
  (lambda attributes
    (single-tag tag-name attributes)))