(begin
  (cond (#t
         (begin
           (define xhtml:a-end (non-empty-tag-end 'a))
           (module-export (current-module 'xhtml:a-end))
           (define xhtml:a-start (non-empty-tag-start 'a))
           (module-export (current-module 'xhtml:a-start)))))
  (define xhtml:a
    (if empty?
      (empty-tag 'a '())
      (non-empty-tag 'a '())))
  (module-export! (current-module) 'xhtml:a))
(begin
  (cond (#t
         (begin
           (define xhtml:abbr-end (non-empty-tag-end 'abbr))
           (module-export (current-module 'xhtml:abbr-end))
           (define xhtml:abbr-start
             (non-empty-tag-start 'abbr))
           (module-export
             (current-module 'xhtml:abbr-start)))))
  (define xhtml:abbr
    (if empty?
      (empty-tag 'abbr '())
      (non-empty-tag 'abbr '())))
  (module-export! (current-module) 'xhtml:abbr))
(begin
  (cond (#t
         (begin
           (define xhtml:acroynym-end
             (non-empty-tag-end 'acroynym))
           (module-export
             (current-module 'xhtml:acroynym-end))
           (define xhtml:acroynym-start
             (non-empty-tag-start 'acroynym))
           (module-export
             (current-module 'xhtml:acroynym-start)))))
  (define xhtml:acroynym
    (if empty?
      (empty-tag 'acroynym '())
      (non-empty-tag 'acroynym '())))
  (module-export! (current-module) 'xhtml:acroynym))
(begin
  (cond (#t
         (begin
           (define xhtml:address-end
             (non-empty-tag-end 'address))
           (module-export
             (current-module 'xhtml:address-end))
           (define xhtml:address-start
             (non-empty-tag-start 'address))
           (module-export
             (current-module 'xhtml:address-start)))))
  (define xhtml:address
    (if empty?
      (empty-tag 'address '())
      (non-empty-tag 'address '())))
  (module-export! (current-module) 'xhtml:address))
(begin
  (cond (#f
         (begin
           (define xhtml:area-end (non-empty-tag-end 'area))
           (module-export (current-module 'xhtml:area-end))
           (define xhtml:area-start
             (non-empty-tag-start 'area))
           (module-export
             (current-module 'xhtml:area-start)))))
  (define xhtml:area
    (if empty?
      (empty-tag 'area '((alt "AREA")))
      (non-empty-tag 'area '((alt "AREA")))))
  (module-export! (current-module) 'xhtml:area))
(begin
  (cond (#f
         (begin
           (define xhtml:base-end (non-empty-tag-end 'base))
           (module-export (current-module 'xhtml:base-end))
           (define xhtml:base-start
             (non-empty-tag-start 'base))
           (module-export
             (current-module 'xhtml:base-start)))))
  (define xhtml:base
    (if empty?
      (empty-tag 'base '())
      (non-empty-tag 'base '())))
  (module-export! (current-module) 'xhtml:base))
(begin
  (cond (#t
         (begin
           (define xhtml:bdo-end (non-empty-tag-end 'bdo))
           (module-export (current-module 'xhtml:bdo-end))
           (define xhtml:bdo-start
             (non-empty-tag-start 'bdo))
           (module-export (current-module 'xhtml:bdo-start)))))
  (define xhtml:bdo
    (if empty?
      (empty-tag 'bdo '((dir "ltr")))
      (non-empty-tag 'bdo '((dir "ltr")))))
  (module-export! (current-module) 'xhtml:bdo))
(begin
  (cond (#t
         (begin
           (define xhtml:big-end (non-empty-tag-end 'big))
           (module-export (current-module 'xhtml:big-end))
           (define xhtml:big-start
             (non-empty-tag-start 'big))
           (module-export (current-module 'xhtml:big-start)))))
  (define xhtml:big
    (if empty?
      (empty-tag 'big '())
      (non-empty-tag 'big '())))
  (module-export! (current-module) 'xhtml:big))
(begin
  (cond (#t
         (begin
           (define xhtml:blockquote-end
             (non-empty-tag-end 'blockquote))
           (module-export
             (current-module 'xhtml:blockquote-end))
           (define xhtml:blockquote-start
             (non-empty-tag-start 'blockquote))
           (module-export
             (current-module 'xhtml:blockquote-start)))))
  (define xhtml:blockquote
    (if empty?
      (empty-tag 'blockquote '())
      (non-empty-tag 'blockquote '())))
  (module-export!
    (current-module)
    'xhtml:blockquote))
(begin
  (cond (#t
         (begin
           (define xhtml:body-end (non-empty-tag-end 'body))
           (module-export (current-module 'xhtml:body-end))
           (define xhtml:body-start
             (non-empty-tag-start 'body))
           (module-export
             (current-module 'xhtml:body-start)))))
  (define xhtml:body
    (if empty?
      (empty-tag 'body '())
      (non-empty-tag 'body '())))
  (module-export! (current-module) 'xhtml:body))
(begin
  (cond (#f
         (begin
           (define xhtml:br-end (non-empty-tag-end 'br))
           (module-export (current-module 'xhtml:br-end))
           (define xhtml:br-start (non-empty-tag-start 'br))
           (module-export (current-module 'xhtml:br-start)))))
  (define xhtml:br
    (if empty?
      (empty-tag 'br '())
      (non-empty-tag 'br '())))
  (module-export! (current-module) 'xhtml:br))
(begin
  (cond (#t
         (begin
           (define xhtml:button-end
             (non-empty-tag-end 'button))
           (module-export
             (current-module 'xhtml:button-end))
           (define xhtml:button-start
             (non-empty-tag-start 'button))
           (module-export
             (current-module 'xhtml:button-start)))))
  (define xhtml:button
    (if empty?
      (empty-tag 'button '())
      (non-empty-tag 'button '())))
  (module-export! (current-module) 'xhtml:button))
(begin
  (cond (#t
         (begin
           (define xhtml:caption-end
             (non-empty-tag-end 'caption))
           (module-export
             (current-module 'xhtml:caption-end))
           (define xhtml:caption-start
             (non-empty-tag-start 'caption))
           (module-export
             (current-module 'xhtml:caption-start)))))
  (define xhtml:caption
    (if empty?
      (empty-tag 'caption '())
      (non-empty-tag 'caption '())))
  (module-export! (current-module) 'xhtml:caption))
(begin
  (cond (#t
         (begin
           (define xhtml:center-end
             (non-empty-tag-end 'center))
           (module-export
             (current-module 'xhtml:center-end))
           (define xhtml:center-start
             (non-empty-tag-start 'center))
           (module-export
             (current-module 'xhtml:center-start)))))
  (define xhtml:center
    (if empty?
      (empty-tag 'center '())
      (non-empty-tag 'center '())))
  (module-export! (current-module) 'xhtml:center))
(begin
  (cond (#t
         (begin
           (define xhtml:cite-end (non-empty-tag-end 'cite))
           (module-export (current-module 'xhtml:cite-end))
           (define xhtml:cite-start
             (non-empty-tag-start 'cite))
           (module-export
             (current-module 'xhtml:cite-start)))))
  (define xhtml:cite
    (if empty?
      (empty-tag 'cite '())
      (non-empty-tag 'cite '())))
  (module-export! (current-module) 'xhtml:cite))
(begin
  (cond (#t
         (begin
           (define xhtml:code-end (non-empty-tag-end 'code))
           (module-export (current-module 'xhtml:code-end))
           (define xhtml:code-start
             (non-empty-tag-start 'code))
           (module-export
             (current-module 'xhtml:code-start)))))
  (define xhtml:code
    (if empty?
      (empty-tag 'code '())
      (non-empty-tag 'code '())))
  (module-export! (current-module) 'xhtml:code))
(begin
  (cond (#f
         (begin
           (define xhtml:col-end (non-empty-tag-end 'col))
           (module-export (current-module 'xhtml:col-end))
           (define xhtml:col-start
             (non-empty-tag-start 'col))
           (module-export (current-module 'xhtml:col-start)))))
  (define xhtml:col
    (if empty?
      (empty-tag 'col '())
      (non-empty-tag 'col '())))
  (module-export! (current-module) 'xhtml:col))
(begin
  (cond (#t
         (begin
           (define xhtml:colgroup-end
             (non-empty-tag-end 'colgroup))
           (module-export
             (current-module 'xhtml:colgroup-end))
           (define xhtml:colgroup-start
             (non-empty-tag-start 'colgroup))
           (module-export
             (current-module 'xhtml:colgroup-start)))))
  (define xhtml:colgroup
    (if empty?
      (empty-tag 'colgroup '())
      (non-empty-tag 'colgroup '())))
  (module-export! (current-module) 'xhtml:colgroup))
(begin
  (cond (#t
         (begin
           (define xhtml:dd-end (non-empty-tag-end 'dd))
           (module-export (current-module 'xhtml:dd-end))
           (define xhtml:dd-start (non-empty-tag-start 'dd))
           (module-export (current-module 'xhtml:dd-start)))))
  (define xhtml:dd
    (if empty?
      (empty-tag 'dd '())
      (non-empty-tag 'dd '())))
  (module-export! (current-module) 'xhtml:dd))
(begin
  (cond (#t
         (begin
           (define xhtml:del-end (non-empty-tag-end 'del))
           (module-export (current-module 'xhtml:del-end))
           (define xhtml:del-start
             (non-empty-tag-start 'del))
           (module-export (current-module 'xhtml:del-start)))))
  (define xhtml:del
    (if empty?
      (empty-tag 'del '())
      (non-empty-tag 'del '())))
  (module-export! (current-module) 'xhtml:del))
(begin
  (cond (#t
         (begin
           (define xhtml:dfn-end (non-empty-tag-end 'dfn))
           (module-export (current-module 'xhtml:dfn-end))
           (define xhtml:dfn-start
             (non-empty-tag-start 'dfn))
           (module-export (current-module 'xhtml:dfn-start)))))
  (define xhtml:dfn
    (if empty?
      (empty-tag 'dfn '())
      (non-empty-tag 'dfn '())))
  (module-export! (current-module) 'xhtml:dfn))
(begin
  (cond (#t
         (begin
           (define xhtml:div-end (non-empty-tag-end 'div))
           (module-export (current-module 'xhtml:div-end))
           (define xhtml:div-start
             (non-empty-tag-start 'div))
           (module-export (current-module 'xhtml:div-start)))))
  (define xhtml:div
    (if empty?
      (empty-tag 'div '())
      (non-empty-tag 'div '())))
  (module-export! (current-module) 'xhtml:div))
(begin
  (cond (#t
         (begin
           (define xhtml:dl-end (non-empty-tag-end 'dl))
           (module-export (current-module 'xhtml:dl-end))
           (define xhtml:dl-start (non-empty-tag-start 'dl))
           (module-export (current-module 'xhtml:dl-start)))))
  (define xhtml:dl
    (if empty?
      (empty-tag 'dl '())
      (non-empty-tag 'dl '())))
  (module-export! (current-module) 'xhtml:dl))
(begin
  (cond (#t
         (begin
           (define xhtml:dt-end (non-empty-tag-end 'dt))
           (module-export (current-module 'xhtml:dt-end))
           (define xhtml:dt-start (non-empty-tag-start 'dt))
           (module-export (current-module 'xhtml:dt-start)))))
  (define xhtml:dt
    (if empty?
      (empty-tag 'dt '())
      (non-empty-tag 'dt '())))
  (module-export! (current-module) 'xhtml:dt))
(begin
  (cond (#t
         (begin
           (define xhtml:em-end (non-empty-tag-end 'em))
           (module-export (current-module 'xhtml:em-end))
           (define xhtml:em-start (non-empty-tag-start 'em))
           (module-export (current-module 'xhtml:em-start)))))
  (define xhtml:em
    (if empty?
      (empty-tag 'em '())
      (non-empty-tag 'em '())))
  (module-export! (current-module) 'xhtml:em))
(begin
  (cond (#t
         (begin
           (define xhtml:fieldset-end
             (non-empty-tag-end 'fieldset))
           (module-export
             (current-module 'xhtml:fieldset-end))
           (define xhtml:fieldset-start
             (non-empty-tag-start 'fieldset))
           (module-export
             (current-module 'xhtml:fieldset-start)))))
  (define xhtml:fieldset
    (if empty?
      (empty-tag 'fieldset '())
      (non-empty-tag 'fieldset '())))
  (module-export! (current-module) 'xhtml:fieldset))
(begin
  (cond (#t
         (begin
           (define xhtml:form-end (non-empty-tag-end 'form))
           (module-export (current-module 'xhtml:form-end))
           (define xhtml:form-start
             (non-empty-tag-start 'form))
           (module-export
             (current-module 'xhtml:form-start)))))
  (define xhtml:form
    (if empty?
      (empty-tag 'form '((action "!!unset!!")))
      (non-empty-tag 'form '((action "!!unset!!")))))
  (module-export! (current-module) 'xhtml:form))
(begin
  (cond (#f
         (begin
           (define xhtml:frame-end
             (non-empty-tag-end 'frame))
           (module-export (current-module 'xhtml:frame-end))
           (define xhtml:frame-start
             (non-empty-tag-start 'frame))
           (module-export
             (current-module 'xhtml:frame-start)))))
  (define xhtml:frame
    (if empty?
      (empty-tag 'frame '())
      (non-empty-tag 'frame '())))
  (module-export! (current-module) 'xhtml:frame))
(begin
  (cond (#t
         (begin
           (define xhtml:frameset-end
             (non-empty-tag-end 'frameset))
           (module-export
             (current-module 'xhtml:frameset-end))
           (define xhtml:frameset-start
             (non-empty-tag-start 'frameset))
           (module-export
             (current-module 'xhtml:frameset-start)))))
  (define xhtml:frameset
    (if empty?
      (empty-tag 'frameset '())
      (non-empty-tag 'frameset '())))
  (module-export! (current-module) 'xhtml:frameset))
(begin
  (cond (#t
         (begin
           (define xhtml:h1-end (non-empty-tag-end 'h1))
           (module-export (current-module 'xhtml:h1-end))
           (define xhtml:h1-start (non-empty-tag-start 'h1))
           (module-export (current-module 'xhtml:h1-start)))))
  (define xhtml:h1
    (if empty?
      (empty-tag 'h1 '())
      (non-empty-tag 'h1 '())))
  (module-export! (current-module) 'xhtml:h1))
(begin
  (cond (#t
         (begin
           (define xhtml:h2-end (non-empty-tag-end 'h2))
           (module-export (current-module 'xhtml:h2-end))
           (define xhtml:h2-start (non-empty-tag-start 'h2))
           (module-export (current-module 'xhtml:h2-start)))))
  (define xhtml:h2
    (if empty?
      (empty-tag 'h2 '())
      (non-empty-tag 'h2 '())))
  (module-export! (current-module) 'xhtml:h2))
(begin
  (cond (#t
         (begin
           (define xhtml:h3-end (non-empty-tag-end 'h3))
           (module-export (current-module 'xhtml:h3-end))
           (define xhtml:h3-start (non-empty-tag-start 'h3))
           (module-export (current-module 'xhtml:h3-start)))))
  (define xhtml:h3
    (if empty?
      (empty-tag 'h3 '())
      (non-empty-tag 'h3 '())))
  (module-export! (current-module) 'xhtml:h3))
(begin
  (cond (#t
         (begin
           (define xhtml:h4-end (non-empty-tag-end 'h4))
           (module-export (current-module 'xhtml:h4-end))
           (define xhtml:h4-start (non-empty-tag-start 'h4))
           (module-export (current-module 'xhtml:h4-start)))))
  (define xhtml:h4
    (if empty?
      (empty-tag 'h4 '())
      (non-empty-tag 'h4 '())))
  (module-export! (current-module) 'xhtml:h4))
(begin
  (cond (#t
         (begin
           (define xhtml:h5-end (non-empty-tag-end 'h5))
           (module-export (current-module 'xhtml:h5-end))
           (define xhtml:h5-start (non-empty-tag-start 'h5))
           (module-export (current-module 'xhtml:h5-start)))))
  (define xhtml:h5
    (if empty?
      (empty-tag 'h5 '())
      (non-empty-tag 'h5 '())))
  (module-export! (current-module) 'xhtml:h5))
(begin
  (cond (#t
         (begin
           (define xhtml:h6-end (non-empty-tag-end 'h6))
           (module-export (current-module 'xhtml:h6-end))
           (define xhtml:h6-start (non-empty-tag-start 'h6))
           (module-export (current-module 'xhtml:h6-start)))))
  (define xhtml:h6
    (if empty?
      (empty-tag 'h6 '())
      (non-empty-tag 'h6 '())))
  (module-export! (current-module) 'xhtml:h6))
(begin
  (cond (#t
         (begin
           (define xhtml:head-end (non-empty-tag-end 'head))
           (module-export (current-module 'xhtml:head-end))
           (define xhtml:head-start
             (non-empty-tag-start 'head))
           (module-export
             (current-module 'xhtml:head-start)))))
  (define xhtml:head
    (if empty?
      (empty-tag 'head '())
      (non-empty-tag 'head '())))
  (module-export! (current-module) 'xhtml:head))
(begin
  (cond (#f
         (begin
           (define xhtml:hr-end (non-empty-tag-end 'hr))
           (module-export (current-module 'xhtml:hr-end))
           (define xhtml:hr-start (non-empty-tag-start 'hr))
           (module-export (current-module 'xhtml:hr-start)))))
  (define xhtml:hr
    (if empty?
      (empty-tag 'hr '())
      (non-empty-tag 'hr '())))
  (module-export! (current-module) 'xhtml:hr))
(begin
  (cond (#t
         (begin
           (define xhtml:html-end (non-empty-tag-end 'html))
           (module-export (current-module 'xhtml:html-end))
           (define xhtml:html-start
             (non-empty-tag-start 'html))
           (module-export
             (current-module 'xhtml:html-start)))))
  (define xhtml:html
    (if empty?
      (empty-tag 'html '((xml:lang "en") (lang "en")))
      (non-empty-tag
        'html
        '((xml:lang "en") (lang "en")))))
  (module-export! (current-module) 'xhtml:html))
(begin
  (cond (#t
         (begin
           (define xhtml:i-end (non-empty-tag-end 'i))
           (module-export (current-module 'xhtml:i-end))
           (define xhtml:i-start (non-empty-tag-start 'i))
           (module-export (current-module 'xhtml:i-start)))))
  (define xhtml:i
    (if empty?
      (empty-tag 'i '())
      (non-empty-tag 'i '())))
  (module-export! (current-module) 'xhtml:i))
(begin
  (cond (#t
         (begin
           (define xhtml:iframe-end
             (non-empty-tag-end 'iframe))
           (module-export
             (current-module 'xhtml:iframe-end))
           (define xhtml:iframe-start
             (non-empty-tag-start 'iframe))
           (module-export
             (current-module 'xhtml:iframe-start)))))
  (define xhtml:iframe
    (if empty?
      (empty-tag 'iframe '())
      (non-empty-tag 'iframe '())))
  (module-export! (current-module) 'xhtml:iframe))
(begin
  (cond (#f
         (begin
           (define xhtml:img-end (non-empty-tag-end 'img))
           (module-export (current-module 'xhtml:img-end))
           (define xhtml:img-start
             (non-empty-tag-start 'img))
           (module-export (current-module 'xhtml:img-start)))))
  (define xhtml:img
    (if empty?
      (empty-tag
        'img
        '((src "") (alt "[unset alt text]")))
      (non-empty-tag
        'img
        '((src "") (alt "[unset alt text]")))))
  (module-export! (current-module) 'xhtml:img))
(begin
  (cond (#f
         (begin
           (define xhtml:input-end
             (non-empty-tag-end 'input))
           (module-export (current-module 'xhtml:input-end))
           (define xhtml:input-start
             (non-empty-tag-start 'input))
           (module-export
             (current-module 'xhtml:input-start)))))
  (define xhtml:input
    (if empty?
      (empty-tag 'input '())
      (non-empty-tag 'input '())))
  (module-export! (current-module) 'xhtml:input))
(begin
  (cond (#t
         (begin
           (define xhtml:ins-end (non-empty-tag-end 'ins))
           (module-export (current-module 'xhtml:ins-end))
           (define xhtml:ins-start
             (non-empty-tag-start 'ins))
           (module-export (current-module 'xhtml:ins-start)))))
  (define xhtml:ins
    (if empty?
      (empty-tag 'ins '())
      (non-empty-tag 'ins '())))
  (module-export! (current-module) 'xhtml:ins))
(begin
  (cond (#t
         (begin
           (define xhtml:kbd-end (non-empty-tag-end 'kbd))
           (module-export (current-module 'xhtml:kbd-end))
           (define xhtml:kbd-start
             (non-empty-tag-start 'kbd))
           (module-export (current-module 'xhtml:kbd-start)))))
  (define xhtml:kbd
    (if empty?
      (empty-tag 'kbd '())
      (non-empty-tag 'kbd '())))
  (module-export! (current-module) 'xhtml:kbd))
(begin
  (cond (#t
         (begin
           (define xhtml:label-end
             (non-empty-tag-end 'label))
           (module-export (current-module 'xhtml:label-end))
           (define xhtml:label-start
             (non-empty-tag-start 'label))
           (module-export
             (current-module 'xhtml:label-start)))))
  (define xhtml:label
    (if empty?
      (empty-tag 'label '())
      (non-empty-tag 'label '())))
  (module-export! (current-module) 'xhtml:label))
(begin
  (cond (#t
         (begin
           (define xhtml:legend-end
             (non-empty-tag-end 'legend))
           (module-export
             (current-module 'xhtml:legend-end))
           (define xhtml:legend-start
             (non-empty-tag-start 'legend))
           (module-export
             (current-module 'xhtml:legend-start)))))
  (define xhtml:legend
    (if empty?
      (empty-tag 'legend '())
      (non-empty-tag 'legend '())))
  (module-export! (current-module) 'xhtml:legend))
(begin
  (cond (#t
         (begin
           (define xhtml:li-end (non-empty-tag-end 'li))
           (module-export (current-module 'xhtml:li-end))
           (define xhtml:li-start (non-empty-tag-start 'li))
           (module-export (current-module 'xhtml:li-start)))))
  (define xhtml:li
    (if empty?
      (empty-tag 'li '())
      (non-empty-tag 'li '())))
  (module-export! (current-module) 'xhtml:li))
(begin
  (cond (#f
         (begin
           (define xhtml:link-end (non-empty-tag-end 'link))
           (module-export (current-module 'xhtml:link-end))
           (define xhtml:link-start
             (non-empty-tag-start 'link))
           (module-export
             (current-module 'xhtml:link-start)))))
  (define xhtml:link
    (if empty?
      (empty-tag 'link '())
      (non-empty-tag 'link '())))
  (module-export! (current-module) 'xhtml:link))
(begin
  (cond (#t
         (begin
           (define xhtml:map-end (non-empty-tag-end 'map))
           (module-export (current-module 'xhtml:map-end))
           (define xhtml:map-start
             (non-empty-tag-start 'map))
           (module-export (current-module 'xhtml:map-start)))))
  (define xhtml:map
    (if empty?
      (empty-tag 'map '((name "name unset")))
      (non-empty-tag 'map '((name "name unset")))))
  (module-export! (current-module) 'xhtml:map))
(begin
  (cond (#f
         (begin
           (define xhtml:meta-end (non-empty-tag-end 'meta))
           (module-export (current-module 'xhtml:meta-end))
           (define xhtml:meta-start
             (non-empty-tag-start 'meta))
           (module-export
             (current-module 'xhtml:meta-start)))))
  (define xhtml:meta
    (if empty?
      (empty-tag 'meta '((content "content unset")))
      (non-empty-tag
        'meta
        '((content "content unset")))))
  (module-export! (current-module) 'xhtml:meta))
(begin
  (cond (#t
         (begin
           (define xhtml:noframes-end
             (non-empty-tag-end 'noframes))
           (module-export
             (current-module 'xhtml:noframes-end))
           (define xhtml:noframes-start
             (non-empty-tag-start 'noframes))
           (module-export
             (current-module 'xhtml:noframes-start)))))
  (define xhtml:noframes
    (if empty?
      (empty-tag 'noframes '())
      (non-empty-tag 'noframes '())))
  (module-export! (current-module) 'xhtml:noframes))
(begin
  (cond (#t
         (begin
           (define xhtml:noscript-end
             (non-empty-tag-end 'noscript))
           (module-export
             (current-module 'xhtml:noscript-end))
           (define xhtml:noscript-start
             (non-empty-tag-start 'noscript))
           (module-export
             (current-module 'xhtml:noscript-start)))))
  (define xhtml:noscript
    (if empty?
      (empty-tag 'noscript '())
      (non-empty-tag 'noscript '())))
  (module-export! (current-module) 'xhtml:noscript))
(begin
  (cond (#t
         (begin
           (define xhtml:object-end
             (non-empty-tag-end 'object))
           (module-export
             (current-module 'xhtml:object-end))
           (define xhtml:object-start
             (non-empty-tag-start 'object))
           (module-export
             (current-module 'xhtml:object-start)))))
  (define xhtml:object
    (if empty?
      (empty-tag 'object '())
      (non-empty-tag 'object '())))
  (module-export! (current-module) 'xhtml:object))
(begin
  (cond (#t
         (begin
           (define xhtml:ol-end (non-empty-tag-end 'ol))
           (module-export (current-module 'xhtml:ol-end))
           (define xhtml:ol-start (non-empty-tag-start 'ol))
           (module-export (current-module 'xhtml:ol-start)))))
  (define xhtml:ol
    (if empty?
      (empty-tag 'ol '())
      (non-empty-tag 'ol '())))
  (module-export! (current-module) 'xhtml:ol))
(begin
  (cond (#t
         (begin
           (define xhtml:optgroup-end
             (non-empty-tag-end 'optgroup))
           (module-export
             (current-module 'xhtml:optgroup-end))
           (define xhtml:optgroup-start
             (non-empty-tag-start 'optgroup))
           (module-export
             (current-module 'xhtml:optgroup-start)))))
  (define xhtml:optgroup
    (if empty?
      (empty-tag 'optgroup '((label "label unset")))
      (non-empty-tag
        'optgroup
        '((label "label unset")))))
  (module-export! (current-module) 'xhtml:optgroup))
(begin
  (cond (#t
         (begin
           (define xhtml:option-end
             (non-empty-tag-end 'option))
           (module-export
             (current-module 'xhtml:option-end))
           (define xhtml:option-start
             (non-empty-tag-start 'option))
           (module-export
             (current-module 'xhtml:option-start)))))
  (define xhtml:option
    (if empty?
      (empty-tag 'option '())
      (non-empty-tag 'option '())))
  (module-export! (current-module) 'xhtml:option))
(begin
  (cond (#t
         (begin
           (define xhtml:p-end (non-empty-tag-end 'p))
           (module-export (current-module 'xhtml:p-end))
           (define xhtml:p-start (non-empty-tag-start 'p))
           (module-export (current-module 'xhtml:p-start)))))
  (define xhtml:p
    (if empty?
      (empty-tag 'p '())
      (non-empty-tag 'p '())))
  (module-export! (current-module) 'xhtml:p))
(begin
  (cond (#f
         (begin
           (define xhtml:param-end
             (non-empty-tag-end 'param))
           (module-export (current-module 'xhtml:param-end))
           (define xhtml:param-start
             (non-empty-tag-start 'param))
           (module-export
             (current-module 'xhtml:param-start)))))
  (define xhtml:param
    (if empty?
      (empty-tag 'param '((name "unset name")))
      (non-empty-tag 'param '((name "unset name")))))
  (module-export! (current-module) 'xhtml:param))
(begin
  (cond (#t
         (begin
           (define xhtml:pre-end (non-empty-tag-end 'pre))
           (module-export (current-module 'xhtml:pre-end))
           (define xhtml:pre-start
             (non-empty-tag-start 'pre))
           (module-export (current-module 'xhtml:pre-start)))))
  (define xhtml:pre
    (if empty?
      (empty-tag 'pre '())
      (non-empty-tag 'pre '())))
  (module-export! (current-module) 'xhtml:pre))
(begin
  (cond (#t
         (begin
           (define xhtml:q-end (non-empty-tag-end 'q))
           (module-export (current-module 'xhtml:q-end))
           (define xhtml:q-start (non-empty-tag-start 'q))
           (module-export (current-module 'xhtml:q-start)))))
  (define xhtml:q
    (if empty?
      (empty-tag 'q '())
      (non-empty-tag 'q '())))
  (module-export! (current-module) 'xhtml:q))
(begin
  (cond (#t
         (begin
           (define xhtml:samp-end (non-empty-tag-end 'samp))
           (module-export (current-module 'xhtml:samp-end))
           (define xhtml:samp-start
             (non-empty-tag-start 'samp))
           (module-export
             (current-module 'xhtml:samp-start)))))
  (define xhtml:samp
    (if empty?
      (empty-tag 'samp '())
      (non-empty-tag 'samp '())))
  (module-export! (current-module) 'xhtml:samp))
(begin
  (cond (#t
         (begin
           (define xhtml:script-end
             (non-empty-tag-end 'script))
           (module-export
             (current-module 'xhtml:script-end))
           (define xhtml:script-start
             (non-empty-tag-start 'script))
           (module-export
             (current-module 'xhtml:script-start)))))
  (define xhtml:script
    (if empty?
      (empty-tag 'script '((type "text/javascript")))
      (non-empty-tag
        'script
        '((type "text/javascript")))))
  (module-export! (current-module) 'xhtml:script))
(begin
  (cond (#t
         (begin
           (define xhtml:select-end
             (non-empty-tag-end 'select))
           (module-export
             (current-module 'xhtml:select-end))
           (define xhtml:select-start
             (non-empty-tag-start 'select))
           (module-export
             (current-module 'xhtml:select-start)))))
  (define xhtml:select
    (if empty?
      (empty-tag 'select '())
      (non-empty-tag 'select '())))
  (module-export! (current-module) 'xhtml:select))
(begin
  (cond (#t
         (begin
           (define xhtml:small-end
             (non-empty-tag-end 'small))
           (module-export (current-module 'xhtml:small-end))
           (define xhtml:small-start
             (non-empty-tag-start 'small))
           (module-export
             (current-module 'xhtml:small-start)))))
  (define xhtml:small
    (if empty?
      (empty-tag 'small '())
      (non-empty-tag 'small '())))
  (module-export! (current-module) 'xhtml:small))
(begin
  (cond (#t
         (begin
           (define xhtml:span-end (non-empty-tag-end 'span))
           (module-export (current-module 'xhtml:span-end))
           (define xhtml:span-start
             (non-empty-tag-start 'span))
           (module-export
             (current-module 'xhtml:span-start)))))
  (define xhtml:span
    (if empty?
      (empty-tag 'span '())
      (non-empty-tag 'span '())))
  (module-export! (current-module) 'xhtml:span))
(begin
  (cond (#t
         (begin
           (define xhtml:strong-end
             (non-empty-tag-end 'strong))
           (module-export
             (current-module 'xhtml:strong-end))
           (define xhtml:strong-start
             (non-empty-tag-start 'strong))
           (module-export
             (current-module 'xhtml:strong-start)))))
  (define xhtml:strong
    (if empty?
      (empty-tag 'strong '())
      (non-empty-tag 'strong '())))
  (module-export! (current-module) 'xhtml:strong))
(begin
  (cond (#t
         (begin
           (define xhtml:style-end
             (non-empty-tag-end 'style))
           (module-export (current-module 'xhtml:style-end))
           (define xhtml:style-start
             (non-empty-tag-start 'style))
           (module-export
             (current-module 'xhtml:style-start)))))
  (define xhtml:style
    (if empty?
      (empty-tag 'style '((type "text/css")))
      (non-empty-tag 'style '((type "text/css")))))
  (module-export! (current-module) 'xhtml:style))
(begin
  (cond (#t
         (begin
           (define xhtml:sub-end (non-empty-tag-end 'sub))
           (module-export (current-module 'xhtml:sub-end))
           (define xhtml:sub-start
             (non-empty-tag-start 'sub))
           (module-export (current-module 'xhtml:sub-start)))))
  (define xhtml:sub
    (if empty?
      (empty-tag 'sub '())
      (non-empty-tag 'sub '())))
  (module-export! (current-module) 'xhtml:sub))
(begin
  (cond (#t
         (begin
           (define xhtml:sup-end (non-empty-tag-end 'sup))
           (module-export (current-module 'xhtml:sup-end))
           (define xhtml:sup-start
             (non-empty-tag-start 'sup))
           (module-export (current-module 'xhtml:sup-start)))))
  (define xhtml:sup
    (if empty?
      (empty-tag 'sup '())
      (non-empty-tag 'sup '())))
  (module-export! (current-module) 'xhtml:sup))
(begin
  (cond (#t
         (begin
           (define xhtml:table-end
             (non-empty-tag-end 'table))
           (module-export (current-module 'xhtml:table-end))
           (define xhtml:table-start
             (non-empty-tag-start 'table))
           (module-export
             (current-module 'xhtml:table-start)))))
  (define xhtml:table
    (if empty?
      (empty-tag 'table '())
      (non-empty-tag 'table '())))
  (module-export! (current-module) 'xhtml:table))
(begin
  (cond (#t
         (begin
           (define xhtml:tbody-end
             (non-empty-tag-end 'tbody))
           (module-export (current-module 'xhtml:tbody-end))
           (define xhtml:tbody-start
             (non-empty-tag-start 'tbody))
           (module-export
             (current-module 'xhtml:tbody-start)))))
  (define xhtml:tbody
    (if empty?
      (empty-tag 'tbody '())
      (non-empty-tag 'tbody '())))
  (module-export! (current-module) 'xhtml:tbody))
(begin
  (cond (#t
         (begin
           (define xhtml:td-end (non-empty-tag-end 'td))
           (module-export (current-module 'xhtml:td-end))
           (define xhtml:td-start (non-empty-tag-start 'td))
           (module-export (current-module 'xhtml:td-start)))))
  (define xhtml:td
    (if empty?
      (empty-tag 'td '())
      (non-empty-tag 'td '())))
  (module-export! (current-module) 'xhtml:td))
(begin
  (cond (#t
         (begin
           (define xhtml:textarea-end
             (non-empty-tag-end 'textarea))
           (module-export
             (current-module 'xhtml:textarea-end))
           (define xhtml:textarea-start
             (non-empty-tag-start 'textarea))
           (module-export
             (current-module 'xhtml:textarea-start)))))
  (define xhtml:textarea
    (if empty?
      (empty-tag 'textarea '((rows "20") (cols "20")))
      (non-empty-tag
        'textarea
        '((rows "20") (cols "20")))))
  (module-export! (current-module) 'xhtml:textarea))
(begin
  (cond (#t
         (begin
           (define xhtml:tfoot-end
             (non-empty-tag-end 'tfoot))
           (module-export (current-module 'xhtml:tfoot-end))
           (define xhtml:tfoot-start
             (non-empty-tag-start 'tfoot))
           (module-export
             (current-module 'xhtml:tfoot-start)))))
  (define xhtml:tfoot
    (if empty?
      (empty-tag 'tfoot '())
      (non-empty-tag 'tfoot '())))
  (module-export! (current-module) 'xhtml:tfoot))
(begin
  (cond (#t
         (begin
           (define xhtml:th-end (non-empty-tag-end 'th))
           (module-export (current-module 'xhtml:th-end))
           (define xhtml:th-start (non-empty-tag-start 'th))
           (module-export (current-module 'xhtml:th-start)))))
  (define xhtml:th
    (if empty?
      (empty-tag 'th '())
      (non-empty-tag 'th '())))
  (module-export! (current-module) 'xhtml:th))
(begin
  (cond (#t
         (begin
           (define xhtml:thead-end
             (non-empty-tag-end 'thead))
           (module-export (current-module 'xhtml:thead-end))
           (define xhtml:thead-start
             (non-empty-tag-start 'thead))
           (module-export
             (current-module 'xhtml:thead-start)))))
  (define xhtml:thead
    (if empty?
      (empty-tag 'thead '())
      (non-empty-tag 'thead '())))
  (module-export! (current-module) 'xhtml:thead))
(begin
  (cond (#t
         (begin
           (define xhtml:title-end
             (non-empty-tag-end 'title))
           (module-export (current-module 'xhtml:title-end))
           (define xhtml:title-start
             (non-empty-tag-start 'title))
           (module-export
             (current-module 'xhtml:title-start)))))
  (define xhtml:title
    (if empty?
      (empty-tag 'title '())
      (non-empty-tag 'title '())))
  (module-export! (current-module) 'xhtml:title))
(begin
  (cond (#t
         (begin
           (define xhtml:tr-end (non-empty-tag-end 'tr))
           (module-export (current-module 'xhtml:tr-end))
           (define xhtml:tr-start (non-empty-tag-start 'tr))
           (module-export (current-module 'xhtml:tr-start)))))
  (define xhtml:tr
    (if empty?
      (empty-tag 'tr '())
      (non-empty-tag 'tr '())))
  (module-export! (current-module) 'xhtml:tr))
(begin
  (cond (#t
         (begin
           (define xhtml:tt-end (non-empty-tag-end 'tt))
           (module-export (current-module 'xhtml:tt-end))
           (define xhtml:tt-start (non-empty-tag-start 'tt))
           (module-export (current-module 'xhtml:tt-start)))))
  (define xhtml:tt
    (if empty?
      (empty-tag 'tt '())
      (non-empty-tag 'tt '())))
  (module-export! (current-module) 'xhtml:tt))
(begin
  (cond (#t
         (begin
           (define xhtml:ul-end (non-empty-tag-end 'ul))
           (module-export (current-module 'xhtml:ul-end))
           (define xhtml:ul-start (non-empty-tag-start 'ul))
           (module-export (current-module 'xhtml:ul-start)))))
  (define xhtml:ul
    (if empty?
      (empty-tag 'ul '())
      (non-empty-tag 'ul '())))
  (module-export! (current-module) 'xhtml:ul))
(begin
  (cond (#t
         (begin
           (define xhtml:var-end (non-empty-tag-end 'var))
           (module-export (current-module 'xhtml:var-end))
           (define xhtml:var-start
             (non-empty-tag-start 'var))
           (module-export (current-module 'xhtml:var-start)))))
  (define xhtml:var
    (if empty?
      (empty-tag 'var '())
      (non-empty-tag 'var '())))
  (module-export! (current-module) 'xhtml:var))