(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/xml/print#print-sxml->html__%
    (lambda (_sxml733_ _port735_)
      (std/xml/sxml-to-xml#sxml>>html
       (std/xml/print#item _sxml733_)
       _port735_)))
  (define std/xml/print#print-sxml->html__0
    (lambda (_sxml741_)
      (let ((_port743_ (current-output-port)))
        (std/xml/print#print-sxml->html__% _sxml741_ _port743_))))
  (define std/xml/print#print-sxml->html
    (lambda _g4346_
      (let ((_g4345_ (let () (declare (not safe)) (##length _g4346_))))
        (cond ((let () (declare (not safe)) (##fx= _g4345_ 1))
               (apply std/xml/print#print-sxml->html__0 _g4346_))
              ((let () (declare (not safe)) (##fx= _g4345_ 2))
               (apply std/xml/print#print-sxml->html__% _g4346_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->html
                _g4346_))))))
  (define std/xml/print#print-sxml->html*__%
    (lambda (_sxml717_ _port719_)
      (std/xml/sxml-to-xml#sxml>>html*
       (std/xml/print#item _sxml717_)
       _port719_)))
  (define std/xml/print#print-sxml->html*__0
    (lambda (_sxml725_)
      (let ((_port727_ (current-output-port)))
        (std/xml/print#print-sxml->html*__% _sxml725_ _port727_))))
  (define std/xml/print#print-sxml->html*
    (lambda _g4348_
      (let ((_g4347_ (let () (declare (not safe)) (##length _g4348_))))
        (cond ((let () (declare (not safe)) (##fx= _g4347_ 1))
               (apply std/xml/print#print-sxml->html*__0 _g4348_))
              ((let () (declare (not safe)) (##fx= _g4347_ 2))
               (apply std/xml/print#print-sxml->html*__% _g4348_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->html*
                _g4348_))))))
  (define std/xml/print#print-sxml->html-fast__%
    (lambda (_sxml701_ _port703_)
      (std/xml/sxml-to-xml#sxml>>html-fast
       (std/xml/print#item _sxml701_)
       _port703_)))
  (define std/xml/print#print-sxml->html-fast__0
    (lambda (_sxml709_)
      (let ((_port711_ (current-output-port)))
        (std/xml/print#print-sxml->html-fast__% _sxml709_ _port711_))))
  (define std/xml/print#print-sxml->html-fast
    (lambda _g4350_
      (let ((_g4349_ (let () (declare (not safe)) (##length _g4350_))))
        (cond ((let () (declare (not safe)) (##fx= _g4349_ 1))
               (apply std/xml/print#print-sxml->html-fast__0 _g4350_))
              ((let () (declare (not safe)) (##fx= _g4349_ 2))
               (apply std/xml/print#print-sxml->html-fast__% _g4350_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->html-fast
                _g4350_))))))
  (define std/xml/print#print-sxml->xhtml__%
    (lambda (_sxml685_ _port687_)
      (std/xml/sxml-to-xml#sxml>>xhtml
       (std/xml/print#item _sxml685_)
       _port687_)))
  (define std/xml/print#print-sxml->xhtml__0
    (lambda (_sxml693_)
      (let ((_port695_ (current-output-port)))
        (std/xml/print#print-sxml->xhtml__% _sxml693_ _port695_))))
  (define std/xml/print#print-sxml->xhtml
    (lambda _g4352_
      (let ((_g4351_ (let () (declare (not safe)) (##length _g4352_))))
        (cond ((let () (declare (not safe)) (##fx= _g4351_ 1))
               (apply std/xml/print#print-sxml->xhtml__0 _g4352_))
              ((let () (declare (not safe)) (##fx= _g4351_ 2))
               (apply std/xml/print#print-sxml->xhtml__% _g4352_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xhtml
                _g4352_))))))
  (define std/xml/print#print-sxml->xhtml*__%
    (lambda (_sxml669_ _port671_)
      (std/xml/sxml-to-xml#sxml>>xhtml*
       (std/xml/print#item _sxml669_)
       _port671_)))
  (define std/xml/print#print-sxml->xhtml*__0
    (lambda (_sxml677_)
      (let ((_port679_ (current-output-port)))
        (std/xml/print#print-sxml->xhtml*__% _sxml677_ _port679_))))
  (define std/xml/print#print-sxml->xhtml*
    (lambda _g4354_
      (let ((_g4353_ (let () (declare (not safe)) (##length _g4354_))))
        (cond ((let () (declare (not safe)) (##fx= _g4353_ 1))
               (apply std/xml/print#print-sxml->xhtml*__0 _g4354_))
              ((let () (declare (not safe)) (##fx= _g4353_ 2))
               (apply std/xml/print#print-sxml->xhtml*__% _g4354_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xhtml*
                _g4354_))))))
  (define std/xml/print#print-sxml->xhtml-fast__%
    (lambda (_sxml653_ _port655_)
      (std/xml/sxml-to-xml#sxml>>xhtml-fast
       (std/xml/print#item _sxml653_)
       _port655_)))
  (define std/xml/print#print-sxml->xhtml-fast__0
    (lambda (_sxml661_)
      (let ((_port663_ (current-output-port)))
        (std/xml/print#print-sxml->xhtml-fast__% _sxml661_ _port663_))))
  (define std/xml/print#print-sxml->xhtml-fast
    (lambda _g4356_
      (let ((_g4355_ (let () (declare (not safe)) (##length _g4356_))))
        (cond ((let () (declare (not safe)) (##fx= _g4355_ 1))
               (apply std/xml/print#print-sxml->xhtml-fast__0 _g4356_))
              ((let () (declare (not safe)) (##fx= _g4355_ 2))
               (apply std/xml/print#print-sxml->xhtml-fast__% _g4356_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xhtml-fast
                _g4356_))))))
  (define std/xml/print#print-sxml->xml__%
    (lambda (_sxml637_ _port639_)
      (std/xml/sxml-to-xml#sxml>>xml
       (std/xml/print#item _sxml637_)
       _port639_)))
  (define std/xml/print#print-sxml->xml__0
    (lambda (_sxml645_)
      (let ((_port647_ (current-output-port)))
        (std/xml/print#print-sxml->xml__% _sxml645_ _port647_))))
  (define std/xml/print#print-sxml->xml
    (lambda _g4358_
      (let ((_g4357_ (let () (declare (not safe)) (##length _g4358_))))
        (cond ((let () (declare (not safe)) (##fx= _g4357_ 1))
               (apply std/xml/print#print-sxml->xml__0 _g4358_))
              ((let () (declare (not safe)) (##fx= _g4357_ 2))
               (apply std/xml/print#print-sxml->xml__% _g4358_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xml
                _g4358_))))))
  (define std/xml/print#print-sxml->xml*__%
    (lambda (_sxml621_ _port623_)
      (std/xml/sxml-to-xml#sxml>>xml*
       (std/xml/print#item _sxml621_)
       _port623_)))
  (define std/xml/print#print-sxml->xml*__0
    (lambda (_sxml629_)
      (let ((_port631_ (current-output-port)))
        (std/xml/print#print-sxml->xml*__% _sxml629_ _port631_))))
  (define std/xml/print#print-sxml->xml*
    (lambda _g4360_
      (let ((_g4359_ (let () (declare (not safe)) (##length _g4360_))))
        (cond ((let () (declare (not safe)) (##fx= _g4359_ 1))
               (apply std/xml/print#print-sxml->xml*__0 _g4360_))
              ((let () (declare (not safe)) (##fx= _g4359_ 2))
               (apply std/xml/print#print-sxml->xml*__% _g4360_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xml*
                _g4360_))))))
  (define std/xml/print#print-sxml->xml-fast__%
    (lambda (_sxml605_ _port607_)
      (std/xml/sxml-to-xml#sxml>>xml-fast
       (std/xml/print#item _sxml605_)
       _port607_)))
  (define std/xml/print#print-sxml->xml-fast__0
    (lambda (_sxml613_)
      (let ((_port615_ (current-output-port)))
        (std/xml/print#print-sxml->xml-fast__% _sxml613_ _port615_))))
  (define std/xml/print#print-sxml->xml-fast
    (lambda _g4362_
      (let ((_g4361_ (let () (declare (not safe)) (##length _g4362_))))
        (cond ((let () (declare (not safe)) (##fx= _g4361_ 1))
               (apply std/xml/print#print-sxml->xml-fast__0 _g4362_))
              ((let () (declare (not safe)) (##fx= _g4361_ 2))
               (apply std/xml/print#print-sxml->xml-fast__% _g4362_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#print-sxml->xml-fast
                _g4362_))))))
  (define std/xml/print#pretty-print-sxml->xml-file__%
    (lambda (_sxml589_ _port591_)
      (std/xml/sxml-to-xml#sxml>>pretty-xml-file
       (std/xml/print#item _sxml589_)
       _port591_)))
  (define std/xml/print#pretty-print-sxml->xml-file__0
    (lambda (_sxml597_)
      (let ((_port599_ (current-output-port)))
        (std/xml/print#pretty-print-sxml->xml-file__% _sxml597_ _port599_))))
  (define std/xml/print#pretty-print-sxml->xml-file
    (lambda _g4364_
      (let ((_g4363_ (let () (declare (not safe)) (##length _g4364_))))
        (cond ((let () (declare (not safe)) (##fx= _g4363_ 1))
               (apply std/xml/print#pretty-print-sxml->xml-file__0 _g4364_))
              ((let () (declare (not safe)) (##fx= _g4363_ 2))
               (apply std/xml/print#pretty-print-sxml->xml-file__% _g4364_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#pretty-print-sxml->xml-file
                _g4364_))))))
  (define std/xml/print#pretty-print-sxml->xhtml-file__%
    (lambda (_sxml573_ _port575_)
      (std/xml/sxml-to-xml#sxml>>pretty-xhtml-file
       (std/xml/print#item _sxml573_)
       _port575_)))
  (define std/xml/print#pretty-print-sxml->xhtml-file__0
    (lambda (_sxml581_)
      (let ((_port583_ (current-output-port)))
        (std/xml/print#pretty-print-sxml->xhtml-file__% _sxml581_ _port583_))))
  (define std/xml/print#pretty-print-sxml->xhtml-file
    (lambda _g4366_
      (let ((_g4365_ (let () (declare (not safe)) (##length _g4366_))))
        (cond ((let () (declare (not safe)) (##fx= _g4365_ 1))
               (apply std/xml/print#pretty-print-sxml->xhtml-file__0 _g4366_))
              ((let () (declare (not safe)) (##fx= _g4365_ 2))
               (apply std/xml/print#pretty-print-sxml->xhtml-file__% _g4366_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#pretty-print-sxml->xhtml-file
                _g4366_))))))
  (define std/xml/print#write-xml__%
    (lambda (_sxml559_ _port560_)
      (std/xml/sxml-to-xml#sxml>>xml-fast
       (std/xml/print#item _sxml559_)
       _port560_)))
  (define std/xml/print#write-xml__0
    (lambda (_sxml565_)
      (let ((_port567_ (current-output-port)))
        (std/xml/print#write-xml__% _sxml565_ _port567_))))
  (define std/xml/print#write-xml
    (lambda _g4368_
      (let ((_g4367_ (let () (declare (not safe)) (##length _g4368_))))
        (cond ((let () (declare (not safe)) (##fx= _g4367_ 1))
               (apply std/xml/print#write-xml__0 _g4368_))
              ((let () (declare (not safe)) (##fx= _g4367_ 2))
               (apply std/xml/print#write-xml__% _g4368_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#write-xml
                _g4368_))))))
  (define std/xml/print#write-html__%
    (lambda (_sxml545_ _port546_)
      (std/xml/sxml-to-xml#sxml>>html-fast
       (std/xml/print#item _sxml545_)
       _port546_)))
  (define std/xml/print#write-html__0
    (lambda (_sxml551_)
      (let ((_port553_ (current-output-port)))
        (std/xml/print#write-html__% _sxml551_ _port553_))))
  (define std/xml/print#write-html
    (lambda _g4370_
      (let ((_g4369_ (let () (declare (not safe)) (##length _g4370_))))
        (cond ((let () (declare (not safe)) (##fx= _g4369_ 1))
               (apply std/xml/print#write-html__0 _g4370_))
              ((let () (declare (not safe)) (##fx= _g4369_ 2))
               (apply std/xml/print#write-html__% _g4370_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/xml/print#write-html
                _g4370_))))))
  (define std/xml/print#item
    (lambda (_sxml472_)
      (let* ((_sxml473481_ _sxml472_)
             (_else475489_ (lambda () _sxml472_))
             (_K477534_
              (lambda (_rest492_)
                (let* ((_rest493503_ _rest492_)
                       (_else495511_ (lambda () _rest492_))
                       (_K497517_ (lambda (_rest514_ _attrs515_) _rest514_)))
                  (if (let () (declare (not safe)) (##pair? _rest493503_))
                      (let ((_hd498520_
                             (let ()
                               (declare (not safe))
                               (##car _rest493503_)))
                            (_tl499522_
                             (let ()
                               (declare (not safe))
                               (##cdr _rest493503_))))
                        (if (let () (declare (not safe)) (##pair? _hd498520_))
                            (let ((_hd500525_
                                   (let ()
                                     (declare (not safe))
                                     (##car _hd498520_)))
                                  (_tl501527_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _hd498520_))))
                              (if (let ()
                                    (declare (not safe))
                                    (##eq? _hd500525_ '@))
                                  (let* ((_attrs530_ _tl501527_)
                                         (_rest532_ _tl499522_))
                                    (_K497517_ _rest532_ _attrs530_))
                                  (_else495511_)))
                            (_else495511_)))
                      (_else495511_))))))
        (if (let () (declare (not safe)) (##pair? _sxml473481_))
            (let ((_hd478537_
                   (let () (declare (not safe)) (##car _sxml473481_)))
                  (_tl479539_
                   (let () (declare (not safe)) (##cdr _sxml473481_))))
              (if (let () (declare (not safe)) (##eq? _hd478537_ '*TOP*))
                  (let ((_rest542_ _tl479539_)) (_K477534_ _rest542_))
                  (_else475489_)))
            (_else475489_))))))
