(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/xml/print#print-sxml->html__%
    (lambda (_sxml174643_ _port174645_)
      (std/xml/sxml-to-xml#sxml>>html
       (std/xml/print#item _sxml174643_)
       _port174645_)))
  (define std/xml/print#print-sxml->html__0
    (lambda (_sxml174651_)
      (let ((_port174653_ (current-output-port)))
        (std/xml/print#print-sxml->html__% _sxml174651_ _port174653_))))
  (define std/xml/print#print-sxml->html
    (lambda _g174658_
      (let ((_g174657_ (length _g174658_)))
        (cond ((##fx= _g174657_ 1)
               (apply std/xml/print#print-sxml->html__0 _g174658_))
              ((##fx= _g174657_ 2)
               (apply std/xml/print#print-sxml->html__% _g174658_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->html
                _g174658_))))))
  (define std/xml/print#print-sxml->html*__%
    (lambda (_sxml174627_ _port174629_)
      (std/xml/sxml-to-xml#sxml>>html*
       (std/xml/print#item _sxml174627_)
       _port174629_)))
  (define std/xml/print#print-sxml->html*__0
    (lambda (_sxml174635_)
      (let ((_port174637_ (current-output-port)))
        (std/xml/print#print-sxml->html*__% _sxml174635_ _port174637_))))
  (define std/xml/print#print-sxml->html*
    (lambda _g174660_
      (let ((_g174659_ (length _g174660_)))
        (cond ((##fx= _g174659_ 1)
               (apply std/xml/print#print-sxml->html*__0 _g174660_))
              ((##fx= _g174659_ 2)
               (apply std/xml/print#print-sxml->html*__% _g174660_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->html*
                _g174660_))))))
  (define std/xml/print#print-sxml->html-fast__%
    (lambda (_sxml174611_ _port174613_)
      (std/xml/sxml-to-xml#sxml>>html-fast
       (std/xml/print#item _sxml174611_)
       _port174613_)))
  (define std/xml/print#print-sxml->html-fast__0
    (lambda (_sxml174619_)
      (let ((_port174621_ (current-output-port)))
        (std/xml/print#print-sxml->html-fast__% _sxml174619_ _port174621_))))
  (define std/xml/print#print-sxml->html-fast
    (lambda _g174662_
      (let ((_g174661_ (length _g174662_)))
        (cond ((##fx= _g174661_ 1)
               (apply std/xml/print#print-sxml->html-fast__0 _g174662_))
              ((##fx= _g174661_ 2)
               (apply std/xml/print#print-sxml->html-fast__% _g174662_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->html-fast
                _g174662_))))))
  (define std/xml/print#print-sxml->xhtml__%
    (lambda (_sxml174595_ _port174597_)
      (std/xml/sxml-to-xml#sxml>>xhtml
       (std/xml/print#item _sxml174595_)
       _port174597_)))
  (define std/xml/print#print-sxml->xhtml__0
    (lambda (_sxml174603_)
      (let ((_port174605_ (current-output-port)))
        (std/xml/print#print-sxml->xhtml__% _sxml174603_ _port174605_))))
  (define std/xml/print#print-sxml->xhtml
    (lambda _g174664_
      (let ((_g174663_ (length _g174664_)))
        (cond ((##fx= _g174663_ 1)
               (apply std/xml/print#print-sxml->xhtml__0 _g174664_))
              ((##fx= _g174663_ 2)
               (apply std/xml/print#print-sxml->xhtml__% _g174664_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xhtml
                _g174664_))))))
  (define std/xml/print#print-sxml->xhtml*__%
    (lambda (_sxml174579_ _port174581_)
      (std/xml/sxml-to-xml#sxml>>xhtml*
       (std/xml/print#item _sxml174579_)
       _port174581_)))
  (define std/xml/print#print-sxml->xhtml*__0
    (lambda (_sxml174587_)
      (let ((_port174589_ (current-output-port)))
        (std/xml/print#print-sxml->xhtml*__% _sxml174587_ _port174589_))))
  (define std/xml/print#print-sxml->xhtml*
    (lambda _g174666_
      (let ((_g174665_ (length _g174666_)))
        (cond ((##fx= _g174665_ 1)
               (apply std/xml/print#print-sxml->xhtml*__0 _g174666_))
              ((##fx= _g174665_ 2)
               (apply std/xml/print#print-sxml->xhtml*__% _g174666_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xhtml*
                _g174666_))))))
  (define std/xml/print#print-sxml->xhtml-fast__%
    (lambda (_sxml174563_ _port174565_)
      (std/xml/sxml-to-xml#sxml>>xhtml-fast
       (std/xml/print#item _sxml174563_)
       _port174565_)))
  (define std/xml/print#print-sxml->xhtml-fast__0
    (lambda (_sxml174571_)
      (let ((_port174573_ (current-output-port)))
        (std/xml/print#print-sxml->xhtml-fast__% _sxml174571_ _port174573_))))
  (define std/xml/print#print-sxml->xhtml-fast
    (lambda _g174668_
      (let ((_g174667_ (length _g174668_)))
        (cond ((##fx= _g174667_ 1)
               (apply std/xml/print#print-sxml->xhtml-fast__0 _g174668_))
              ((##fx= _g174667_ 2)
               (apply std/xml/print#print-sxml->xhtml-fast__% _g174668_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xhtml-fast
                _g174668_))))))
  (define std/xml/print#print-sxml->xml__%
    (lambda (_sxml174547_ _port174549_)
      (std/xml/sxml-to-xml#sxml>>xml
       (std/xml/print#item _sxml174547_)
       _port174549_)))
  (define std/xml/print#print-sxml->xml__0
    (lambda (_sxml174555_)
      (let ((_port174557_ (current-output-port)))
        (std/xml/print#print-sxml->xml__% _sxml174555_ _port174557_))))
  (define std/xml/print#print-sxml->xml
    (lambda _g174670_
      (let ((_g174669_ (length _g174670_)))
        (cond ((##fx= _g174669_ 1)
               (apply std/xml/print#print-sxml->xml__0 _g174670_))
              ((##fx= _g174669_ 2)
               (apply std/xml/print#print-sxml->xml__% _g174670_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xml
                _g174670_))))))
  (define std/xml/print#print-sxml->xml*__%
    (lambda (_sxml174531_ _port174533_)
      (std/xml/sxml-to-xml#sxml>>xml*
       (std/xml/print#item _sxml174531_)
       _port174533_)))
  (define std/xml/print#print-sxml->xml*__0
    (lambda (_sxml174539_)
      (let ((_port174541_ (current-output-port)))
        (std/xml/print#print-sxml->xml*__% _sxml174539_ _port174541_))))
  (define std/xml/print#print-sxml->xml*
    (lambda _g174672_
      (let ((_g174671_ (length _g174672_)))
        (cond ((##fx= _g174671_ 1)
               (apply std/xml/print#print-sxml->xml*__0 _g174672_))
              ((##fx= _g174671_ 2)
               (apply std/xml/print#print-sxml->xml*__% _g174672_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xml*
                _g174672_))))))
  (define std/xml/print#print-sxml->xml-fast__%
    (lambda (_sxml174515_ _port174517_)
      (std/xml/sxml-to-xml#sxml>>xml-fast
       (std/xml/print#item _sxml174515_)
       _port174517_)))
  (define std/xml/print#print-sxml->xml-fast__0
    (lambda (_sxml174523_)
      (let ((_port174525_ (current-output-port)))
        (std/xml/print#print-sxml->xml-fast__% _sxml174523_ _port174525_))))
  (define std/xml/print#print-sxml->xml-fast
    (lambda _g174674_
      (let ((_g174673_ (length _g174674_)))
        (cond ((##fx= _g174673_ 1)
               (apply std/xml/print#print-sxml->xml-fast__0 _g174674_))
              ((##fx= _g174673_ 2)
               (apply std/xml/print#print-sxml->xml-fast__% _g174674_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xml-fast
                _g174674_))))))
  (define std/xml/print#pretty-print-sxml->xml-file__%
    (lambda (_sxml174499_ _port174501_)
      (std/xml/sxml-to-xml#sxml>>pretty-xml-file
       (std/xml/print#item _sxml174499_)
       _port174501_)))
  (define std/xml/print#pretty-print-sxml->xml-file__0
    (lambda (_sxml174507_)
      (let ((_port174509_ (current-output-port)))
        (std/xml/print#pretty-print-sxml->xml-file__%
         _sxml174507_
         _port174509_))))
  (define std/xml/print#pretty-print-sxml->xml-file
    (lambda _g174676_
      (let ((_g174675_ (length _g174676_)))
        (cond ((##fx= _g174675_ 1)
               (apply std/xml/print#pretty-print-sxml->xml-file__0 _g174676_))
              ((##fx= _g174675_ 2)
               (apply std/xml/print#pretty-print-sxml->xml-file__% _g174676_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#pretty-print-sxml->xml-file
                _g174676_))))))
  (define std/xml/print#pretty-print-sxml->xhtml-file__%
    (lambda (_sxml174483_ _port174485_)
      (std/xml/sxml-to-xml#sxml>>pretty-xhtml-file
       (std/xml/print#item _sxml174483_)
       _port174485_)))
  (define std/xml/print#pretty-print-sxml->xhtml-file__0
    (lambda (_sxml174491_)
      (let ((_port174493_ (current-output-port)))
        (std/xml/print#pretty-print-sxml->xhtml-file__%
         _sxml174491_
         _port174493_))))
  (define std/xml/print#pretty-print-sxml->xhtml-file
    (lambda _g174678_
      (let ((_g174677_ (length _g174678_)))
        (cond ((##fx= _g174677_ 1)
               (apply std/xml/print#pretty-print-sxml->xhtml-file__0
                      _g174678_))
              ((##fx= _g174677_ 2)
               (apply std/xml/print#pretty-print-sxml->xhtml-file__%
                      _g174678_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#pretty-print-sxml->xhtml-file
                _g174678_))))))
  (define std/xml/print#write-xml__%
    (lambda (_sxml174469_ _port174470_)
      (std/xml/sxml-to-xml#sxml>>xml-fast
       (std/xml/print#item _sxml174469_)
       _port174470_)))
  (define std/xml/print#write-xml__0
    (lambda (_sxml174475_)
      (let ((_port174477_ (current-output-port)))
        (std/xml/print#write-xml__% _sxml174475_ _port174477_))))
  (define std/xml/print#write-xml
    (lambda _g174680_
      (let ((_g174679_ (length _g174680_)))
        (cond ((##fx= _g174679_ 1)
               (apply std/xml/print#write-xml__0 _g174680_))
              ((##fx= _g174679_ 2)
               (apply std/xml/print#write-xml__% _g174680_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#write-xml
                _g174680_))))))
  (define std/xml/print#write-html__%
    (lambda (_sxml174455_ _port174456_)
      (std/xml/sxml-to-xml#sxml>>html-fast
       (std/xml/print#item _sxml174455_)
       _port174456_)))
  (define std/xml/print#write-html__0
    (lambda (_sxml174461_)
      (let ((_port174463_ (current-output-port)))
        (std/xml/print#write-html__% _sxml174461_ _port174463_))))
  (define std/xml/print#write-html
    (lambda _g174682_
      (let ((_g174681_ (length _g174682_)))
        (cond ((##fx= _g174681_ 1)
               (apply std/xml/print#write-html__0 _g174682_))
              ((##fx= _g174681_ 2)
               (apply std/xml/print#write-html__% _g174682_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#write-html
                _g174682_))))))
  (define std/xml/print#item
    (lambda (_sxml174382_)
      (let* ((_sxml174383174391_ _sxml174382_)
             (_else174385174399_ (lambda () _sxml174382_))
             (_K174387174444_
              (lambda (_rest174402_)
                (let* ((_rest174403174413_ _rest174402_)
                       (_else174405174421_ (lambda () _rest174402_))
                       (_K174407174427_
                        (lambda (_rest174424_ _attrs174425_) _rest174424_)))
                  (if (##pair? _rest174403174413_)
                      (let ((_hd174408174430_ (##car _rest174403174413_))
                            (_tl174409174432_ (##cdr _rest174403174413_)))
                        (if (##pair? _hd174408174430_)
                            (let ((_hd174410174435_ (##car _hd174408174430_))
                                  (_tl174411174437_ (##cdr _hd174408174430_)))
                              (if (##eq? _hd174410174435_ '@)
                                  (let* ((_attrs174440_ _tl174411174437_)
                                         (_rest174442_ _tl174409174432_))
                                    (_K174407174427_
                                     _rest174442_
                                     _attrs174440_))
                                  (_else174405174421_)))
                            (_else174405174421_)))
                      (_else174405174421_))))))
        (if (##pair? _sxml174383174391_)
            (let ((_hd174388174447_ (##car _sxml174383174391_))
                  (_tl174389174449_ (##cdr _sxml174383174391_)))
              (if (##eq? _hd174388174447_ '*TOP*)
                  (let ((_rest174452_ _tl174389174449_))
                    (_K174387174444_ _rest174452_))
                  (_else174385174399_)))
            (_else174385174399_))))))
