(define (single-tag name attributes) (start-tag name attributes)) (define (double-tag name contents attributes) (string-append (start-tag name attributes) (as-string contents) (end-tag name)))