(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/srfi-135/kernel8#complain
    (lambda (_name905_ . _args906_)
      (apply error
             (string-append (symbol->string _name905_) '": illegal arguments")
             _args906_)))
  (define std/srfi/srfi-135/kernel8#list->bytevector
    (lambda (_bytes892_)
      (let* ((_n894_ (length _bytes892_)) (_bv896_ (make-u8vector _n894_)))
        (let _$loop899_ ((_i902_ '0) (_bytes903_ _bytes892_))
          (if (= _i902_ _n894_)
              '#!void
              (begin
                (u8vector-set! _bv896_ _i902_ (car _bytes903_))
                (_$loop899_ (+ _i902_ '1) (cdr _bytes903_)))))
        _bv896_)))
  (define std/srfi/srfi-135/kernel8#%string->text
    (lambda (_s888_)
      (if (string? _s888_)
          (std/srfi/srfi-135/kernel8#text-tabulate
           (lambda (_i890_) (string-ref _s888_ _i890_))
           (string-length _s888_))
          (std/srfi/srfi-135/kernel8#complain 'string->text _s888_))))
  (define std/srfi/srfi-135/kernel8#N '128)
  (define std/srfi/srfi-135/kernel8#length&i0
    (lambda (_len885_ _i0886_)
      (+ (* std/srfi/srfi-135/kernel8#N _len885_) _i0886_)))
  (define std/srfi/srfi-135/kernel8#text-rtd
    (make-struct-type
     'std/srfi/srfi-135/kernel8#text-rtd
     '#f
     '2
     'text-rtd
     '((fields: k chunks))
     '#f))
  (define std/srfi/srfi-135/kernel8#text?
    (make-struct-predicate std/srfi/srfi-135/kernel8#text-rtd))
  (define std/srfi/srfi-135/kernel8#text.k
    (make-struct-field-accessor std/srfi/srfi-135/kernel8#text-rtd '0))
  (define std/srfi/srfi-135/kernel8#text.chunks
    (make-struct-field-accessor std/srfi/srfi-135/kernel8#text-rtd '1))
  (define std/srfi/srfi-135/kernel8#new-text0
    (lambda (_k882_ _chunks883_)
      (make-struct-instance
       std/srfi/srfi-135/kernel8#text-rtd
       _k882_
       _chunks883_)))
  (define std/srfi/srfi-135/kernel8#%new-text
    (lambda (_len878_ _i0879_ _chunks880_)
      (let ((__tmp4505 (std/srfi/srfi-135/kernel8#length&i0 _len878_ _i0879_)))
        (declare (not safe))
        (##structure
         std/srfi/srfi-135/kernel8#text-rtd
         __tmp4505
         _chunks880_))))
  (define std/srfi/srfi-135/kernel8#the-empty-text
    (std/srfi/srfi-135/kernel8#%new-text '0 '0 (vector (make-u8vector '0))))
  (define std/srfi/srfi-135/kernel8#text-length
    (lambda (_txt876_)
      (if (let ()
            (declare (not safe))
            (##structure-instance-of?
             _txt876_
             'std/srfi/srfi-135/kernel8#text-rtd))
          (quotient
           (##structure-ref _txt876_ '1 std/srfi/srfi-135/kernel8#text-rtd '#f)
           std/srfi/srfi-135/kernel8#N)
          (error '"text-length: not a text" _txt876_))))
  (define std/srfi/srfi-135/kernel8#text-ref
    (lambda (_txt853_ _i854_)
      (if (and (let ()
                 (declare (not safe))
                 (##structure-instance-of?
                  _txt853_
                  'std/srfi/srfi-135/kernel8#text-rtd))
               (exact-integer? _i854_)
               (<= '0 _i854_))
          (let* ((_k856_ (##structure-ref
                          _txt853_
                          '1
                          std/srfi/srfi-135/kernel8#text-rtd
                          '#f))
                 (_chunks858_
                  (##structure-ref
                   _txt853_
                   '2
                   std/srfi/srfi-135/kernel8#text-rtd
                   '#f))
                 (_len860_ (quotient _k856_ std/srfi/srfi-135/kernel8#N))
                 (_i0862_ (remainder _k856_ std/srfi/srfi-135/kernel8#N))
                 (_i+i0864_ (+ _i854_ _i0862_))
                 (_j866_ (quotient _i+i0864_ std/srfi/srfi-135/kernel8#N))
                 (_ii868_ (remainder _i+i0864_ std/srfi/srfi-135/kernel8#N)))
            (if (< _i854_ _len860_)
                (let* ((_sj871_ (vector-ref _chunks858_ _j866_))
                       (_sjn873_ (u8vector-length _sj871_)))
                  (if (if (< _j866_ (- (vector-length _chunks858_) '1))
                          (= _sjn873_ std/srfi/srfi-135/kernel8#N)
                          (= _sjn873_
                             (remainder
                              (+ _i0862_ _len860_)
                              std/srfi/srfi-135/kernel8#N)))
                      (integer->char (u8vector-ref _sj871_ _ii868_))
                      (std/srfi/srfi-135/kernel8#%utf8-ref _sj871_ _ii868_)))
                (error '"text-ref: index out of range" _txt853_ _i854_)))
          (error '"text-ref: illegal arguments" _txt853_ _i854_))))
  (define std/srfi/srfi-135/kernel8#%text-length
    (lambda (_txt851_)
      (quotient
       (##structure-ref _txt851_ '1 std/srfi/srfi-135/kernel8#text-rtd '#f)
       std/srfi/srfi-135/kernel8#N)))
  (define std/srfi/srfi-135/kernel8#%text-ref
    (lambda (_txt829_ _i830_)
      (let* ((_k832_ (##structure-ref
                      _txt829_
                      '1
                      std/srfi/srfi-135/kernel8#text-rtd
                      '#f))
             (_chunks834_
              (##structure-ref
               _txt829_
               '2
               std/srfi/srfi-135/kernel8#text-rtd
               '#f))
             (_len836_ (quotient _k832_ std/srfi/srfi-135/kernel8#N))
             (_i0838_ (remainder _k832_ std/srfi/srfi-135/kernel8#N))
             (_i+i0840_ (+ _i830_ _i0838_))
             (_j842_ (quotient _i+i0840_ std/srfi/srfi-135/kernel8#N))
             (_ii844_ (remainder _i+i0840_ std/srfi/srfi-135/kernel8#N))
             (_sj846_ (vector-ref _chunks834_ _j842_))
             (_sjn848_ (u8vector-length _sj846_)))
        (if (if (< _j842_ (- (vector-length _chunks834_) '1))
                (= _sjn848_ std/srfi/srfi-135/kernel8#N)
                (= _sjn848_
                   (remainder
                    (+ _i0838_ _len836_)
                    std/srfi/srfi-135/kernel8#N)))
            (integer->char (u8vector-ref _sj846_ _ii844_))
            (std/srfi/srfi-135/kernel8#%utf8-ref _sj846_ _ii844_)))))
  (define std/srfi/srfi-135/kernel8#%utf8-ref
    (lambda (_bv819_ _i820_)
      (let _loop822_ ((_j824_ '0) (_k825_ '0))
        (if (= _i820_ _j824_)
            (std/srfi/srfi-135/kernel8#%utf8-char-at _bv819_ _k825_)
            (let ((_byte827_ (u8vector-ref _bv819_ _k825_)))
              (if (< _byte827_ '128)
                  (_loop822_ (+ _j824_ '1) (+ _k825_ '1))
                  (if (< _byte827_ '224)
                      (_loop822_ (+ _j824_ '1) (+ _k825_ '2))
                      (if (< _byte827_ '240)
                          (_loop822_ (+ _j824_ '1) (+ _k825_ '3))
                          (_loop822_ (+ _j824_ '1) (+ _k825_ '4))))))))))
  (define std/srfi/srfi-135/kernel8#%utf8-char-at
    (lambda (_bv775_ _k776_)
      (let ((_byte778_ (u8vector-ref _bv775_ _k776_)))
        (if (< _byte778_ '128)
            (integer->char _byte778_)
            (if (< _byte778_ '224)
                (let* ((_byte2780_ (u8vector-ref _bv775_ (+ _k776_ '1)))
                       (_bits1782_ (- _byte778_ '192))
                       (_bits2784_ (- _byte2780_ '128))
                       (_cp786_ (+ (* '64 _bits1782_) _bits2784_)))
                  (integer->char _cp786_))
                (if (< _byte778_ '240)
                    (let* ((_byte2789_ (u8vector-ref _bv775_ (+ _k776_ '1)))
                           (_byte3791_ (u8vector-ref _bv775_ (+ _k776_ '2)))
                           (_bits1793_ (- _byte778_ '224))
                           (_bits2795_ (- _byte2789_ '128))
                           (_bits3797_ (- _byte3791_ '128))
                           (_cp799_ (+ (* '64 '64 _bits1793_)
                                       (* '64 _bits2795_)
                                       _bits3797_)))
                      (integer->char _cp799_))
                    (let* ((_byte2802_ (u8vector-ref _bv775_ (+ _k776_ '1)))
                           (_byte3804_ (u8vector-ref _bv775_ (+ _k776_ '2)))
                           (_byte4806_ (u8vector-ref _bv775_ (+ _k776_ '3)))
                           (_bits1808_ (- _byte778_ '240))
                           (_bits2810_ (- _byte2802_ '128))
                           (_bits3812_ (- _byte3804_ '128))
                           (_bits4814_ (- _byte4806_ '128))
                           (_cp816_ (+ (* '64 '64 '64 _bits1808_)
                                       (* '64 '64 _bits2810_)
                                       (* '64 _bits3812_)
                                       _bits4814_)))
                      (integer->char _cp816_))))))))
  (define std/srfi/srfi-135/kernel8#text-tabulate
    (lambda (_proc720_ _len721_)
      (if (= '0 _len721_)
          std/srfi/srfi-135/kernel8#the-empty-text
          (let _loop723_ ((_i725_ _len721_) (_chunks726_ '()) (_bytes727_ '()))
            (if (= '0 _i725_)
                (std/srfi/srfi-135/kernel8#%new-text
                 _len721_
                 '0
                 (list->vector
                  (cons (std/srfi/srfi-135/kernel8#list->bytevector _bytes727_)
                        _chunks726_)))
                (if (and (= '0 (remainder _i725_ std/srfi/srfi-135/kernel8#N))
                         (not (null? _bytes727_)))
                    (_loop723_
                     _i725_
                     (cons (std/srfi/srfi-135/kernel8#list->bytevector
                            _bytes727_)
                           _chunks726_)
                     '())
                    (let* ((_i-1729_ (- _i725_ '1))
                           (_c731_ (_proc720_ _i-1729_)))
                      (if (char? _c731_)
                          (let ((_cp734_ (char->integer _c731_)))
                            (_loop723_
                             _i-1729_
                             _chunks726_
                             (if (< _cp734_ '128)
                                 (cons _cp734_ _bytes727_)
                                 (if (< _cp734_ '2048)
                                     (let* ((_bits1736_ (quotient _cp734_ '64))
                                            (_bits2738_
                                             (remainder _cp734_ '64))
                                            (_byte1740_ (+ _bits1736_ '192))
                                            (_byte2742_ (+ _bits2738_ '128)))
                                       (cons _byte1740_
                                             (cons _byte2742_ _bytes727_)))
                                     (if (< _cp734_ '65536)
                                         (let* ((_bits1745_
                                                 (quotient
                                                  _cp734_
                                                  (* '64 '64)))
                                                (_bits2747_
                                                 (quotient
                                                  (remainder
                                                   _cp734_
                                                   (* '64 '64))
                                                  '64))
                                                (_bits3749_
                                                 (remainder _cp734_ '64))
                                                (_byte1751_
                                                 (+ _bits1745_ '224))
                                                (_byte2753_
                                                 (+ _bits2747_ '128))
                                                (_byte3755_
                                                 (+ _bits3749_ '128)))
                                           (cons _byte1751_
                                                 (cons _byte2753_
                                                       (cons _byte3755_
                                                             _bytes727_))))
                                         (let* ((_bits1758_
                                                 (quotient
                                                  _cp734_
                                                  (* '64 '64 '64)))
                                                (_bits2760_
                                                 (quotient
                                                  (remainder
                                                   _cp734_
                                                   (* '64 '64 '64))
                                                  (* '64 '64)))
                                                (_bits3762_
                                                 (quotient
                                                  (remainder
                                                   _cp734_
                                                   (* '64 '64))
                                                  '64))
                                                (_bits4764_
                                                 (remainder _cp734_ '64))
                                                (_byte1766_
                                                 (+ _bits1758_ '240))
                                                (_byte2768_
                                                 (+ _bits2760_ '128))
                                                (_byte3770_
                                                 (+ _bits3762_ '128))
                                                (_byte4772_
                                                 (+ _bits4764_ '128)))
                                           (cons _byte1766_
                                                 (cons _byte2768_
                                                       (cons _byte3770_
                                                             (cons _byte4772_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           _bytes727_))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                          (error '"text-tabulate: proc returned a non-character"
                                 _proc720_
                                 _len721_
                                 _c731_)))))))))
  (define std/srfi/srfi-135/kernel8#subtext
    (lambda (_txt716_ _start717_ _end718_)
      (if (and (let ()
                 (declare (not safe))
                 (##structure-instance-of?
                  _txt716_
                  'std/srfi/srfi-135/kernel8#text-rtd))
               (exact-integer? _start717_)
               (exact-integer? _end718_)
               (<= '0 _start717_ _end718_))
          (std/srfi/srfi-135/kernel8#%subtext _txt716_ _start717_ _end718_)
          (std/srfi/srfi-135/kernel8#complain
           'subtext
           _txt716_
           _start717_
           _end718_))))
  (define std/srfi/srfi-135/kernel8#%subtext
    (lambda (_txt683_ _start684_ _end685_)
      (let* ((_k687_ (##structure-ref
                      _txt683_
                      '1
                      std/srfi/srfi-135/kernel8#text-rtd
                      '#f))
             (_chunks689_
              (##structure-ref
               _txt683_
               '2
               std/srfi/srfi-135/kernel8#text-rtd
               '#f))
             (_len691_ (quotient _k687_ std/srfi/srfi-135/kernel8#N))
             (_i0693_ (remainder _k687_ std/srfi/srfi-135/kernel8#N))
             (_i+i0695_ (+ _start684_ _i0693_))
             (_end+i0697_ (+ _end685_ _i0693_))
             (_len+i0699_ (+ _len691_ _i0693_))
             (_jstart701_ (quotient _i+i0695_ std/srfi/srfi-135/kernel8#N))
             (_jend703_ (quotient _end+i0697_ std/srfi/srfi-135/kernel8#N))
             (_jlen705_ (quotient _len691_ std/srfi/srfi-135/kernel8#N)))
        (if (<= _end685_ _len691_)
            (if (= _start684_ _end685_)
                std/srfi/srfi-135/kernel8#the-empty-text
                (if (and (= '0 _jstart701_) (= _jlen705_ _jend703_))
                    (std/srfi/srfi-135/kernel8#%new-text
                     (- _end685_ _start684_)
                     _i+i0695_
                     _chunks689_)
                    (let ((_v708_ (make-vector
                                   (+ '1 (- _jend703_ _jstart701_)))))
                      (let _$loop711_ ((_j714_ _jstart701_))
                        (if (> _j714_ _jend703_)
                            '#!void
                            (begin
                              (vector-set!
                               _v708_
                               (- _j714_ _jstart701_)
                               (vector-ref _chunks689_ _j714_))
                              (_$loop711_ (+ _j714_ '1)))))
                      (std/srfi/srfi-135/kernel8#%new-text
                       (- _end685_ _start684_)
                       (remainder _i+i0695_ std/srfi/srfi-135/kernel8#N)
                       _v708_))))
            (error '"subtext: end out of range"
                   _txt683_
                   _start684_
                   _end685_)))))
  (define std/srfi/srfi-135/kernel8#textual-concatenate
    (lambda (_texts666_)
      (if (not (list? _texts666_))
          (std/srfi/srfi-135/kernel8#complain 'textual-concatenate _texts666_)
          (if (null? _texts666_)
              std/srfi/srfi-135/kernel8#the-empty-text
              (if (null? (cdr _texts666_))
                  (let ((_txt668_ (car _texts666_)))
                    (if (let ()
                          (declare (not safe))
                          (##structure-instance-of?
                           _txt668_
                           'std/srfi/srfi-135/kernel8#text-rtd))
                        _txt668_
                        (if (string? _txt668_)
                            (std/srfi/srfi-135/kernel8#%string->text _txt668_)
                            (std/srfi/srfi-135/kernel8#complain
                             'textual-concatenate
                             _texts666_))))
                  (let _loop670_ ((_items672_ (reverse _texts666_))
                                  (_real-texts673_ '())
                                  (_n674_ '0)
                                  (_longest675_ '#f)
                                  (_longest-length676_ '0))
                    (if (null? _items672_)
                        (std/srfi/srfi-135/kernel8#%text-concatenate-n
                         _real-texts673_
                         _n674_
                         _longest675_
                         _longest-length676_)
                        (if (let ((__tmp4506 (car _items672_)))
                              (declare (not safe))
                              (##structure-instance-of?
                               __tmp4506
                               'std/srfi/srfi-135/kernel8#text-rtd))
                            (let* ((_txt678_ (car _items672_))
                                   (_k680_ (std/srfi/srfi-135/kernel8#%text-length
                                            _txt678_)))
                              (_loop670_
                               (cdr _items672_)
                               (cons _txt678_ _real-texts673_)
                               (+ _n674_ _k680_)
                               (if (> _k680_ _longest-length676_)
                                   _txt678_
                                   _longest675_)
                               (max _k680_ _longest-length676_)))
                            (if (string? (car _items672_))
                                (_loop670_
                                 (cons (std/srfi/srfi-135/kernel8#%string->text
                                        (car _items672_))
                                       (cdr _items672_))
                                 _real-texts673_
                                 _n674_
                                 _longest675_
                                 _longest-length676_)
                                (std/srfi/srfi-135/kernel8#complain
                                 'textual-concatenate
                                 _texts666_))))))))))
  (define std/srfi/srfi-135/kernel8#%text-concatenate-n
    (lambda (_texts653_ _n654_ _longest655_ _longest-length656_)
      (if (and _longest655_
               (> _longest-length656_ std/srfi/srfi-135/kernel8#N)
               (< _n654_ (+ _longest-length656_ _longest-length656_))
               (= '0
                  (remainder
                   (##structure-ref
                    _longest655_
                    '1
                    std/srfi/srfi-135/kernel8#text-rtd
                    '#f)
                   std/srfi/srfi-135/kernel8#N)))
          (if (eq? _longest655_ (car _texts653_))
              (std/srfi/srfi-135/kernel8#%%text-concatenate-n
               _texts653_
               _n654_)
              (let _loop658_ ((_texts660_ _texts653_)
                              (_front661_ '())
                              (_front-length662_ '0))
                (if (eq? _longest655_ (car _texts660_))
                    (std/srfi/srfi-135/kernel8#%%text-concatenate-front
                     (reverse _front661_)
                     (std/srfi/srfi-135/kernel8#%%text-concatenate-n
                      _texts660_
                      (- _n654_ _front-length662_))
                     _front-length662_
                     _n654_)
                    (let ((_txt664_ (car _texts660_)))
                      (_loop658_
                       (cdr _texts660_)
                       (cons _txt664_ _front661_)
                       (+ _front-length662_
                          (std/srfi/srfi-135/kernel8#%text-length
                           _txt664_)))))))
          (std/srfi/srfi-135/kernel8#%%text-concatenate-n _texts653_ _n654_))))
  (define std/srfi/srfi-135/kernel8#%%text-concatenate-n
    (lambda (_texts621_ _n622_)
      (if (= '0 _n622_)
          std/srfi/srfi-135/kernel8#the-empty-text
          (let* ((_n/N624_ (quotient _n622_ std/srfi/srfi-135/kernel8#N))
                 (_m626_ (remainder _n622_ std/srfi/srfi-135/kernel8#N))
                 (_nchunks628_ (+ _n/N624_ (if (= '0 _m626_) '0 '1)))
                 (_chunks630_
                  (make-vector _nchunks628_ 'bug-in-text-concatenate))
                 (_txt632_ (car _texts621_))
                 (_k634_ (##structure-ref
                          _txt632_
                          '1
                          std/srfi/srfi-135/kernel8#text-rtd
                          '#f))
                 (_len636_ (quotient _k634_ std/srfi/srfi-135/kernel8#N))
                 (_i0638_ (remainder _k634_ std/srfi/srfi-135/kernel8#N)))
            (if (and (> _len636_ std/srfi/srfi-135/kernel8#N) (= '0 _i0638_))
                (let* ((_j641_ (quotient _len636_ std/srfi/srfi-135/kernel8#N))
                       (_ti643_ (* _j641_ std/srfi/srfi-135/kernel8#N))
                       (_chunks0645_
                        (##structure-ref
                         _txt632_
                         '2
                         std/srfi/srfi-135/kernel8#text-rtd
                         '#f)))
                  (let _$loop648_ ((_i651_ '0))
                    (if (= _i651_ _j641_)
                        '#!void
                        (begin
                          (vector-set!
                           _chunks630_
                           _i651_
                           (vector-ref _chunks0645_ _i651_))
                          (_$loop648_ (+ _i651_ '1)))))
                  (std/srfi/srfi-135/kernel8#%%text-concatenate-finish
                   _n622_
                   '0
                   _chunks630_
                   _j641_
                   _texts621_
                   _ti643_))
                (std/srfi/srfi-135/kernel8#%%text-concatenate-finish
                 _n622_
                 '0
                 _chunks630_
                 '0
                 _texts621_
                 '0))))))
  (define std/srfi/srfi-135/kernel8#%%text-concatenate-front
    (lambda (_texts590_ _txt591_ _k592_ _n593_)
      (let* ((_k/N595_ (quotient _k592_ std/srfi/srfi-135/kernel8#N))
             (_mk597_ (remainder _k592_ std/srfi/srfi-135/kernel8#N))
             (_i0599_ (if (= '0 _mk597_)
                          '0
                          (- std/srfi/srfi-135/kernel8#N _mk597_)))
             (_kchunks601_ (+ _k/N595_ (if (= '0 _mk597_) '0 '1)))
             (_n-k603_ (- _n593_ _k592_))
             (_n-k/N605_ (quotient _n-k603_ std/srfi/srfi-135/kernel8#N))
             (_m607_ (remainder _n-k603_ std/srfi/srfi-135/kernel8#N))
             (_nchunks609_
              (+ _kchunks601_ _n-k/N605_ (if (= '0 _m607_) '0 '1)))
             (_chunks611_ (make-vector _nchunks609_ 'bug-in-text-concatenate))
             (_chunks2613_
              (##structure-ref
               _txt591_
               '2
               std/srfi/srfi-135/kernel8#text-rtd
               '#f)))
        (let _$loop616_ ((_i619_ _kchunks601_))
          (if (= _i619_ _nchunks609_)
              '#!void
              (begin
                (vector-set!
                 _chunks611_
                 _i619_
                 (vector-ref _chunks2613_ (- _i619_ _kchunks601_)))
                (_$loop616_ (+ _i619_ '1)))))
        (std/srfi/srfi-135/kernel8#%%text-concatenate-finish
         _n593_
         _i0599_
         _chunks611_
         '0
         _texts590_
         '0))))
  (define std/srfi/srfi-135/kernel8#%%text-concatenate-finish
    (lambda (_n526_ _i0527_ _chunks528_ _j529_ _texts530_ _ti531_)
      (let _loop533_ ((_texts535_ (cdr _texts530_))
                      (_txt536_ (car _texts530_))
                      (_j537_ _j529_)
                      (_k538_ _i0527_)
                      (_ti539_ _ti531_)
                      (_bytes540_ (make-list _i0527_ '0)))
        (if (= _k538_ std/srfi/srfi-135/kernel8#N)
            (begin
              (let ((_bv542_ (std/srfi/srfi-135/kernel8#list->bytevector
                              (reverse _bytes540_))))
                (vector-set! _chunks528_ _j537_ _bv542_))
              (_loop533_ _texts535_ _txt536_ (+ _j537_ '1) '0 _ti539_ '()))
            (if (= _ti539_ (std/srfi/srfi-135/kernel8#%text-length _txt536_))
                (if (null? _texts535_)
                    (begin
                      (if (not (null? _bytes540_))
                          (let ((_bv544_ (std/srfi/srfi-135/kernel8#list->bytevector
                                          (reverse _bytes540_))))
                            (vector-set! _chunks528_ _j537_ _bv544_))
                          '#!void)
                      (std/srfi/srfi-135/kernel8#%new-text
                       _n526_
                       _i0527_
                       _chunks528_))
                    (_loop533_
                     (cdr _texts535_)
                     (car _texts535_)
                     _j537_
                     _k538_
                     '0
                     _bytes540_))
                (let* ((_cp546_ (char->integer
                                 (std/srfi/srfi-135/kernel8#%text-ref
                                  _txt536_
                                  _ti539_)))
                       (_bytes587_
                        (if (< _cp546_ '128)
                            (cons _cp546_ _bytes540_)
                            (if (< _cp546_ '2048)
                                (let* ((_bits1548_ (quotient _cp546_ '64))
                                       (_bits2550_ (remainder _cp546_ '64))
                                       (_byte1552_ (+ _bits1548_ '192))
                                       (_byte2554_ (+ _bits2550_ '128)))
                                  (cons _byte2554_
                                        (cons _byte1552_ _bytes540_)))
                                (if (< _cp546_ '65536)
                                    (let* ((_bits1557_
                                            (quotient _cp546_ (* '64 '64)))
                                           (_bits2559_
                                            (quotient
                                             (remainder _cp546_ (* '64 '64))
                                             '64))
                                           (_bits3561_ (remainder _cp546_ '64))
                                           (_byte1563_ (+ _bits1557_ '224))
                                           (_byte2565_ (+ _bits2559_ '128))
                                           (_byte3567_ (+ _bits3561_ '128)))
                                      (cons _byte3567_
                                            (cons _byte2565_
                                                  (cons _byte1563_
                                                        _bytes540_))))
                                    (let* ((_bits1570_
                                            (quotient _cp546_ (* '64 '64 '64)))
                                           (_bits2572_
                                            (quotient
                                             (remainder
                                              _cp546_
                                              (* '64 '64 '64))
                                             (* '64 '64)))
                                           (_bits3574_
                                            (quotient
                                             (remainder _cp546_ (* '64 '64))
                                             '64))
                                           (_bits4576_ (remainder _cp546_ '64))
                                           (_byte1578_ (+ _bits1570_ '240))
                                           (_byte2580_ (+ _bits2572_ '128))
                                           (_byte3582_ (+ _bits3574_ '128))
                                           (_byte4584_ (+ _bits4576_ '128)))
                                      (cons _byte4584_
                                            (cons _byte3582_
                                                  (cons _byte2580_
                                                        (cons _byte1578_
                                                              _bytes540_))))))))))
                  (_loop533_
                   _texts535_
                   _txt536_
                   _j537_
                   (+ _k538_ '1)
                   (+ _ti539_ '1)
                   _bytes587_))))))))
