(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/159/base#Show-Env
    (make-struct-type
     'std/srfi/159/base#Show-Env
     '#f
     '14
     'Show-Env
     '((fields:
        port
        row
        col
        width
        radix
        precision
        pad-char
        decimal-sep
        decimal-align
        string-width
        ellipsis
        writer
        output
        %props))
     '#f))
  (define std/srfi/159/base#_state?403_
    (make-struct-predicate std/srfi/159/base#Show-Env))
  (define std/srfi/159/base#env-port
    (make-struct-field-accessor std/srfi/159/base#Show-Env '0))
  (define std/srfi/159/base#env-row
    (make-struct-field-accessor std/srfi/159/base#Show-Env '1))
  (define std/srfi/159/base#env-col
    (make-struct-field-accessor std/srfi/159/base#Show-Env '2))
  (define std/srfi/159/base#env-width
    (make-struct-field-accessor std/srfi/159/base#Show-Env '3))
  (define std/srfi/159/base#env-radix
    (make-struct-field-accessor std/srfi/159/base#Show-Env '4))
  (define std/srfi/159/base#env-precision
    (make-struct-field-accessor std/srfi/159/base#Show-Env '5))
  (define std/srfi/159/base#env-pad-char
    (make-struct-field-accessor std/srfi/159/base#Show-Env '6))
  (define std/srfi/159/base#env-decimal-sep
    (make-struct-field-accessor std/srfi/159/base#Show-Env '7))
  (define std/srfi/159/base#env-decimal-align
    (make-struct-field-accessor std/srfi/159/base#Show-Env '8))
  (define std/srfi/159/base#env-string-width
    (make-struct-field-accessor std/srfi/159/base#Show-Env '9))
  (define std/srfi/159/base#env-ellipsis
    (make-struct-field-accessor std/srfi/159/base#Show-Env '10))
  (define std/srfi/159/base#env-writer
    (make-struct-field-accessor std/srfi/159/base#Show-Env '11))
  (define std/srfi/159/base#env-output
    (make-struct-field-accessor std/srfi/159/base#Show-Env '12))
  (define std/srfi/159/base#_get-props405_
    (make-struct-field-accessor std/srfi/159/base#Show-Env '13))
  (define std/srfi/159/base#env-port-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '0))
  (define std/srfi/159/base#env-row-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '1))
  (define std/srfi/159/base#env-col-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '2))
  (define std/srfi/159/base#env-width-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '3))
  (define std/srfi/159/base#env-radix-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '4))
  (define std/srfi/159/base#env-precision-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '5))
  (define std/srfi/159/base#env-pad-char-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '6))
  (define std/srfi/159/base#env-decimal-sep-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '7))
  (define std/srfi/159/base#env-decimal-align-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '8))
  (define std/srfi/159/base#env-string-width-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '9))
  (define std/srfi/159/base#env-ellipsis-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '10))
  (define std/srfi/159/base#env-writer-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '11))
  (define std/srfi/159/base#env-output-set!
    (make-struct-field-mutator std/srfi/159/base#Show-Env '12))
  (define std/srfi/159/base#_set-props!407_
    (make-struct-field-mutator std/srfi/159/base#Show-Env '13))
  (define std/srfi/159/base#_make-state409_
    (lambda (_port6711_
             _row6712_
             _col6713_
             _width6714_
             _radix6715_
             _precision6716_
             _pad-char6717_
             _decimal-sep6718_
             _decimal-align6719_
             _string-width6720_
             _ellipsis6721_
             _writer6722_
             _output6723_
             _%props6724_)
      (make-struct-instance
       std/srfi/159/base#Show-Env
       _port6711_
       _row6712_
       _col6713_
       _width6714_
       _radix6715_
       _precision6716_
       _pad-char6717_
       _decimal-sep6718_
       _decimal-align6719_
       _string-width6720_
       _ellipsis6721_
       _writer6722_
       _output6723_
       _%props6724_)))
  (define std/srfi/159/base#_%ask411_
    (lambda (_st6681_ _x6682_)
      (let ((_$e6684_ _x6682_))
        (let ((_default66866693_
               (lambda ()
                 (let ((_$e6690_
                        (assq _x6682_
                              (##structure-ref
                               _st6681_
                               '14
                               std/srfi/159/base#Show-Env
                               '#f))))
                   (if _$e6690_ (cdr _$e6690_) '#f))))
              (_table66876695_
               '#(#f
                  #f
                  (row . 1)
                  #f
                  #f
                  #f
                  #f
                  #f
                  (decimal-align . 8)
                  #f
                  #f
                  #f
                  #f
                  (output . 12)
                  #f
                  #f
                  #f
                  #f
                  #f
                  (pad-char . 6)
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  (radix . 4)
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  (writer . 11)
                  #f
                  #f
                  #f
                  #f
                  #f
                  (port . 0)
                  #f
                  #f
                  #f
                  #f
                  (width . 3)
                  #f
                  #f
                  (string-width . 9)
                  #f
                  #f
                  (precision . 5)
                  #f
                  (ellipsis . 10)
                  #f
                  (col . 2)
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  (decimal-sep . 7)
                  #f)))
          (if (symbol? _$e6684_)
              (let* ((_h6698_ (let ()
                                (declare (not safe))
                                (##symbol-hash _$e6684_)))
                     (_ix6701_
                      (let () (declare (not safe)) (##fxmodulo _h6698_ '87)))
                     (_q6704_ (let ()
                                (declare (not safe))
                                (##vector-ref _table66876695_ _ix6701_))))
                (if _q6704_
                    (if (eq? (let () (declare (not safe)) (##car _q6704_))
                             _$e6684_)
                        (let ((_x6708_ (let ()
                                         (declare (not safe))
                                         (##cdr _q6704_))))
                          (if (let () (declare (not safe)) (##fx< _x6708_ '6))
                              (if (let ()
                                    (declare (not safe))
                                    (##fx< _x6708_ '3))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx= _x6708_ '0))
                                      (##structure-ref
                                       _st6681_
                                       '1
                                       std/srfi/159/base#Show-Env
                                       '#f)
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx= _x6708_ '1))
                                          (##structure-ref
                                           _st6681_
                                           '2
                                           std/srfi/159/base#Show-Env
                                           '#f)
                                          (##structure-ref
                                           _st6681_
                                           '3
                                           std/srfi/159/base#Show-Env
                                           '#f)))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx= _x6708_ '3))
                                      (##structure-ref
                                       _st6681_
                                       '4
                                       std/srfi/159/base#Show-Env
                                       '#f)
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx= _x6708_ '4))
                                          (##structure-ref
                                           _st6681_
                                           '5
                                           std/srfi/159/base#Show-Env
                                           '#f)
                                          (##structure-ref
                                           _st6681_
                                           '6
                                           std/srfi/159/base#Show-Env
                                           '#f))))
                              (if (let ()
                                    (declare (not safe))
                                    (##fx< _x6708_ '9))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx= _x6708_ '6))
                                      (##structure-ref
                                       _st6681_
                                       '7
                                       std/srfi/159/base#Show-Env
                                       '#f)
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx= _x6708_ '7))
                                          (##structure-ref
                                           _st6681_
                                           '8
                                           std/srfi/159/base#Show-Env
                                           '#f)
                                          (##structure-ref
                                           _st6681_
                                           '9
                                           std/srfi/159/base#Show-Env
                                           '#f)))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx< _x6708_ '11))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx= _x6708_ '9))
                                          (##structure-ref
                                           _st6681_
                                           '10
                                           std/srfi/159/base#Show-Env
                                           '#f)
                                          (##structure-ref
                                           _st6681_
                                           '11
                                           std/srfi/159/base#Show-Env
                                           '#f))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx= _x6708_ '11))
                                          (##structure-ref
                                           _st6681_
                                           '12
                                           std/srfi/159/base#Show-Env
                                           '#f)
                                          (##structure-ref
                                           _st6681_
                                           '13
                                           std/srfi/159/base#Show-Env
                                           '#f))))))
                        (_default66866693_))
                    (_default66866693_)))
              (_default66866693_))))))
  (define std/srfi/159/base#_%tell1752_
    (lambda (_st6647_ _x6648_ _val6649_)
      (let ((_$e6651_ _x6648_))
        (let ((_default66536663_
               (lambda ()
                 (let ((_$e6657_
                        (assq _x6648_
                              (##structure-ref
                               _st6647_
                               '14
                               std/srfi/159/base#Show-Env
                               '#f))))
                   (if _$e6657_
                       ((lambda (_cell6660_) (set-cdr! _cell6660_ _val6649_))
                        _$e6657_)
                       (##structure-set!
                        _st6647_
                        (cons (cons _x6648_ _val6649_)
                              (##structure-ref
                               _st6647_
                               '14
                               std/srfi/159/base#Show-Env
                               '#f))
                        '14
                        std/srfi/159/base#Show-Env
                        '#f)))))
              (_table66546665_
               '#(#f
                  #f
                  (row . 1)
                  #f
                  #f
                  #f
                  #f
                  #f
                  (decimal-align . 8)
                  #f
                  #f
                  #f
                  #f
                  (output . 12)
                  #f
                  #f
                  #f
                  #f
                  #f
                  (pad-char . 6)
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  (radix . 4)
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  (writer . 11)
                  #f
                  #f
                  #f
                  #f
                  #f
                  (port . 0)
                  #f
                  #f
                  #f
                  #f
                  (width . 3)
                  #f
                  #f
                  (string-width . 9)
                  #f
                  #f
                  (precision . 5)
                  #f
                  (ellipsis . 10)
                  #f
                  (col . 2)
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  #f
                  (decimal-sep . 7)
                  #f)))
          (if (symbol? _$e6651_)
              (let* ((_h6668_ (let ()
                                (declare (not safe))
                                (##symbol-hash _$e6651_)))
                     (_ix6671_
                      (let () (declare (not safe)) (##fxmodulo _h6668_ '87)))
                     (_q6674_ (let ()
                                (declare (not safe))
                                (##vector-ref _table66546665_ _ix6671_))))
                (if _q6674_
                    (if (eq? (let () (declare (not safe)) (##car _q6674_))
                             _$e6651_)
                        (let ((_x6678_ (let ()
                                         (declare (not safe))
                                         (##cdr _q6674_))))
                          (if (let () (declare (not safe)) (##fx< _x6678_ '6))
                              (if (let ()
                                    (declare (not safe))
                                    (##fx< _x6678_ '3))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx= _x6678_ '0))
                                      (##structure-set!
                                       _st6647_
                                       _val6649_
                                       '1
                                       std/srfi/159/base#Show-Env
                                       '#f)
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx= _x6678_ '1))
                                          (##structure-set!
                                           _st6647_
                                           _val6649_
                                           '2
                                           std/srfi/159/base#Show-Env
                                           '#f)
                                          (##structure-set!
                                           _st6647_
                                           _val6649_
                                           '3
                                           std/srfi/159/base#Show-Env
                                           '#f)))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx= _x6678_ '3))
                                      (##structure-set!
                                       _st6647_
                                       _val6649_
                                       '4
                                       std/srfi/159/base#Show-Env
                                       '#f)
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx= _x6678_ '4))
                                          (##structure-set!
                                           _st6647_
                                           _val6649_
                                           '5
                                           std/srfi/159/base#Show-Env
                                           '#f)
                                          (##structure-set!
                                           _st6647_
                                           _val6649_
                                           '6
                                           std/srfi/159/base#Show-Env
                                           '#f))))
                              (if (let ()
                                    (declare (not safe))
                                    (##fx< _x6678_ '9))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx= _x6678_ '6))
                                      (##structure-set!
                                       _st6647_
                                       _val6649_
                                       '7
                                       std/srfi/159/base#Show-Env
                                       '#f)
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx= _x6678_ '7))
                                          (##structure-set!
                                           _st6647_
                                           _val6649_
                                           '8
                                           std/srfi/159/base#Show-Env
                                           '#f)
                                          (##structure-set!
                                           _st6647_
                                           _val6649_
                                           '9
                                           std/srfi/159/base#Show-Env
                                           '#f)))
                                  (if (let ()
                                        (declare (not safe))
                                        (##fx< _x6678_ '11))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx= _x6678_ '9))
                                          (##structure-set!
                                           _st6647_
                                           _val6649_
                                           '10
                                           std/srfi/159/base#Show-Env
                                           '#f)
                                          (##structure-set!
                                           _st6647_
                                           _val6649_
                                           '11
                                           std/srfi/159/base#Show-Env
                                           '#f))
                                      (if (let ()
                                            (declare (not safe))
                                            (##fx= _x6678_ '11))
                                          (##structure-set!
                                           _st6647_
                                           _val6649_
                                           '12
                                           std/srfi/159/base#Show-Env
                                           '#f)
                                          (##structure-set!
                                           _st6647_
                                           _val6649_
                                           '13
                                           std/srfi/159/base#Show-Env
                                           '#f))))))
                        (_default66536663_))
                    (_default66536663_)))
              (_default66536663_))))))
  (define std/srfi/159/base#_c3341_
    (lambda (_st6643_)
      (let ((__tmp12035
             (##structure-ref _st6643_ '1 std/srfi/159/base#Show-Env '#f))
            (__tmp12034
             (##structure-ref _st6643_ '2 std/srfi/159/base#Show-Env '#f))
            (__tmp12033
             (##structure-ref _st6643_ '3 std/srfi/159/base#Show-Env '#f))
            (__tmp12032
             (##structure-ref _st6643_ '4 std/srfi/159/base#Show-Env '#f))
            (__tmp12031
             (##structure-ref _st6643_ '5 std/srfi/159/base#Show-Env '#f))
            (__tmp12030
             (##structure-ref _st6643_ '6 std/srfi/159/base#Show-Env '#f))
            (__tmp12029
             (##structure-ref _st6643_ '7 std/srfi/159/base#Show-Env '#f))
            (__tmp12028
             (##structure-ref _st6643_ '8 std/srfi/159/base#Show-Env '#f))
            (__tmp12027
             (##structure-ref _st6643_ '9 std/srfi/159/base#Show-Env '#f))
            (__tmp12026
             (##structure-ref _st6643_ '10 std/srfi/159/base#Show-Env '#f))
            (__tmp12025
             (##structure-ref _st6643_ '11 std/srfi/159/base#Show-Env '#f))
            (__tmp12024
             (##structure-ref _st6643_ '12 std/srfi/159/base#Show-Env '#f))
            (__tmp12023
             (##structure-ref _st6643_ '13 std/srfi/159/base#Show-Env '#f))
            (__tmp12022
             (map (lambda (_x6645_) (cons (car _x6645_) (cdr _x6645_)))
                  (##structure-ref
                   _st6643_
                   '14
                   std/srfi/159/base#Show-Env
                   '#f))))
        (declare (not safe))
        (##structure
         std/srfi/159/base#Show-Env
         __tmp12035
         __tmp12034
         __tmp12033
         __tmp12032
         __tmp12031
         __tmp12030
         __tmp12029
         __tmp12028
         __tmp12027
         __tmp12026
         __tmp12025
         __tmp12024
         __tmp12023
         __tmp12022))))
  (define std/srfi/159/base#run
    (lambda (_proc6640_)
      (_proc6640_
       (let ()
         (declare (not safe))
         (##structure
          std/srfi/159/base#Show-Env
          '#f
          '#f
          '#f
          '#f
          '#f
          '#f
          '#f
          '#f
          '#f
          '#f
          '#f
          '#f
          '#f
          '())))))
  (define std/srfi/159/base#return
    (lambda (_x6636_) (lambda (_st6638_) _x6636_)))
  (define std/srfi/159/base#substring-length
    (lambda (_str6630_ . _o6631_)
      (let ((_start6633_ (if (pair? _o6631_) (car _o6631_) '0))
            (_end6634_
             (if (and (pair? _o6631_) (pair? (cdr _o6631_)))
                 (cadr _o6631_)
                 (string-length _str6630_))))
        (- _end6634_ _start6633_))))
  (define std/srfi/159/base#output
    (lambda (_str6619_)
      (lambda (_st6621_)
        (let ((_output6624_
               (##structure-ref _st6621_ '13 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (std/srfi/159/base#displayed
              ((let ((_$e6627_ _output6624_))
                 (if _$e6627_ _$e6627_ std/srfi/159/base#output-default))
               _str6619_)))
           _st6621_)))))
  (define std/srfi/159/base#show
    (lambda (_out6612_ . _args6613_)
      (let ((_proc6615_ (std/srfi/159/base#each-in-list _args6613_)))
        (if (output-port? _out6612_)
            (std/srfi/159/base#show-run _out6612_ _proc6615_)
            (if (eq? '#t _out6612_)
                (std/srfi/159/base#show-run (current-output-port) _proc6615_)
                (if (eq? '#f _out6612_)
                    (let ((_out6617_ (open-output-string)))
                      (std/srfi/159/base#show-run _out6617_ _proc6615_)
                      (get-output-string _out6617_))
                    (error '"unknown output to show" _out6612_)))))))
  (define std/srfi/159/base#show-run
    (lambda (_out6603_ _proc6604_)
      (std/srfi/159/base#run
       (lambda (_st6606_)
         (_proc6604_
          ((lambda (_st6609_)
             (##structure-set!
              _st6609_
              _out6603_
              '1
              std/srfi/159/base#Show-Env
              '#f)
             (##structure-set! _st6609_ '0 '3 std/srfi/159/base#Show-Env '#f)
             (##structure-set! _st6609_ '0 '2 std/srfi/159/base#Show-Env '#f)
             (##structure-set! _st6609_ '78 '4 std/srfi/159/base#Show-Env '#f)
             (##structure-set! _st6609_ '10 '5 std/srfi/159/base#Show-Env '#f)
             (##structure-set!
              _st6609_
              '#\space
              '7
              std/srfi/159/base#Show-Env
              '#f)
             (##structure-set!
              _st6609_
              std/srfi/159/base#output-default
              '13
              std/srfi/159/base#Show-Env
              '#f)
             (##structure-set!
              _st6609_
              std/srfi/159/base#substring-length
              '10
              std/srfi/159/base#Show-Env
              '#f)
             _st6609_)
           _st6606_))))))
  (define std/srfi/159/base#nothing
    (lambda (_st6595_)
      (let ()
        ((let () (std/srfi/159/base#displayed (lambda (_st6600_) _st6600_)))
         _st6595_))))
  (define std/srfi/159/base#displayed
    (lambda (_x6593_)
      (if (procedure? _x6593_)
          _x6593_
          (if (string? _x6593_)
              (std/srfi/159/base#output _x6593_)
              (if (char? _x6593_)
                  (std/srfi/159/base#output (string _x6593_))
                  (std/srfi/159/base#written _x6593_))))))
  (define std/srfi/159/base#written
    (lambda (_x6582_)
      (lambda (_st6584_)
        (let ((_writer6587_
               (##structure-ref _st6584_ '12 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (std/srfi/159/base#displayed
              ((let ((_$e6590_ _writer6587_))
                 (if _$e6590_ _$e6590_ std/srfi/159/base#written-default))
               _x6582_)))
           _st6584_)))))
  (define std/srfi/159/base#each-in-list
    (lambda (_args6577_)
      (if (pair? _args6577_)
          (lambda (_st6579_)
            ((std/srfi/159/base#each-in-list (cdr _args6577_))
             ((std/srfi/159/base#displayed (car _args6577_)) _st6579_)))
          std/srfi/159/base#nothing)))
  (define std/srfi/159/base#each
    (lambda _args6575_ (std/srfi/159/base#each-in-list _args6575_)))
  (define std/srfi/159/base#output-default
    (lambda (_str6556_)
      (lambda (_st6558_)
        (let ((_port6561_
               (##structure-ref _st6558_ '1 std/srfi/159/base#Show-Env '#f))
              (_row6562_
               (##structure-ref _st6558_ '2 std/srfi/159/base#Show-Env '#f))
              (_col6563_
               (##structure-ref _st6558_ '3 std/srfi/159/base#Show-Env '#f))
              (_string-width6564_
               (##structure-ref _st6558_ '10 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (display _str6556_ _port6561_)
             (std/srfi/159/base#displayed
              (let ((_nl-index6567_
                     (std/srfi/159/string#string-find-right
                      _str6556_
                      '#\newline)))
                (if (> _nl-index6567_
                       (std/srfi/130#string-cursor-start _str6556_))
                    (lambda (_st6569_)
                      (std/srfi/159/base#_%tell1752_
                       _st6569_
                       'row
                       (+ _row6562_
                          (std/srfi/13#string-count__0 _str6556_ '#\newline)))
                      (std/srfi/159/base#_%tell1752_
                       _st6569_
                       'col
                       (_string-width6564_
                        _str6556_
                        (std/srfi/130#string-cursor->index
                         _str6556_
                         _nl-index6567_)))
                      _st6569_)
                    (lambda (_st6572_)
                      (std/srfi/159/base#_%tell1752_
                       _st6572_
                       'col
                       (+ _col6563_ (_string-width6564_ _str6556_)))
                      _st6572_)))))
           _st6558_)))))
  (define std/srfi/159/base#call-with-output
    (lambda (_producer6532_ _consumer6533_)
      (let ((_out6535_ (open-output-string)))
        (lambda (_st6537_)
          ((lambda (_st6540_)
             (let ((_tmp6543_
                    (##structure-ref
                     _st6540_
                     '1
                     std/srfi/159/base#Show-Env
                     '#f))
                   (_tmp6545_
                    (##structure-ref
                     _st6540_
                     '13
                     std/srfi/159/base#Show-Env
                     '#f)))
               (dynamic-wind
                (lambda ()
                  (##structure-set!
                   _st6540_
                   _out6535_
                   '1
                   std/srfi/159/base#Show-Env
                   '#f)
                  (##structure-set!
                   _st6540_
                   std/srfi/159/base#output-default
                   '13
                   std/srfi/159/base#Show-Env
                   '#f))
                (lambda () ((std/srfi/159/base#each _producer6532_) _st6540_))
                (lambda ()
                  (##structure-set!
                   _st6540_
                   _tmp6543_
                   '1
                   std/srfi/159/base#Show-Env
                   '#f)
                  (##structure-set!
                   _st6540_
                   _tmp6545_
                   '13
                   std/srfi/159/base#Show-Env
                   '#f)))))
           (std/srfi/159/base#_c3341_ _st6537_))
          ((lambda (_st6551_)
             (let ()
               ((let ()
                  (std/srfi/159/base#displayed
                   (_consumer6533_ (get-output-string _out6535_))))
                _st6551_)))
           _st6537_)))))
  (define std/srfi/159/base#write-to-string
    (lambda (_x6528_)
      (let ((_out6530_ (open-output-string)))
        (write _x6528_ _out6530_)
        (get-output-string _out6530_))))
  (define std/srfi/159/base#string-replace-all
    (lambda (_str6520_ _ch16521_ _ch26522_)
      (let ((_out6524_ (open-output-string)))
        (string-for-each
         (lambda (_ch6526_)
           (display (if (eqv? _ch6526_ _ch16521_) _ch26522_ _ch6526_)
                    _out6524_))
         _str6520_)
        (get-output-string _out6524_))))
  (define std/srfi/159/base#string-intersperse-right
    (lambda (_str6503_ _sep6504_ _rule6505_)
      (let ((_start6507_ (std/srfi/130#string-cursor-start _str6503_)))
        (let _lp6509_ ((_i6511_ (string-length _str6503_))
                       (_rule6512_ _rule6505_)
                       (_res6513_ '()))
          (let* ((_offset6515_
                  (if (pair? _rule6512_) (car _rule6512_) _rule6512_))
                 (_i26517_
                  (if _offset6515_
                      (std/srfi/130#string-cursor-back
                       _str6503_
                       _i6511_
                       _offset6515_)
                      _start6507_)))
            (if (<= _i26517_ _start6507_)
                (apply string-append
                       (cons (substring _str6503_ _start6507_ _i6511_)
                             _res6513_))
                (_lp6509_
                 _i26517_
                 (if (and (pair? _rule6512_) (not (null? (cdr _rule6512_))))
                     (cdr _rule6512_)
                     _rule6512_)
                 (cons _sep6504_
                       (cons (substring _str6503_ _i26517_ _i6511_)
                             _res6513_)))))))))
  (define std/srfi/159/base#escaped
    (lambda (_fmt6426_ . _o6427_)
      (let ((_rest6429_ _o6427_))
        (call-with-values
         (lambda ()
           (if (null? _rest6429_)
               (values '#\" '())
               (values (car _rest6429_) (cdr _rest6429_))))
         (lambda (_quot6433_ _rest6434_)
           (if '#t
               (call-with-values
                (lambda ()
                  (if (null? _rest6434_)
                      (values '#\\ '())
                      (values (car _rest6434_) (cdr _rest6434_))))
                (lambda (_esc6438_ _rest6439_)
                  (if '#t
                      (call-with-values
                       (lambda ()
                         (if (null? _rest6439_)
                             (values (lambda (_x6443_) '#f) '())
                             (values (car _rest6439_) (cdr _rest6439_))))
                       (lambda (_rename6445_ _rest6446_)
                         (if '#t
                             (if (null? _rest6446_)
                                 (let ()
                                   (let ((_esc-str6450_
                                          (if (char? _esc6438_)
                                              (string _esc6438_)
                                              (if (not _esc6438_)
                                                  (string _quot6433_)
                                                  _esc6438_))))
                                     (lambda (_st6452_)
                                       (let ((_output6455_
                                              (##structure-ref
                                               _st6452_
                                               '13
                                               std/srfi/159/base#Show-Env
                                               '#f)))
                                         ((let ()
                                            (letrec ((_output*6458_
                                                      (lambda (_str6469_)
                                                        (let ((_start6471_
                                                               (std/srfi/130#string-cursor-start
                                                                _str6469_))
                                                              (_end6472_
                                                               (string-length
                                                                _str6469_)))
                                                          (let _lp6474_ ((_i6476_ _start6471_)
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 (_j6477_ _start6471_))
                    (letrec ((_collect6479_
                              (lambda ()
                                (if (eq? _i6476_ _j6477_)
                                    '""
                                    (substring _str6469_ _i6476_ _j6477_)))))
                      (if (>= _j6477_ _end6472_)
                          (_output6455_ (_collect6479_))
                          (let ((_c6481_ (std/srfi/159/string#string-cursor-ref
                                          _str6469_
                                          _j6477_))
                                (_j26482_
                                 (std/srfi/130#string-cursor-next
                                  _str6469_
                                  _j6477_)))
                            (if (or (eqv? _c6481_ _quot6433_)
                                    (eqv? _c6481_ _esc6438_))
                                (std/srfi/159/base#each
                                 (_output6455_ (_collect6479_))
                                 (_output6455_ _esc-str6450_)
                                 (lambda (_st6487_)
                                   (let ()
                                     ((let ()
                                        (std/srfi/159/base#displayed
                                         (_lp6474_ _j6477_ _j26482_)))
                                      _st6487_))))
                                (let ((_$e6492_ (_rename6445_ _c6481_)))
                                  (if _$e6492_
                                      ((lambda (_c26495_)
                                         (std/srfi/159/base#each
                                          (_output6455_ (_collect6479_))
                                          (_output6455_ _esc-str6450_)
                                          (_output6455_
                                           (if (char? _c26495_)
                                               (string _c26495_)
                                               _c26495_))
                                          (lambda (_st6497_)
                                            (let ()
                                              ((let ()
                                                 (std/srfi/159/base#displayed
                                                  (_lp6474_
                                                   _j26482_
                                                   _j26482_)))
                                               _st6497_)))))
                                       _$e6492_)
                                      (_lp6474_ _i6476_ _j26482_))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (std/srfi/159/base#displayed
                                               (lambda (_st6460_)
                                                 (let ((_tmp6463_
                                                        (std/srfi/159/base#_%ask411_
                                                         _st6460_
                                                         'output)))
                                                   (dynamic-wind
                                                    (lambda ()
                                                      (std/srfi/159/base#_%tell1752_
                                                       _st6460_
                                                       'output
                                                       _output*6458_))
                                                    (lambda ()
                                                      ((std/srfi/159/base#each
                                                        _fmt6426_)
                                                       _st6460_))
                                                    (lambda ()
                                                      (std/srfi/159/base#_%tell1752_
                                                       _st6460_
                                                       'output
                                                       _tmp6463_))))))))
                                          _st6452_)))))
                                 (error '"Too many optional arguments."
                                        _rest6446_))
                             (error '"argument out of domain" _rename6445_))))
                      (error '"argument out of domain" _esc6438_))))
               (error '"argument out of domain" _quot6433_)))))))
  (define std/srfi/159/base#maybe-escaped
    (lambda (_fmt6386_ _pred6387_ . _o6388_)
      (let ((_rest6390_ _o6388_))
        (call-with-values
         (lambda ()
           (if (null? _rest6390_)
               (values '#\" '())
               (values (car _rest6390_) (cdr _rest6390_))))
         (lambda (_quot6394_ _rest6395_)
           (if '#t
               (call-with-values
                (lambda ()
                  (if (null? _rest6395_)
                      (values '#\\ '())
                      (values (car _rest6395_) (cdr _rest6395_))))
                (lambda (_esc6399_ _rest6400_)
                  (if '#t
                      (call-with-values
                       (lambda ()
                         (if (null? _rest6400_)
                             (values (lambda (_x6404_) '#f) '())
                             (values (car _rest6400_) (cdr _rest6400_))))
                       (lambda (_rename6406_ _rest6407_)
                         (if '#t
                             (if (null? _rest6407_)
                                 (let ()
                                   (letrec ((_esc?6411_
                                             (lambda (_c6415_)
                                               (let ((_$e6417_
                                                      (eqv? _c6415_
                                                            _quot6394_)))
                                                 (if _$e6417_
                                                     _$e6417_
                                                     (let ((_$e6420_
                                                            (eqv? _c6415_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          _esc6399_)))
               (if _$e6420_
                   _$e6420_
                   (let ((_$e6423_ (_rename6406_ _c6415_)))
                     (if _$e6423_ _$e6423_ (_pred6387_ _c6415_))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (std/srfi/159/base#call-with-output
                                      _fmt6386_
                                      (lambda (_str6413_)
                                        (if (< (std/srfi/159/string#string-find
                                                _str6413_
                                                _esc?6411_)
                                               (string-length _str6413_))
                                            (std/srfi/159/base#each
                                             _quot6394_
                                             (std/srfi/159/base#escaped
                                              _str6413_
                                              _quot6394_
                                              _esc6399_
                                              _rename6406_)
                                             _quot6394_)
                                            (std/srfi/159/base#displayed
                                             _str6413_))))))
                                 (error '"Too many optional arguments."
                                        _rest6407_))
                             (error '"argument out of domain" _rename6406_))))
                      (error '"argument out of domain" _esc6399_))))
               (error '"argument out of domain" _quot6394_)))))))
  (define std/srfi/159/base#char-mirror
    (lambda (_c6381_)
      (let ((_$e6383_ _c6381_))
        (if (eq? '#\( _$e6383_)
            '#\)
            (if (eq? '#\[ _$e6383_)
                '#\]
                (if (eq? '#\{ _$e6383_)
                    '#\}
                    (if (eq? '#\< _$e6383_) '#\> _c6381_)))))))
  (define std/srfi/159/base#integer-log
    (lambda (_a6372_ _base6373_)
      (if (zero? _a6372_)
          '0
          (let _$loop6375_ ((_ndigits6378_ '1) (_p6379_ _base6373_))
            (if (> _p6379_ _a6372_)
                _ndigits6378_
                (_$loop6375_ (+ _ndigits6378_ '1) (* _p6379_ _base6373_)))))))
  (define std/srfi/159/base#unspec (list 'unspecified))
  (define std/srfi/159/base#numeric
    (lambda (_n5877_ . _o5878_)
      (let ((_rest5880_ _o5878_))
        (call-with-values
         (lambda ()
           (if (null? _rest5880_)
               (values std/srfi/159/base#unspec '())
               (values (car _rest5880_) (cdr _rest5880_))))
         (lambda (_rad5884_ _rest5885_)
           (if '#t
               (call-with-values
                (lambda ()
                  (if (null? _rest5885_)
                      (values std/srfi/159/base#unspec '())
                      (values (car _rest5885_) (cdr _rest5885_))))
                (lambda (_prec5889_ _rest5890_)
                  (if '#t
                      (call-with-values
                       (lambda ()
                         (if (null? _rest5890_)
                             (values std/srfi/159/base#unspec '())
                             (values (car _rest5890_) (cdr _rest5890_))))
                       (lambda (_sgn5894_ _rest5895_)
                         (if '#t
                             (call-with-values
                              (lambda ()
                                (if (null? _rest5895_)
                                    (values std/srfi/159/base#unspec '())
                                    (values (car _rest5895_)
                                            (cdr _rest5895_))))
                              (lambda (_comma5899_ _rest5900_)
                                (if '#t
                                    (call-with-values
                                     (lambda ()
                                       (if (null? _rest5900_)
                                           (values std/srfi/159/base#unspec
                                                   '())
                                           (values (car _rest5900_)
                                                   (cdr _rest5900_))))
                                     (lambda (_commasep5904_ _rest5905_)
                                       (if '#t
                                           (call-with-values
                                            (lambda ()
                                              (if (null? _rest5905_)
                                                  (values std/srfi/159/base#unspec
                                                          '())
                                                  (values (car _rest5905_)
                                                          (cdr _rest5905_))))
                                            (lambda (_decsep5909_ _rest5910_)
                                              (if '#t
                                                  (if (null? _rest5910_)
                                                      (let ()
                                                        (lambda (_st5914_)
                                                          (let ((_radix5917_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (##structure-ref
                          _st5914_
                          '5
                          std/srfi/159/base#Show-Env
                          '#f))
                        (_precision5918_
                         (##structure-ref
                          _st5914_
                          '6
                          std/srfi/159/base#Show-Env
                          '#f))
                        (_sign-rule5919_
                         (std/srfi/159/base#_%ask411_ _st5914_ 'sign-rule))
                        (_comma-rule5920_
                         (std/srfi/159/base#_%ask411_ _st5914_ 'comma-rule))
                        (_comma-sep5921_
                         (std/srfi/159/base#_%ask411_ _st5914_ 'comma-sep))
                        (_decimal-sep5922_
                         (##structure-ref
                          _st5914_
                          '8
                          std/srfi/159/base#Show-Env
                          '#f))
                        (_decimal-align5923_
                         (##structure-ref
                          _st5914_
                          '9
                          std/srfi/159/base#Show-Env
                          '#f)))
                    ((let ()
                       (std/srfi/159/base#displayed
                        (let* ((_radix5926_
                                (if (eq? _rad5884_ std/srfi/159/base#unspec)
                                    _radix5917_
                                    _rad5884_))
                               (_precision5928_
                                (if (eq? _prec5889_ std/srfi/159/base#unspec)
                                    _precision5918_
                                    _prec5889_))
                               (_sign-rule5930_
                                (if (eq? _sgn5894_ std/srfi/159/base#unspec)
                                    _sign-rule5919_
                                    _sgn5894_))
                               (_comma-rule5932_
                                (if (eq? _comma5899_ std/srfi/159/base#unspec)
                                    _comma-rule5920_
                                    _comma5899_))
                               (_comma-sep5934_
                                (if (eq? _commasep5904_
                                         std/srfi/159/base#unspec)
                                    _comma-sep5921_
                                    _commasep5904_))
                               (_dec-sep5939_
                                (if (eq? _decsep5909_ std/srfi/159/base#unspec)
                                    (let ((_$e5936_ _decimal-sep5922_))
                                      (if _$e5936_
                                          _$e5936_
                                          (if (eqv? _comma-sep5934_ '#\.)
                                              '#\,
                                              '#\.)))
                                    _decsep5909_))
                               (_dec-ls5941_
                                (if (char? _dec-sep5939_)
                                    (list _dec-sep5939_)
                                    (reverse (string->list _dec-sep5939_)))))
                          (letrec ((_get-scale5944_
                                    (lambda (_q6370_)
                                      (expt _radix5926_
                                            (- (std/srfi/159/base#integer-log
                                                _q6370_
                                                _radix5926_)
                                               '1))))
                                   (_char-digit5945_
                                    (lambda (_d6368_)
                                      (if (char? _d6368_)
                                          _d6368_
                                          (if (< _d6368_ '10)
                                              (integer->char
                                               (+ _d6368_
                                                  (char->integer '#\0)))
                                              (integer->char
                                               (+ (- _d6368_ '10)
                                                  (char->integer '#\a)))))))
                                   (_digit-value5946_
                                    (lambda (_ch6364_)
                                      (let ((_res6366_
                                             (- (char->integer _ch6364_)
                                                (char->integer '#\0))))
                                        (if (<= '0 _res6366_ '9)
                                            _res6366_
                                            _ch6364_))))
                                   (_round-up5947_
                                    (lambda (_ls6357_)
                                      (let _lp6359_ ((_ls6361_ _ls6357_)
                                                     (_res6362_ '()))
                                        (if (null? _ls6361_)
                                            (cons '1 _res6362_)
                                            (if (not (number? (car _ls6361_)))
                                                (_lp6359_
                                                 (cdr _ls6361_)
                                                 (cons (car _ls6361_)
                                                       _res6362_))
                                                (if (= (car _ls6361_)
                                                       (- _radix5926_ '1))
                                                    (_lp6359_
                                                     (cdr _ls6361_)
                                                     (cons '0 _res6362_))
                                                    (append (reverse _res6362_)
                                                            (cons (+ '1
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             (car _ls6361_))
                          (cdr _ls6361_)))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                   (_maybe-round5948_
                                    (lambda (_n6343_ _d6344_ _ls6345_)
                                      (let* ((_q6347_ (quotient
                                                       _n6343_
                                                       _d6344_))
                                             (_digit6349_
                                              (* '2
                                                 (if (>= _q6347_ _radix5926_)
                                                     (quotient
                                                      _q6347_
                                                      (_get-scale5944_
                                                       _q6347_))
                                                     _q6347_))))
                                        (if (or (> _digit6349_ _radix5926_)
                                                (and (= _digit6349_
                                                        _radix5926_)
                                                     (let ((_prev6355_
                                                            (find integer?
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          _ls6345_)))
               (and _prev6355_ (odd? _prev6355_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            (_round-up5947_ _ls6345_)
                                            _ls6345_))))
                                   (_maybe-trim-zeros5949_
                                    (lambda (_i6335_ _res6336_ _inexact?6337_)
                                      (if (and (not _precision5928_)
                                               (positive? _i6335_))
                                          (let _lp6339_ ((_res6341_ _res6336_))
                                            (if (and (pair? _res6341_)
                                                     (eqv? '0 (car _res6341_)))
                                                (_lp6339_ (cdr _res6341_))
                                                (if (and (pair? _res6341_)
                                                         (eqv? (car _dec-ls5941_)
                                                               (car _res6341_))
                                                         (null? (cdr _dec-ls5941_)))
                                                    (if _inexact?6337_
                                                        (cons '0 _res6341_)
                                                        (cdr _res6341_))
                                                    _res6341_)))
                                          _res6336_)))
                                   (_gen-general5950_
                                    (lambda (_n-orig6310_)
                                      (let* ((_p6312_ (exact _n-orig6310_))
                                             (_n6314_ (numerator _p6312_))
                                             (_d6316_ (denominator _p6312_)))
                                        (let _lp6319_ ((_n6321_ _n6314_)
                                                       (_i6322_ (if (zero? _p6312_)
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '-1
                            (- (std/srfi/159/base#integer-log
                                _p6312_
                                _radix5926_))))
               (_res6323_ '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (if (if _precision5928_
                                                  (< _i6322_ _precision5928_)
                                                  (< _i6322_ '16))
                                              (let ((_res6325_
                                                     (if (zero? _i6322_)
                                                         (append _dec-ls5941_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (if (null? _res6323_) (cons '0 _res6323_) _res6323_))
                 _res6323_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_q6326_ (quotient
                                                              _n6321_
                                                              _d6316_)))
                                                (if (< _i6322_ '-1)
                                                    (let* ((_scale6328_
                                                            (expt _radix5926_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (- '-1 _i6322_)))
                   (_digit6330_ (quotient _q6326_ _scale6328_))
                   (_n26332_ (- _n6321_ (* _d6316_ _digit6330_ _scale6328_))))
              (_lp6319_ _n26332_ (+ _i6322_ '1) (cons _digit6330_ _res6325_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_lp6319_
                                                     (* (remainder
                                                         _n6321_
                                                         _d6316_)
                                                        _radix5926_)
                                                     (+ _i6322_ '1)
                                                     (cons _q6326_
                                                           _res6325_))))
                                              (list->string
                                               (map _char-digit5945_
                                                    (reverse (_maybe-trim-zeros5949_
                                                              _i6322_
                                                              (_maybe-round5948_
                                                               _n6321_
                                                               _d6316_
                                                               _res6323_)
                                                              (inexact?
                                                               _n-orig6310_))))))))))
                                   (_gen-fixed5951_
                                    (lambda (_n6286_)
                                      (if (and (eqv? _radix5926_ '10)
                                               (zero? _precision5928_)
                                               (inexact? _n6286_))
                                          (number->string
                                           (exact (round _n6286_)))
                                          (if (and (eqv? _radix5926_ '10)
                                                   (or (integer? _n6286_)
                                                       (inexact? _n6286_)))
                                              (let* ((_s6291_ (number->string
                                                               _n6286_))
                                                     (_end6293_
                                                      (string-length _s6291_))
                                                     (_dec6295_
                                                      (std/srfi/159/string#string-find
                                                       _s6291_
                                                       '#\.))
                                                     (_digits6297_
                                                      (- (std/srfi/130#string-cursor->index
                                                          _s6291_
                                                          _end6293_)
                                                         (std/srfi/130#string-cursor->index
                                                          _s6291_
                                                          _dec6295_))))
                                                (if (< (std/srfi/159/string#string-find
                                                        _s6291_
                                                        '#\e)
                                                       _end6293_)
                                                    (_gen-general5950_ _n6286_)
                                                    (if (= _dec6295_ _end6293_)
                                                        (string-append
                                                         _s6291_
                                                         (if (char? _dec-sep5939_)
                                                             (string _dec-sep5939_)
                                                             _dec-sep5939_)
                                                         (make-string
                                                          _precision5928_
                                                          '#\0))
                                                        (if (<= _digits6297_
                                                                _precision5928_)
                                                            (string-append
                                                             _s6291_
                                                             (make-string
                                                              (- _precision5928_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         _digits6297_
                         '-1)
                      '#\0))
                    (let* ((_last6300_
                            (std/srfi/130#string-cursor-back
                             _s6291_
                             _end6293_
                             (- _digits6297_ _precision5928_ '1)))
                           (_res6302_
                            (substring
                             _s6291_
                             (std/srfi/130#string-cursor-start _s6291_)
                             _last6300_)))
                      (if (and (< _last6300_ _end6293_)
                               (let ((_next6305_
                                      (_digit-value5946_
                                       (std/srfi/159/string#string-cursor-ref
                                        _s6291_
                                        _last6300_))))
                                 (or (> _next6305_ '5)
                                     (and (= _next6305_ '5)
                                          (> _last6300_
                                             (std/srfi/130#string-cursor-start
                                              _s6291_))
                                          (memv (_digit-value5946_
                                                 (std/srfi/159/string#string-cursor-ref
                                                  _s6291_
                                                  (std/srfi/130#string-cursor-prev
                                                   _s6291_
                                                   _last6300_)))
                                                '(1 3 5 7 9))))))
                          (list->string
                           (reverse (map _char-digit5945_
                                         (_round-up5947_
                                          (reverse (map _digit-value5946_
                                                        (string->list
                                                         _res6302_)))))))
                          _res6302_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_gen-general5950_ _n6286_)))))
                                   (_gen-positive-real5952_
                                    (lambda (_n6284_)
                                      (if _precision5928_
                                          (_gen-fixed5951_ _n6284_)
                                          (if (memv _radix5926_
                                                    (if (exact? _n6284_)
                                                        '(2 8 10 16)
                                                        '(10)))
                                              (number->string
                                               _n6284_
                                               _radix5926_)
                                              (_gen-general5950_ _n6284_)))))
                                   (_insert-commas5953_
                                    (lambda (_str6270_)
                                      (let* ((_dec-pos6275_
                                              (if (string? _dec-sep5939_)
                                                  (let ((_$e6272_
                                                         (std/srfi/13#string-contains__0
                                                          _str6270_
                                                          _dec-sep5939_)))
                                                    (if _$e6272_
                                                        _$e6272_
                                                        (string-length
                                                         _str6270_)))
                                                  (std/srfi/159/string#string-find
                                                   _str6270_
                                                   _dec-sep5939_)))
                                             (_left6277_
                                              (substring
                                               _str6270_
                                               (std/srfi/130#string-cursor-start
                                                _str6270_)
                                               _dec-pos6275_))
                                             (_right6279_
                                              (std/srfi/159/string#substring-cursor__0
                                               _str6270_
                                               _dec-pos6275_))
                                             (_sep6281_
                                              (if (char? _comma-sep5934_)
                                                  (string _comma-sep5934_)
                                                  (if (string? _comma-sep5934_)
                                                      _comma-sep5934_
                                                      (if (eqv? '#\,
                                                                _dec-sep5939_)
                                                          '"."
                                                          '",")))))
                                        (string-append
                                         (std/srfi/159/base#string-intersperse-right
                                          _left6277_
                                          _sep6281_
                                          _comma-rule5932_)
                                         _right6279_))))
                                   (_wrap-comma5954_
                                    (lambda (_n6260_)
                                      (if (and (not _precision5928_)
                                               (exact? _n6260_)
                                               (not (integer? _n6260_)))
                                          (string-append
                                           (_wrap-comma5954_
                                            (numerator _n6260_))
                                           '"/"
                                           (_wrap-comma5954_
                                            (denominator _n6260_)))
                                          (let* ((_s06262_
                                                  (_gen-positive-real5952_
                                                   _n6260_))
                                                 (_s16267_
                                                  (if (or (eqv? '#\.
                                                                _dec-sep5939_)
                                                          (equal? '"."
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          _dec-sep5939_))
              _s06262_
              (std/srfi/159/base#string-replace-all
               _s06262_
               '#\.
               _dec-sep5939_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            (if _comma-rule5932_
                                                (_insert-commas5953_ _s16267_)
                                                _s16267_)))))
                                   (_negative?*6229_
                                    (lambda (_n6255_)
                                      (let ((_$e6257_ (negative? _n6255_)))
                                        (if _$e6257_
                                            _$e6257_
                                            (eqv? '-0. _n6255_)))))
                                   (_wrap-sign6230_
                                    (lambda (_n6252_ _sign-rule6253_)
                                      (if (_negative?*6229_ _n6252_)
                                          (if (char? _sign-rule6253_)
                                              (string-append
                                               (string _sign-rule6253_)
                                               (_wrap-comma5954_ (- _n6252_))
                                               (string (std/srfi/159/base#char-mirror
                                                        _sign-rule6253_)))
                                              (if (pair? _sign-rule6253_)
                                                  (string-append
                                                   (car _sign-rule6253_)
                                                   (_wrap-comma5954_
                                                    (- _n6252_))
                                                   (cdr _sign-rule6253_))
                                                  (string-append
                                                   '"-"
                                                   (_wrap-comma5954_
                                                    (- _n6252_)))))
                                          (if (eq? '#t _sign-rule6253_)
                                              (string-append
                                               '"+"
                                               (_wrap-comma5954_ _n6252_))
                                              (_wrap-comma5954_ _n6252_)))))
                                   (_format6231_
                                    (lambda (_n6236_ _sign-rule6237_)
                                      (if (finite? _n6236_)
                                          (let* ((_s6239_ (_wrap-sign6230_
                                                           _n6236_
                                                           _sign-rule6237_))
                                                 (_dec-pos6244_
                                                  (if _decimal-align5923_
                                                      (std/srfi/130#string-cursor->index
                                                       _s6239_
                                                       (if (char? _dec-sep5939_)
                                                           (std/srfi/159/string#string-find
                                                            _s6239_
                                                            _dec-sep5939_)
                                                           (let ((_$e6241_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (std/srfi/13#string-contains__0
                           _s6239_
                           _dec-sep5939_)))
                     (if _$e6241_ _$e6241_ (string-length _s6239_)))))
              '0))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_diff6249_
                                                  (- (let ((_$e6246_
                                                            _decimal-align5923_))
                                                       (if _$e6246_
                                                           _$e6246_
                                                           '0))
                                                     _dec-pos6244_
                                                     '1)))
                                            (if (positive? _diff6249_)
                                                (string-append
                                                 (make-string
                                                  _diff6249_
                                                  '#\space)
                                                 _s6239_)
                                                _s6239_))
                                          (number->string _n6236_))))
                                   (_write-complex6232_
                                    (lambda (_n6234_)
                                      (if (and _radix5926_
                                               (not (and (integer? _radix5926_)
                                                         (<= '2
                                                             _radix5926_
                                                             '36))))
                                          (error '"invalid radix for numeric formatting"
                                                 _radix5926_)
                                          (if (zero? (imag-part _n6234_))
                                              (std/srfi/159/base#displayed
                                               (_format6231_
                                                (real-part _n6234_)
                                                _sign-rule5930_))
                                              (std/srfi/159/base#each
                                               (_format6231_
                                                (real-part _n6234_)
                                                _sign-rule5930_)
                                               (_format6231_
                                                (imag-part _n6234_)
                                                '#t)
                                               '"i"))))))
                            (_write-complex6232_ _n5877_)))))
                     _st5914_))))
              (error '"Too many optional arguments." _rest5910_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (error '"argument out of domain"
                                                         _decsep5909_))))
                                           (error '"argument out of domain"
                                                  _commasep5904_))))
                                    (error '"argument out of domain"
                                           _comma5899_))))
                             (error '"argument out of domain" _sgn5894_))))
                      (error '"argument out of domain" _prec5889_))))
               (error '"argument out of domain" _rad5884_)))))))
  (define std/srfi/159/base#numeric/si
    (let* ((_names105833_ '#("" "k" "M" "G" "T" "E" "P" "Z" "Y"))
           (_names-105835_ '#("" "m" "Âµ" "n" "p" "f" "a" "z" "y"))
           (_names25839_
            (list->vector
             (cons '""
                   (cons '"Ki"
                         (map (lambda (_s5837_) (string-append _s5837_ '"i"))
                              (cddr (vector->list _names105833_)))))))
           (_names-25843_
            (list->vector
             (cons '""
                   (map (lambda (_s5841_) (string-append _s5841_ '"i"))
                        (cdr (vector->list _names-105835_)))))))
      (letrec ((_round-to5846_
                (lambda (_n5874_ _k5875_)
                  (/ (round (* _n5874_ _k5875_)) _k5875_))))
        (lambda (_n5848_ . _o5849_)
          (let ((_rest5851_ _o5849_))
            (call-with-values
             (lambda ()
               (if (null? _rest5851_)
                   (values '1024 '())
                   (values (car _rest5851_) (cdr _rest5851_))))
             (lambda (_base5855_ _rest5856_)
               (if '#t
                   (call-with-values
                    (lambda ()
                      (if (null? _rest5856_)
                          (values '"" '())
                          (values (car _rest5856_) (cdr _rest5856_))))
                    (lambda (_separator5860_ _rest5861_)
                      (if '#t
                          (if (null? _rest5861_)
                              (let ()
                                (let* ((_log-n5865_ (log _n5848_))
                                       (_names5867_
                                        (if (negative? _log-n5865_)
                                            (if (= _base5855_ '1024)
                                                _names-25843_
                                                _names-105835_)
                                            (if (= _base5855_ '1024)
                                                _names25839_
                                                _names105833_)))
                                       (_k5869_ (min (exact ((if (negative?
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          _log-n5865_)
                         ceiling
                         floor)
                     (/ (abs _log-n5865_) (log _base5855_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (- (vector-length
                                                         _names5867_)
                                                        '1)))
                                       (_n25871_
                                        (_round-to5846_
                                         (/ _n5848_
                                            (expt _base5855_
                                                  (if (negative? _log-n5865_)
                                                      (- _k5869_)
                                                      _k5869_)))
                                         '10)))
                                  (std/srfi/159/base#each
                                   (if (integer? _n25871_)
                                       (number->string (exact _n25871_))
                                       (inexact _n25871_))
                                   _separator5860_
                                   (vector-ref _names5867_ _k5869_))))
                              (error '"Too many optional arguments."
                                     _rest5861_))
                          (error '"argument out of domain" _separator5860_))))
                   (error '"argument out of domain" _base5855_)))))))))
  (define std/srfi/159/base#numeric/fitted
    (lambda (_width5809_ _n5810_ . _args5811_)
      (std/srfi/159/base#call-with-output
       (apply std/srfi/159/base#numeric _n5810_ _args5811_)
       (lambda (_str5813_)
         (if (> (string-length _str5813_) _width5809_)
             (lambda (_st5815_)
               (let ((_precision5818_
                      (##structure-ref
                       _st5815_
                       '6
                       std/srfi/159/base#Show-Env
                       '#f))
                     (_decimal-sep5819_
                      (##structure-ref
                       _st5815_
                       '8
                       std/srfi/159/base#Show-Env
                       '#f))
                     (_comma-sep5820_
                      (std/srfi/159/base#_%ask411_ _st5815_ 'comma-sep)))
                 ((let ()
                    (std/srfi/159/base#displayed
                     (let ((_prec5823_
                            (if (and (pair? _args5811_)
                                     (pair? (cdr _args5811_)))
                                (cadr _args5811_)
                                _precision5818_)))
                       (if (and _prec5823_ (not (zero? _prec5823_)))
                           (let* ((_dec-sep5828_
                                   (let ((_$e5825_ _decimal-sep5819_))
                                     (if _$e5825_
                                         _$e5825_
                                         (if (eqv? '#\. _comma-sep5820_)
                                             '#\,
                                             '#\.))))
                                  (_diff5830_
                                   (- _width5809_
                                      (+ _prec5823_
                                         (if (char? _dec-sep5828_)
                                             '1
                                             (string-length _dec-sep5828_))))))
                             (std/srfi/159/base#each
                              (if (positive? _diff5830_)
                                  (make-string _diff5830_ '#\#)
                                  '"")
                              _dec-sep5828_
                              (make-string _prec5823_ '#\#)))
                           (std/srfi/159/base#displayed
                            (make-string _width5809_ '#\#))))))
                  _st5815_)))
             (std/srfi/159/base#displayed _str5813_))))))
  (define std/srfi/159/base#numeric/comma
    (lambda (_n5788_ . _o5789_)
      (lambda (_st5791_)
        (let ((_comma-rule5794_
               (std/srfi/159/base#_%ask411_ _st5791_ 'comma-rule)))
          ((let ()
             (std/srfi/159/base#displayed
              (lambda (_st5797_)
                (let ((_tmp5800_
                       (std/srfi/159/base#_%ask411_ _st5797_ 'comma-rule)))
                  (dynamic-wind
                   (lambda ()
                     (std/srfi/159/base#_%tell1752_
                      _st5797_
                      'comma-rule
                      (let ((_$e5804_ _comma-rule5794_))
                        (if _$e5804_ _$e5804_ '3))))
                   (lambda ()
                     ((std/srfi/159/base#each
                       (apply std/srfi/159/base#numeric _n5788_ _o5789_))
                      _st5797_))
                   (lambda ()
                     (std/srfi/159/base#_%tell1752_
                      _st5797_
                      'comma-rule
                      _tmp5800_)))))))
           _st5791_)))))
  (define std/srfi/159/base#extract-shared-objects
    (lambda (_x5760_ _cyclic-only?5761_)
      (let ((_seen5763_ (std/srfi/125#srfi-make-hash-table eq?)))
        (let _find5765_ ((_x5767_ _x5760_))
          (if (or (pair? _x5767_) (vector? _x5767_))
              (begin
                (std/srfi/125#hash-table-update!/default
                 _seen5763_
                 _x5767_
                 (lambda (_n5772_) (+ _n5772_ '1))
                 '0)
                (let ((_$e5774_ (> (table-ref _seen5763_ _x5767_) '1)))
                  (if _$e5774_
                      _$e5774_
                      (if (pair? _x5767_)
                          (begin
                            (_find5765_ (car _x5767_))
                            (_find5765_ (cdr _x5767_)))
                          (if (vector? _x5767_)
                              (let _$loop5777_ ((_i5780_ '0))
                                (if (= _i5780_ (vector-length _x5767_))
                                    '#!void
                                    (begin
                                      (_find5765_ (vector-ref _x5767_ _i5780_))
                                      (_$loop5777_ (+ _i5780_ '1)))))
                              '#!void))))
                (if (and _cyclic-only?5761_
                         (<= (table-ref _seen5763_ _x5767_ '0) '1))
                    (table-set! _seen5763_ _x5767_)
                    '#!void))
              '#!void))
        (let ((_res5782_ (std/srfi/125#srfi-make-hash-table eq?))
              (_count5783_ '0))
          (std/srfi/125#hash-table-walk
           _seen5763_
           (lambda (_k5785_ _v5786_)
             (if (> _v5786_ '1)
                 (begin
                   (table-set! _res5782_ _k5785_ (cons _count5783_ '#f))
                   (set! _count5783_ (+ _count5783_ '1)))
                 '#!void)))
          (cons _res5782_ '0)))))
  (define std/srfi/159/base#maybe-gen-shared-ref
    (lambda (_cell5757_ _shares5758_)
      (if (pair? _cell5757_)
          (begin
            (set-car! _cell5757_ (cdr _shares5758_))
            (set-cdr! _cell5757_ '#t)
            (set-cdr! _shares5758_ (+ (cdr _shares5758_) '1))
            (std/srfi/159/base#each
             '"#"
             (number->string (car _cell5757_))
             '"="))
          std/srfi/159/base#nothing)))
  (define std/srfi/159/base#call-with-shared-ref
    (lambda (_obj5751_ _shares5752_ _proc5753_)
      (let ((_cell5755_ (table-ref (car _shares5752_) _obj5751_ '#f)))
        (if (and (pair? _cell5755_) (cdr _cell5755_))
            (std/srfi/159/base#each
             '"#"
             (number->string (car _cell5755_))
             '"#")
            (std/srfi/159/base#each
             (std/srfi/159/base#maybe-gen-shared-ref _cell5755_ _shares5752_)
             _proc5753_)))))
  (define std/srfi/159/base#call-with-shared-ref/cdr
    (lambda (_obj5743_ _shares5744_ _proc5745_ . _o5746_)
      (let ((_sep5748_
             (std/srfi/159/base#displayed
              (if (pair? _o5746_) (car _o5746_) '"")))
            (_cell5749_ (table-ref (car _shares5744_) _obj5743_ '#f)))
        (if (and (pair? _cell5749_) (cdr _cell5749_))
            (std/srfi/159/base#each
             _sep5748_
             '". #"
             (number->string (car _cell5749_))
             '"#")
            (if (pair? _cell5749_)
                (std/srfi/159/base#each
                 _sep5748_
                 '". "
                 (std/srfi/159/base#maybe-gen-shared-ref
                  _cell5749_
                  _shares5744_)
                 '"("
                 _proc5745_
                 '")")
                (std/srfi/159/base#each _sep5748_ _proc5745_))))))
  (define std/srfi/159/base#write-with-shares
    (lambda (_obj5663_ _shares5664_)
      (lambda (_st5666_)
        (let ((_radix5669_
               (##structure-ref _st5666_ '5 std/srfi/159/base#Show-Env '#f))
              (_precision5670_
               (##structure-ref _st5666_ '6 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (std/srfi/159/base#displayed
              (let ((_write-number5700_
                     (let ((_$e5673_
                            (if (not _precision5670_)
                                (assv _radix5669_
                                      '((16 . "#x")
                                        (10 . "")
                                        (8 . "#o")
                                        (2 . "#b")))
                                '#f)))
                       (if _$e5673_
                           ((lambda (_cell5676_)
                              (lambda (_n5678_)
                                (if (eqv? _radix5669_ '10)
                                    (std/srfi/159/base#displayed
                                     (number->string _n5678_ (car _cell5676_)))
                                    (if (exact? _n5678_)
                                        (std/srfi/159/base#each
                                         (cdr _cell5676_)
                                         (number->string
                                          _n5678_
                                          (car _cell5676_)))
                                        (lambda (_st5680_)
                                          (let ((_tmp5683_
                                                 (std/srfi/159/base#_%ask411_
                                                  _st5680_
                                                  'radix)))
                                            (dynamic-wind
                                             (lambda ()
                                               (std/srfi/159/base#_%tell1752_
                                                _st5680_
                                                'radix
                                                '10))
                                             (lambda ()
                                               ((std/srfi/159/base#each
                                                 (std/srfi/159/base#numeric
                                                  _n5678_))
                                                _st5680_))
                                             (lambda ()
                                               (std/srfi/159/base#_%tell1752_
                                                _st5680_
                                                'radix
                                                _tmp5683_)))))))))
                            _$e5673_)
                           (lambda (_n5689_)
                             (lambda (_st5691_)
                               (let ((_tmp5694_
                                      (std/srfi/159/base#_%ask411_
                                       _st5691_
                                       'radix)))
                                 (dynamic-wind
                                  (lambda ()
                                    (std/srfi/159/base#_%tell1752_
                                     _st5691_
                                     'radix
                                     '10))
                                  (lambda ()
                                    ((std/srfi/159/base#each
                                      (std/srfi/159/base#numeric _n5689_))
                                     _st5691_))
                                  (lambda ()
                                    (std/srfi/159/base#_%tell1752_
                                     _st5691_
                                     'radix
                                     _tmp5694_))))))))))
                (let _wr5702_ ((_obj5704_ _obj5663_))
                  (std/srfi/159/base#call-with-shared-ref
                   _obj5704_
                   _shares5664_
                   (lambda (_st5706_)
                     (let ()
                       ((let ()
                          (std/srfi/159/base#displayed
                           (if (pair? _obj5704_)
                               (std/srfi/159/base#each
                                '"("
                                (lambda (_st5711_)
                                  (let ()
                                    ((let ()
                                       (std/srfi/159/base#displayed
                                        (let _lp5716_ ((_ls5718_ _obj5704_))
                                          (let ((_rest5720_ (cdr _ls5718_)))
                                            (std/srfi/159/base#each
                                             (_wr5702_ (car _ls5718_))
                                             (if (null? _rest5720_)
                                                 std/srfi/159/base#nothing
                                                 (if (pair? _rest5720_)
                                                     (std/srfi/159/base#each
                                                      '" "
                                                      (std/srfi/159/base#call-with-shared-ref/cdr
                                                       _rest5720_
                                                       _shares5664_
                                                       (lambda (_st5722_)
                                                         (let ()
                                                           ((let ()
                                                              (std/srfi/159/base#displayed
                                                               (_lp5716_
                                                                _rest5720_)))
                                                            _st5722_)))))
                                                     (std/srfi/159/base#each
                                                      '" . "
                                                      (_wr5702_
                                                       _rest5720_)))))))))
                                     _st5711_)))
                                '")")
                               (if (vector? _obj5704_)
                                   (let ((_len5727_ (vector-length _obj5704_)))
                                     (if (zero? _len5727_)
                                         (std/srfi/159/base#displayed '"#()")
                                         (std/srfi/159/base#each
                                          '"#("
                                          (_wr5702_ (vector-ref _obj5704_ '0))
                                          (lambda (_st5729_)
                                            (let ()
                                              ((let ()
                                                 (std/srfi/159/base#displayed
                                                  (let _lp5734_ ((_i5736_ '1))
                                                    (if (>= _i5736_ _len5727_)
                                                        std/srfi/159/base#nothing
                                                        (std/srfi/159/base#each
                                                         '" "
                                                         (_wr5702_
                                                          (vector-ref
                                                           _obj5704_
                                                           _i5736_))
                                                         (lambda (_st5738_)
                                                           (let ()
                                                             ((let ()
                                                                (std/srfi/159/base#displayed
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (_lp5734_ (+ _i5736_ '1))))
                      _st5738_))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               _st5729_)))
                                          '")")))
                                   (if (number? _obj5704_)
                                       (_write-number5700_ _obj5704_)
                                       (std/srfi/159/base#displayed
                                        (std/srfi/159/base#write-to-string
                                         _obj5704_)))))))
                        _st5706_))))))))
           _st5666_)))))
  (define std/srfi/159/base#written-default
    (lambda (_obj5656_)
      (lambda (_st5658_)
        (let ()
          ((let ()
             (std/srfi/159/base#displayed
              (std/srfi/159/base#write-with-shares
               _obj5656_
               (std/srfi/159/base#extract-shared-objects _obj5656_ '#t))))
           _st5658_)))))
  (define std/srfi/159/base#written-shared
    (lambda (_obj5649_)
      (lambda (_st5651_)
        (let ()
          ((let ()
             (std/srfi/159/base#displayed
              (std/srfi/159/base#write-with-shares
               _obj5649_
               (std/srfi/159/base#extract-shared-objects _obj5649_ '#f))))
           _st5651_)))))
  (define std/srfi/159/base#written-simply
    (lambda (_obj5642_)
      (lambda (_st5644_)
        (let ()
          ((let ()
             (std/srfi/159/base#displayed
              (std/srfi/159/base#write-with-shares
               _obj5642_
               (std/srfi/159/base#extract-shared-objects '#f '#f))))
           _st5644_))))))
