(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/159/show#nl (std/srfi/159/base#displayed '"\n"))
  (define std/srfi/159/show#fl
    (lambda (_st716_)
      (let ((_col719_
             (##structure-ref _st716_ '3 std/srfi/159/base#Show-Env '#f)))
        ((let ()
           (std/srfi/159/base#displayed
            (if (zero? _col719_)
                std/srfi/159/base#nothing
                std/srfi/159/show#nl)))
         _st716_))))
  (define std/srfi/159/show#tab-to
    (lambda _o702_
      (lambda (_st704_)
        (let ((_col707_
               (##structure-ref _st704_ '3 std/srfi/159/base#Show-Env '#f))
              (_pad-char708_
               (##structure-ref _st704_ '7 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (std/srfi/159/base#displayed
              (let* ((_tab-width711_ (if (pair? _o702_) (car _o702_) '8))
                     (_rem713_ (modulo _col707_ _tab-width711_)))
                (if (positive? _rem713_)
                    (std/srfi/159/base#displayed
                     (make-string (- _tab-width711_ _rem713_) _pad-char708_))
                    std/srfi/159/base#nothing))))
           _st704_)))))
  (define std/srfi/159/show#space-to
    (lambda (_where693_)
      (lambda (_st695_)
        (let ((_col698_
               (##structure-ref _st695_ '3 std/srfi/159/base#Show-Env '#f))
              (_pad-char699_
               (##structure-ref _st695_ '7 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (std/srfi/159/base#displayed
              (std/srfi/159/base#displayed
               (make-string (max '0 (- _where693_ _col698_)) _pad-char699_))))
           _st695_)))))
  (define std/srfi/159/show#with-string-transformer
    (lambda (_proc666_ . _ls667_)
      (lambda (_st669_)
        (let ((_output672_ (std/srfi/159/base#_%ask411_ _st669_ 'output)))
          ((let ()
             (std/srfi/159/base#displayed
              (let ((_output*682_
                     (lambda (_str675_)
                       (lambda (_st677_)
                         (let ()
                           ((let ()
                              (std/srfi/159/base#displayed
                               (_output672_ (_proc666_ _str675_))))
                            _st677_))))))
                (lambda (_st684_)
                  (let ((_tmp687_
                         (std/srfi/159/base#_%ask411_ _st684_ 'output)))
                    (dynamic-wind
                     (lambda ()
                       (std/srfi/159/base#_%tell1752_
                        _st684_
                        'output
                        _output*682_))
                     (lambda ()
                       ((std/srfi/159/base#each
                         (std/srfi/159/base#each-in-list _ls667_))
                        _st684_))
                     (lambda ()
                       (std/srfi/159/base#_%tell1752_
                        _st684_
                        'output
                        _tmp687_))))))))
           _st669_)))))
  (define std/srfi/159/show#upcased
    (lambda _ls664_
      (apply std/srfi/159/show#with-string-transformer
             std/srfi/13#string-upcase
             _ls664_)))
  (define std/srfi/159/show#downcased
    (lambda _ls662_
      (apply std/srfi/159/show#with-string-transformer
             std/srfi/13#string-downcase
             _ls662_)))
  (define std/srfi/159/show#padded/both
    (lambda (_width641_ . _ls642_)
      (std/srfi/159/base#call-with-output
       (std/srfi/159/base#each-in-list _ls642_)
       (lambda (_str644_)
         (lambda (_st646_)
           (let ((_string-width649_
                  (##structure-ref _st646_ '10 std/srfi/159/base#Show-Env '#f))
                 (_pad-char650_
                  (##structure-ref _st646_ '7 std/srfi/159/base#Show-Env '#f)))
             ((let ()
                (std/srfi/159/base#displayed
                 (let ((_diff653_ (- _width641_ (_string-width649_ _str644_))))
                   (if (positive? _diff653_)
                       (let* ((_diff/2655_ (quotient _diff653_ '2))
                              (_left657_
                               (make-string _diff/2655_ _pad-char650_))
                              (_right659_
                               (if (even? _diff653_)
                                   _left657_
                                   (make-string
                                    (+ '1 _diff/2655_)
                                    _pad-char650_))))
                         (std/srfi/159/base#each
                          _left657_
                          _str644_
                          _right659_))
                       (std/srfi/159/base#displayed _str644_)))))
              _st646_)))))))
  (define std/srfi/159/show#padded/right
    (lambda (_width625_ . _ls626_)
      (lambda (_st628_)
        (let ((_col1631_
               (##structure-ref _st628_ '3 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (std/srfi/159/base#displayed
              (std/srfi/159/base#each
               (std/srfi/159/base#each-in-list _ls626_)
               (lambda (_st634_)
                 (let ((_col2637_
                        (##structure-ref
                         _st634_
                         '3
                         std/srfi/159/base#Show-Env
                         '#f))
                       (_pad-char638_
                        (##structure-ref
                         _st634_
                         '7
                         std/srfi/159/base#Show-Env
                         '#f)))
                   ((let ()
                      (std/srfi/159/base#displayed
                       (std/srfi/159/base#displayed
                        (make-string
                         (max '0 (- _width625_ (- _col2637_ _col1631_)))
                         _pad-char638_))))
                    _st634_))))))
           _st628_)))))
  (define std/srfi/159/show#padded/left
    (lambda (_width611_ . _ls612_)
      (std/srfi/159/base#call-with-output
       (std/srfi/159/base#each-in-list _ls612_)
       (lambda (_str614_)
         (lambda (_st616_)
           (let ((_string-width619_
                  (##structure-ref _st616_ '10 std/srfi/159/base#Show-Env '#f))
                 (_pad-char620_
                  (##structure-ref _st616_ '7 std/srfi/159/base#Show-Env '#f)))
             ((let ()
                (std/srfi/159/base#displayed
                 (let ((_diff623_ (- _width611_ (_string-width619_ _str614_))))
                   (std/srfi/159/base#each
                    (make-string (max '0 _diff623_) _pad-char620_)
                    _str614_))))
              _st616_)))))))
  (define std/srfi/159/show#padded std/srfi/159/show#padded/left)
  (define std/srfi/159/show#trimmed/buffered
    (lambda (_width594_ _producer595_ _proc596_)
      (std/srfi/159/base#call-with-output
       _producer595_
       (lambda (_str598_)
         (lambda (_st600_)
           (let ((_string-width603_
                  (##structure-ref
                   _st600_
                   '10
                   std/srfi/159/base#Show-Env
                   '#f)))
             ((let ()
                (std/srfi/159/base#displayed
                 (let* ((_str-width606_ (_string-width603_ _str598_))
                        (_diff608_ (- _str-width606_ _width594_)))
                   (std/srfi/159/base#displayed
                    (if (positive? _diff608_)
                        (_proc596_ _str598_ _str-width606_ _diff608_)
                        _str598_)))))
              _st600_)))))))
  (define std/srfi/159/show#trimmed/right
    (lambda (_width569_ . _ls570_)
      (std/srfi/159/show#trimmed/buffered
       _width569_
       (std/srfi/159/base#each-in-list _ls570_)
       (lambda (_str572_ _str-width573_ _diff574_)
         (lambda (_st576_)
           (let ((_ellipsis579_
                  (##structure-ref _st576_ '11 std/srfi/159/base#Show-Env '#f))
                 (_string-width580_
                  (##structure-ref _st576_ '10 std/srfi/159/base#Show-Env '#f))
                 (_col581_
                  (##structure-ref _st576_ '3 std/srfi/159/base#Show-Env '#f)))
             ((let ()
                (std/srfi/159/base#displayed
                 (let* ((_ell587_
                         (if (char? _ellipsis579_)
                             (string _ellipsis579_)
                             (let ((_$e584_ _ellipsis579_))
                               (if _$e584_ _$e584_ '""))))
                        (_ell-len589_ (_string-width580_ _ell587_))
                        (_diff591_
                         (- (+ _str-width573_ _ell-len589_) _width569_)))
                   (std/srfi/159/base#each
                    (if (negative? _diff591_)
                        std/srfi/159/base#nothing
                        (substring _str572_ '0 (- _width569_ _ell-len589_)))
                    _ell587_))))
              _st576_)))))))
  (define std/srfi/159/show#trimmed/left
    (lambda (_width545_ . _ls546_)
      (std/srfi/159/show#trimmed/buffered
       _width545_
       (std/srfi/159/base#each-in-list _ls546_)
       (lambda (_str548_ _str-width549_ _diff550_)
         (lambda (_st552_)
           (let ((_ellipsis555_
                  (##structure-ref _st552_ '11 std/srfi/159/base#Show-Env '#f))
                 (_string-width556_
                  (##structure-ref
                   _st552_
                   '10
                   std/srfi/159/base#Show-Env
                   '#f)))
             ((let ()
                (std/srfi/159/base#displayed
                 (let* ((_ell562_
                         (if (char? _ellipsis555_)
                             (string _ellipsis555_)
                             (let ((_$e559_ _ellipsis555_))
                               (if _$e559_ _$e559_ '""))))
                        (_ell-len564_ (_string-width556_ _ell562_))
                        (_diff566_
                         (- (+ _str-width549_ _ell-len564_) _width545_)))
                   (std/srfi/159/base#each
                    _ell562_
                    (if (negative? _diff566_)
                        std/srfi/159/base#nothing
                        (std/srfi/159/string#substring*__0
                         _str548_
                         _diff566_))))))
              _st552_)))))))
  (define std/srfi/159/show#trimmed std/srfi/159/show#trimmed/left)
  (define std/srfi/159/show#trimmed/both
    (lambda (_width517_ . _ls518_)
      (std/srfi/159/show#trimmed/buffered
       _width517_
       (std/srfi/159/base#each-in-list _ls518_)
       (lambda (_str520_ _str-width521_ _diff522_)
         (lambda (_st524_)
           (let ((_ellipsis527_
                  (##structure-ref _st524_ '11 std/srfi/159/base#Show-Env '#f))
                 (_string-width528_
                  (##structure-ref
                   _st524_
                   '10
                   std/srfi/159/base#Show-Env
                   '#f)))
             ((let ()
                (std/srfi/159/base#displayed
                 (let* ((_ell534_
                         (if (char? _ellipsis527_)
                             (string _ellipsis527_)
                             (let ((_$e531_ _ellipsis527_))
                               (if _$e531_ _$e531_ '""))))
                        (_ell-len536_ (_string-width528_ _ell534_))
                        (_diff538_
                         (- (+ _str-width521_ _ell-len536_ _ell-len536_)
                            _width517_))
                        (_left540_ (quotient _diff538_ '2))
                        (_right542_
                         (- (_string-width528_ _str520_)
                            (quotient (+ _diff538_ '1) '2))))
                   (if (negative? _diff538_)
                       _ell534_
                       (std/srfi/159/base#each
                        _ell534_
                        (substring _str520_ _left540_ _right542_)
                        _ell534_)))))
              _st524_)))))))
  (define std/srfi/159/show#trimmed/lazy
    (lambda (_width471_ . _ls472_)
      (lambda (_st474_)
        (let ((_orig-output477_ (std/srfi/159/base#_%ask411_ _st474_ 'output))
              (_string-width478_
               (##structure-ref _st474_ '10 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (std/srfi/159/base#displayed
              (call-with-current-continuation
               (lambda (_return481_)
                 (let ((_chars-written486_ '0)
                       (_output487_
                        (let ((_$e483_ _orig-output477_))
                          (if _$e483_
                              _$e483_
                              std/srfi/159/base#output-default))))
                   (letrec ((_output*489_
                             (lambda (_str500_)
                               (let ((_len502_ (_string-width478_ _str500_)))
                                 (set! _chars-written486_
                                       (+ _chars-written486_ _len502_))
                                 (if (> _chars-written486_ _width471_)
                                     (let* ((_end504_
                                             (max '0
                                                  (- _len502_
                                                     (- _chars-written486_
                                                        _width471_))))
                                            (_s506_ (substring
                                                     _str500_
                                                     '0
                                                     _end504_)))
                                       (std/srfi/159/base#each
                                        (_output487_ _s506_)
                                        (lambda (_st509_)
                                          (std/srfi/159/base#_%tell1752_
                                           _st509_
                                           'output
                                           _orig-output477_)
                                          _st509_)
                                        (lambda (_st512_)
                                          (let ()
                                            ((let ()
                                               (std/srfi/159/base#displayed
                                                (_return481_
                                                 std/srfi/159/base#nothing)))
                                             _st512_)))))
                                     (_output487_ _str500_))))))
                     (lambda (_st491_)
                       (let ((_tmp494_
                              (std/srfi/159/base#_%ask411_ _st491_ 'output)))
                         (dynamic-wind
                          (lambda ()
                            (std/srfi/159/base#_%tell1752_
                             _st491_
                             'output
                             _output*489_))
                          (lambda ()
                            ((std/srfi/159/base#each
                              (std/srfi/159/base#each-in-list _ls472_))
                             _st491_))
                          (lambda ()
                            (std/srfi/159/base#_%tell1752_
                             _st491_
                             'output
                             _tmp494_)))))))))))
           _st474_)))))
  (define std/srfi/159/show#fitted/right
    (lambda (_width468_ . _ls469_)
      (std/srfi/159/show#padded/right
       _width468_
       (std/srfi/159/show#trimmed/right
        _width468_
        (std/srfi/159/base#each-in-list _ls469_)))))
  (define std/srfi/159/show#fitted/left
    (lambda (_width465_ . _ls466_)
      (std/srfi/159/show#padded/left
       _width465_
       (std/srfi/159/show#trimmed/left
        _width465_
        (std/srfi/159/base#each-in-list _ls466_)))))
  (define std/srfi/159/show#fitted std/srfi/159/show#fitted/left)
  (define std/srfi/159/show#fitted/both
    (lambda (_width462_ . _ls463_)
      (std/srfi/159/show#padded/both
       _width462_
       (std/srfi/159/show#trimmed/both
        _width462_
        (std/srfi/159/base#each-in-list _ls463_)))))
  (define std/srfi/159/show#joined/general
    (lambda (_elt-f447_ _last-f448_ _dot-f449_ _init-ls450_ _sep451_)
      (lambda (_st453_)
        (let ()
          ((let ()
             (std/srfi/159/base#displayed
              (let _lp458_ ((_ls460_ _init-ls450_))
                (if (pair? _ls460_)
                    (std/srfi/159/base#each
                     (if (eq? _ls460_ _init-ls450_)
                         std/srfi/159/base#nothing
                         _sep451_)
                     ((if (and _last-f448_ (null? (cdr _ls460_)))
                          _last-f448_
                          _elt-f447_)
                      (car _ls460_))
                     (_lp458_ (cdr _ls460_)))
                    (if (and _dot-f449_ (not (null? _ls460_)))
                        (std/srfi/159/base#each
                         (if (eq? _ls460_ _init-ls450_)
                             std/srfi/159/base#nothing
                             _sep451_)
                         (_dot-f449_ _ls460_))
                        std/srfi/159/base#nothing)))))
           _st453_)))))
  (define std/srfi/159/show#joined
    (lambda (_elt-f443_ _ls444_ . _o445_)
      (std/srfi/159/show#joined/general
       _elt-f443_
       '#f
       '#f
       _ls444_
       (if (pair? _o445_) (car _o445_) '""))))
  (define std/srfi/159/show#joined/prefix
    (lambda (_elt-f437_ _ls438_ . _o439_)
      (if (null? _ls438_)
          std/srfi/159/base#nothing
          (let ((_sep441_ (if (pair? _o439_) (car _o439_) '"")))
            (std/srfi/159/base#each
             _sep441_
             (std/srfi/159/show#joined _elt-f437_ _ls438_ _sep441_))))))
  (define std/srfi/159/show#joined/suffix
    (lambda (_elt-f431_ _ls432_ . _o433_)
      (if (null? _ls432_)
          std/srfi/159/base#nothing
          (let ((_sep435_ (if (pair? _o433_) (car _o433_) '"")))
            (std/srfi/159/base#each
             (std/srfi/159/show#joined _elt-f431_ _ls432_ _sep435_)
             _sep435_)))))
  (define std/srfi/159/show#joined/last
    (lambda (_elt-f426_ _last-f427_ _ls428_ . _o429_)
      (std/srfi/159/show#joined/general
       _elt-f426_
       _last-f427_
       '#f
       _ls428_
       (if (pair? _o429_) (car _o429_) '""))))
  (define std/srfi/159/show#joined/dot
    (lambda (_elt-f421_ _dot-f422_ _ls423_ . _o424_)
      (std/srfi/159/show#joined/general
       _elt-f421_
       '#f
       _dot-f422_
       _ls423_
       (if (pair? _o424_) (car _o424_) '""))))
  (define std/srfi/159/show#joined/range
    (lambda (_elt-f405_ _start406_ . _o407_)
      (let ((_end409_ (if (pair? _o407_) (car _o407_) '#f))
            (_sep410_
             (if (and (pair? _o407_) (pair? (cdr _o407_))) (cadr _o407_) '"")))
        (let _lp412_ ((_i414_ _start406_))
          (if (and _end409_ (>= _i414_ _end409_))
              std/srfi/159/base#nothing
              (std/srfi/159/base#each
               (if (> _i414_ _start406_) _sep410_ std/srfi/159/base#nothing)
               (_elt-f405_ _i414_)
               (lambda (_st416_)
                 (let ()
                   ((let ()
                      (std/srfi/159/base#displayed (_lp412_ (+ _i414_ '1))))
                    _st416_))))))))))
