(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/srfi-135/text#textual?
    (lambda (_x97366_)
      (let ((_$e97368_
             (##structure-instance-of?
              _x97366_
              'std/srfi/srfi-135/kernel8#text-rtd)))
        (if _$e97368_ _$e97368_ (string? _x97366_)))))
  (define std/srfi/srfi-135/text#textual-null?
    (lambda (_txt97364_)
      (= '0 (std/srfi/srfi-135/text#textual-length _txt97364_))))
  (define std/srfi/srfi-135/text#textual-every__textual-every
    (lambda (_pred97325_ _textual97326_ _start97327_ _end97328_)
      (if (= _start97327_ _end97328_)
          '#t
          (let ((_end-197330_ (- _end97328_ '1)))
            (let _loop97332_ ((_i97334_ _start97327_))
              (if (= _i97334_ _end-197330_)
                  (_pred97325_
                   (std/srfi/srfi-135/kernel8#%text-ref
                    _textual97326_
                    _i97334_))
                  (if (_pred97325_
                       (std/srfi/srfi-135/kernel8#%text-ref
                        _textual97326_
                        _i97334_))
                      (_loop97332_ (+ _i97334_ '1))
                      '#f)))))))
  (define std/srfi/srfi-135/text#textual-every__0
    (lambda (_pred97338_ _textual97339_)
      (let ((_text97341_
             (if (string? _textual97339_)
                 (std/srfi/srfi-135/kernel8#%string->text _textual97339_)
                 (if (##structure-instance-of?
                      _textual97339_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _textual97339_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-every__textual-every
                      _pred97338_
                      _textual97339_)))))
        (std/srfi/srfi-135/text#textual-every__textual-every
         _pred97338_
         _text97341_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text97341_)))))
  (define std/srfi/srfi-135/text#textual-every__1
    (lambda (_pred97344_ _textual97345_ _start97346_)
      (let* ((_text97348_
              (if (string? _textual97345_)
                  (std/srfi/srfi-135/kernel8#%string->text _textual97345_)
                  (if (##structure-instance-of?
                       _textual97345_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _textual97345_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-every__textual-every
                       _pred97344_
                       _textual97345_
                       _start97346_))))
             (_n97350_ (std/srfi/srfi-135/kernel8#%text-length _text97348_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97346_)
                 (<= '0 _start97346_ _n97350_))
            (std/srfi/srfi-135/text#textual-every__textual-every
             _pred97344_
             _text97348_
             _start97346_
             _n97350_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-every
             _pred97344_
             _textual97345_
             _start97346_)))))
  (define std/srfi/srfi-135/text#textual-every__2
    (lambda (_pred97354_ _textual97355_ _start97356_ _end97357_)
      (let* ((_text97359_
              (if (string? _textual97355_)
                  (std/srfi/srfi-135/kernel8#%string->text _textual97355_)
                  (if (##structure-instance-of?
                       _textual97355_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _textual97355_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-every__textual-every
                       _pred97354_
                       _textual97355_
                       _start97356_
                       _end97357_))))
             (_n97361_ (std/srfi/srfi-135/kernel8#%text-length _text97359_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97356_)
                 (std/srfi/srfi-135/etc#exact-integer? _end97357_)
                 (<= '0 _start97356_ _end97357_ _n97361_))
            (std/srfi/srfi-135/text#textual-every__textual-every
             _pred97354_
             _text97359_
             _start97356_
             _end97357_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-every
             _pred97354_
             _textual97355_
             _start97356_
             _end97357_)))))
  (define std/srfi/srfi-135/text#textual-every
    (lambda _g97371_
      (let ((_g97370_ (length _g97371_)))
        (cond ((##fx= _g97370_ 2)
               (apply std/srfi/srfi-135/text#textual-every__0 _g97371_))
              ((##fx= _g97370_ 3)
               (apply std/srfi/srfi-135/text#textual-every__1 _g97371_))
              ((##fx= _g97370_ 4)
               (apply std/srfi/srfi-135/text#textual-every__2 _g97371_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-every
                _g97371_))))))
  (define std/srfi/srfi-135/text#textual-any__textual-any
    (lambda (_pred97285_ _textual97286_ _start97287_ _end97288_)
      (let _loop97290_ ((_i97292_ _start97287_))
        (if (= _i97292_ _end97288_)
            '#f
            (let ((_$e97294_
                   (_pred97285_
                    (std/srfi/srfi-135/kernel8#%text-ref
                     _textual97286_
                     _i97292_))))
              (if _$e97294_ _$e97294_ (_loop97290_ (+ _i97292_ '1))))))))
  (define std/srfi/srfi-135/text#textual-any__0
    (lambda (_pred97299_ _textual97300_)
      (let ((_text97302_
             (if (string? _textual97300_)
                 (std/srfi/srfi-135/kernel8#%string->text _textual97300_)
                 (if (##structure-instance-of?
                      _textual97300_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _textual97300_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-any__textual-any
                      _pred97299_
                      _textual97300_)))))
        (std/srfi/srfi-135/text#textual-any__textual-any
         _pred97299_
         _text97302_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text97302_)))))
  (define std/srfi/srfi-135/text#textual-any__1
    (lambda (_pred97305_ _textual97306_ _start97307_)
      (let* ((_text97309_
              (if (string? _textual97306_)
                  (std/srfi/srfi-135/kernel8#%string->text _textual97306_)
                  (if (##structure-instance-of?
                       _textual97306_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _textual97306_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-any__textual-any
                       _pred97305_
                       _textual97306_
                       _start97307_))))
             (_n97311_ (std/srfi/srfi-135/kernel8#%text-length _text97309_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97307_)
                 (<= '0 _start97307_ _n97311_))
            (std/srfi/srfi-135/text#textual-any__textual-any
             _pred97305_
             _text97309_
             _start97307_
             _n97311_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-any
             _pred97305_
             _textual97306_
             _start97307_)))))
  (define std/srfi/srfi-135/text#textual-any__2
    (lambda (_pred97315_ _textual97316_ _start97317_ _end97318_)
      (let* ((_text97320_
              (if (string? _textual97316_)
                  (std/srfi/srfi-135/kernel8#%string->text _textual97316_)
                  (if (##structure-instance-of?
                       _textual97316_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _textual97316_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-any__textual-any
                       _pred97315_
                       _textual97316_
                       _start97317_
                       _end97318_))))
             (_n97322_ (std/srfi/srfi-135/kernel8#%text-length _text97320_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97317_)
                 (std/srfi/srfi-135/etc#exact-integer? _end97318_)
                 (<= '0 _start97317_ _end97318_ _n97322_))
            (std/srfi/srfi-135/text#textual-any__textual-any
             _pred97315_
             _text97320_
             _start97317_
             _end97318_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-any
             _pred97315_
             _textual97316_
             _start97317_
             _end97318_)))))
  (define std/srfi/srfi-135/text#textual-any
    (lambda _g97373_
      (let ((_g97372_ (length _g97373_)))
        (cond ((##fx= _g97372_ 2)
               (apply std/srfi/srfi-135/text#textual-any__0 _g97373_))
              ((##fx= _g97372_ 3)
               (apply std/srfi/srfi-135/text#textual-any__1 _g97373_))
              ((##fx= _g97372_ 4)
               (apply std/srfi/srfi-135/text#textual-any__2 _g97373_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-any
                _g97373_))))))
  (define std/srfi/srfi-135/text#make-text
    (lambda (_n97280_ _c97281_)
      (std/srfi/srfi-135/kernel8#text-tabulate
       (lambda (_i97283_) _c97281_)
       _n97280_)))
  (define std/srfi/srfi-135/text#text
    (lambda _chars97278_
      (std/srfi/srfi-135/kernel8#%string->text (list->string _chars97278_))))
  (define std/srfi/srfi-135/text#text-unfold__0
    (lambda (_stop?97226_ _mapper97227_ _succ97228_ _seed97229_)
      (std/srfi/srfi-135/text#text-unfold__2
       _stop?97226_
       _mapper97227_
       _succ97228_
       _seed97229_
       (std/srfi/srfi-135/text#text)
       (lambda (_x97231_) (std/srfi/srfi-135/text#text)))))
  (define std/srfi/srfi-135/text#text-unfold__1
    (lambda (_stop?97233_ _mapper97234_ _succ97235_ _seed97236_ _base97237_)
      (std/srfi/srfi-135/text#text-unfold__2
       _stop?97233_
       _mapper97234_
       _succ97235_
       _seed97236_
       _base97237_
       (lambda (_x97239_) (std/srfi/srfi-135/text#text)))))
  (define std/srfi/srfi-135/text#text-unfold__2
    (lambda (_stop?97241_
             _mapper97242_
             _succ97243_
             _seed97244_
             _base97245_
             _make-final97246_)
      (let* ((_txt97248_
              (if (string? (if (char? _base97245_)
                               (std/srfi/srfi-135/text#text _base97245_)
                               _base97245_))
                  (std/srfi/srfi-135/kernel8#%string->text
                   (if (char? _base97245_)
                       (std/srfi/srfi-135/text#text _base97245_)
                       _base97245_))
                  (if (##structure-instance-of?
                       (if (char? _base97245_)
                           (std/srfi/srfi-135/text#text _base97245_)
                           _base97245_)
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      (if (char? _base97245_)
                          (std/srfi/srfi-135/text#text _base97245_)
                          _base97245_)
                      (std/srfi/srfi-135/kernel8#complain
                       'text-unfold
                       _stop?97241_
                       _mapper97242_
                       _succ97243_
                       _seed97244_
                       _base97245_
                       _make-final97246_))))
             (_k97250_ (std/srfi/srfi-135/kernel8#%text-length _txt97248_)))
        (let _loop97253_ ((_k97255_ _k97250_)
                          (_texts97256_ (list _txt97248_))
                          (_chars97257_ '())
                          (_seed97258_ _seed97244_))
          (if (>= _k97255_ std/srfi/srfi-135/kernel8#N)
              (let* ((_k/N97260_
                      (quotient _k97255_ std/srfi/srfi-135/kernel8#N))
                     (_k97262_
                      (- _k97255_ (* _k/N97260_ std/srfi/srfi-135/kernel8#N)))
                     (_texts97264_
                      (cons (std/srfi/srfi-135/text#reverse-list->text
                             (list-tail _chars97257_ _k97262_))
                            _texts97256_))
                     (_chars97266_
                      (std/srfi/srfi-135/etc#list-take _chars97257_ _k97262_)))
                (_loop97253_ _k97262_ _texts97264_ _chars97266_ _seed97258_))
              (if (_stop?97241_ _seed97258_)
                  (let* ((_texts97269_
                          (if (null? _chars97257_)
                              _texts97256_
                              (cons (std/srfi/srfi-135/text#reverse-list->text
                                     _chars97257_)
                                    _texts97256_)))
                         (_final97271_ (_make-final97246_ _seed97258_))
                         (_final97273_
                          (if (char? _final97271_)
                              (std/srfi/srfi-135/text#text _final97271_)
                              (if (string? _final97271_)
                                  (std/srfi/srfi-135/kernel8#%string->text
                                   _final97271_)
                                  (if (##structure-instance-of?
                                       _final97271_
                                       'std/srfi/srfi-135/kernel8#text-rtd)
                                      _final97271_
                                      (std/srfi/srfi-135/text#%bad-final
                                       'text-unfold
                                       _final97271_))))))
                    (std/srfi/srfi-135/text#textual-concatenate-reverse__1
                     _texts97269_
                     _final97273_))
                  (let ((_x97276_ (_mapper97242_ _seed97258_)))
                    (if (char? _x97276_)
                        (_loop97253_
                         (+ _k97255_ '1)
                         _texts97256_
                         (cons _x97276_ _chars97257_)
                         (_succ97243_ _seed97258_))
                        (if (string? _x97276_)
                            (_loop97253_
                             (+ _k97255_ (string-length _x97276_))
                             _texts97256_
                             (append (reverse (string->list _x97276_))
                                     _chars97257_)
                             (_succ97243_ _seed97258_))
                            (if (##structure-instance-of?
                                 _x97276_
                                 'std/srfi/srfi-135/kernel8#text-rtd)
                                (_loop97253_
                                 (+ _k97255_
                                    (std/srfi/srfi-135/kernel8#%text-length
                                     _x97276_))
                                 _texts97256_
                                 (append (reverse (std/srfi/srfi-135/text#textual->list__0
                                                   _x97276_))
                                         _chars97257_)
                                 (_succ97243_ _seed97258_))
                                (std/srfi/srfi-135/kernel8#complain
                                 'text-unfold
                                 _stop?97241_
                                 _mapper97242_
                                 _succ97243_
                                 _seed97258_
                                 _base97245_
                                 _make-final97246_)))))))))))
  (define std/srfi/srfi-135/text#text-unfold
    (lambda _g97375_
      (let ((_g97374_ (length _g97375_)))
        (cond ((##fx= _g97374_ 4)
               (apply std/srfi/srfi-135/text#text-unfold__0 _g97375_))
              ((##fx= _g97374_ 5)
               (apply std/srfi/srfi-135/text#text-unfold__1 _g97375_))
              ((##fx= _g97374_ 6)
               (apply std/srfi/srfi-135/text#text-unfold__2 _g97375_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#text-unfold
                _g97375_))))))
  (define std/srfi/srfi-135/text#text-unfold-right__0
    (lambda (_stop?97174_ _mapper97175_ _succ97176_ _seed97177_)
      (std/srfi/srfi-135/text#text-unfold-right__2
       _stop?97174_
       _mapper97175_
       _succ97176_
       _seed97177_
       (std/srfi/srfi-135/text#text)
       (lambda (_x97179_) (std/srfi/srfi-135/text#text)))))
  (define std/srfi/srfi-135/text#text-unfold-right__1
    (lambda (_stop?97181_ _mapper97182_ _succ97183_ _seed97184_ _base97185_)
      (std/srfi/srfi-135/text#text-unfold-right__2
       _stop?97181_
       _mapper97182_
       _succ97183_
       _seed97184_
       _base97185_
       (lambda (_x97187_) (std/srfi/srfi-135/text#text)))))
  (define std/srfi/srfi-135/text#text-unfold-right__2
    (lambda (_stop?97189_
             _mapper97190_
             _succ97191_
             _seed97192_
             _base97193_
             _make-final97194_)
      (let* ((_txt97196_
              (if (string? (if (char? _base97193_)
                               (std/srfi/srfi-135/text#text _base97193_)
                               _base97193_))
                  (std/srfi/srfi-135/kernel8#%string->text
                   (if (char? _base97193_)
                       (std/srfi/srfi-135/text#text _base97193_)
                       _base97193_))
                  (if (##structure-instance-of?
                       (if (char? _base97193_)
                           (std/srfi/srfi-135/text#text _base97193_)
                           _base97193_)
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      (if (char? _base97193_)
                          (std/srfi/srfi-135/text#text _base97193_)
                          _base97193_)
                      (std/srfi/srfi-135/kernel8#complain
                       'text-unfold-right
                       _stop?97189_
                       _mapper97190_
                       _succ97191_
                       _seed97192_
                       _base97193_
                       _make-final97194_))))
             (_k97198_ (std/srfi/srfi-135/kernel8#%text-length _txt97196_)))
        (let _loop97201_ ((_k97203_ _k97198_)
                          (_texts97204_ (list _txt97196_))
                          (_chars97205_ '())
                          (_seed97206_ _seed97192_))
          (if (>= _k97203_ std/srfi/srfi-135/kernel8#N)
              (let* ((_k/N97208_
                      (quotient _k97203_ std/srfi/srfi-135/kernel8#N))
                     (_k97210_
                      (- _k97203_ (* _k/N97208_ std/srfi/srfi-135/kernel8#N)))
                     (_texts97212_
                      (cons (std/srfi/srfi-135/text#list->text
                             (list-tail _chars97205_ _k97210_))
                            _texts97204_))
                     (_chars97214_
                      (std/srfi/srfi-135/etc#list-take _chars97205_ _k97210_)))
                (_loop97201_ _k97210_ _texts97212_ _chars97214_ _seed97206_))
              (if (_stop?97189_ _seed97206_)
                  (let* ((_texts97217_
                          (if (null? _chars97205_)
                              _texts97204_
                              (cons (std/srfi/srfi-135/text#list->text
                                     _chars97205_)
                                    _texts97204_)))
                         (_final97219_ (_make-final97194_ _seed97206_))
                         (_final97221_
                          (if (char? _final97219_)
                              (std/srfi/srfi-135/text#text _final97219_)
                              (if (string? _final97219_)
                                  (std/srfi/srfi-135/kernel8#%string->text
                                   _final97219_)
                                  (if (##structure-instance-of?
                                       _final97219_
                                       'std/srfi/srfi-135/kernel8#text-rtd)
                                      _final97219_
                                      (std/srfi/srfi-135/text#%bad-final
                                       'text-unfold-right
                                       _final97219_))))))
                    (std/srfi/srfi-135/kernel8#textual-concatenate
                     (cons _final97221_ _texts97217_)))
                  (let ((_x97224_ (_mapper97190_ _seed97206_)))
                    (if (char? _x97224_)
                        (_loop97201_
                         (+ _k97203_ '1)
                         _texts97204_
                         (cons _x97224_ _chars97205_)
                         (_succ97191_ _seed97206_))
                        (if (string? _x97224_)
                            (_loop97201_
                             (+ _k97203_ (string-length _x97224_))
                             _texts97204_
                             (append (string->list _x97224_) _chars97205_)
                             (_succ97191_ _seed97206_))
                            (if (##structure-instance-of?
                                 _x97224_
                                 'std/srfi/srfi-135/kernel8#text-rtd)
                                (_loop97201_
                                 (+ _k97203_
                                    (std/srfi/srfi-135/kernel8#%text-length
                                     _x97224_))
                                 _texts97204_
                                 (append (std/srfi/srfi-135/text#textual->list__0
                                          _x97224_)
                                         _chars97205_)
                                 (_succ97191_ _seed97206_))
                                (std/srfi/srfi-135/kernel8#complain
                                 'text-unfold-right
                                 _stop?97189_
                                 _mapper97190_
                                 _succ97191_
                                 _seed97206_
                                 _base97193_
                                 _make-final97194_)))))))))))
  (define std/srfi/srfi-135/text#text-unfold-right
    (lambda _g97377_
      (let ((_g97376_ (length _g97377_)))
        (cond ((##fx= _g97376_ 4)
               (apply std/srfi/srfi-135/text#text-unfold-right__0 _g97377_))
              ((##fx= _g97376_ 5)
               (apply std/srfi/srfi-135/text#text-unfold-right__1 _g97377_))
              ((##fx= _g97376_ 6)
               (apply std/srfi/srfi-135/text#text-unfold-right__2 _g97377_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#text-unfold-right
                _g97377_))))))
  (define std/srfi/srfi-135/text#%bad-final
    (lambda (_name97171_ _final97172_)
      (error (string-append
              (symbol->string _name97171_)
              '" : make-final returned illegal value : ")
             _final97172_)))
  (define std/srfi/srfi-135/text#textual->text
    (lambda (_x97168_ . _rest97169_)
      (if (string? _x97168_)
          (std/srfi/srfi-135/kernel8#%string->text _x97168_)
          (if (##structure-instance-of?
               _x97168_
               'std/srfi/srfi-135/kernel8#text-rtd)
              _x97168_
              (if (null? _rest97169_)
                  (error '"illegal argument passed to textual->text : "
                         _x97168_)
                  (apply error _rest97169_))))))
  (define std/srfi/srfi-135/text#textual->string__0
    (lambda (_txt97147_)
      (if (string? _txt97147_)
          _txt97147_
          (std/srfi/srfi-135/text#textual->string__2
           _txt97147_
           '0
           (std/srfi/srfi-135/text#textual-length _txt97147_)))))
  (define std/srfi/srfi-135/text#textual->string__1
    (lambda (_txt97149_ _start97150_)
      (if (string? _txt97149_)
          (substring _txt97149_ _start97150_ (string-length _txt97149_))
          (std/srfi/srfi-135/text#textual->string__2
           _txt97149_
           _start97150_
           (std/srfi/srfi-135/text#textual-length _txt97149_)))))
  (define std/srfi/srfi-135/text#textual->string__2
    (lambda (_txt97152_ _start97153_ _end97154_)
      (let* ((_txt97156_
              (if (string? _txt97152_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97152_)
                  (if (##structure-instance-of?
                       _txt97152_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97152_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual->string
                       _txt97152_
                       _start97153_
                       _end97154_))))
             (_n97158_ (- _end97154_ _start97153_))
             (_s97160_ (make-string _n97158_)))
        (let _$loop97163_ ((_i97166_ _start97153_))
          (if (= _i97166_ _end97154_)
              _s97160_
              (begin
                (string-set!
                 _s97160_
                 (- _i97166_ _start97153_)
                 (std/srfi/srfi-135/kernel8#%text-ref _txt97156_ _i97166_))
                (_$loop97163_ (+ _i97166_ '1))))))))
  (define std/srfi/srfi-135/text#textual->string
    (lambda _g97379_
      (let ((_g97378_ (length _g97379_)))
        (cond ((##fx= _g97378_ 1)
               (apply std/srfi/srfi-135/text#textual->string__0 _g97379_))
              ((##fx= _g97378_ 2)
               (apply std/srfi/srfi-135/text#textual->string__1 _g97379_))
              ((##fx= _g97378_ 3)
               (apply std/srfi/srfi-135/text#textual->string__2 _g97379_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual->string
                _g97379_))))))
  (define std/srfi/srfi-135/text#textual->vector__textual->vector
    (lambda (_txt97118_ _start97119_ _end97120_)
      (list->vector
       (string->list
        (std/srfi/srfi-135/text#textual->string__0
         (std/srfi/srfi-135/kernel8#subtext
          _txt97118_
          _start97119_
          _end97120_))))))
  (define std/srfi/srfi-135/text#textual->vector__0
    (lambda (_txt97124_)
      (let ((_text97126_
             (if (string? _txt97124_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt97124_)
                 (if (##structure-instance-of?
                      _txt97124_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt97124_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual->vector__textual->vector
                      _txt97124_)))))
        (std/srfi/srfi-135/text#textual->vector__textual->vector
         _text97126_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text97126_)))))
  (define std/srfi/srfi-135/text#textual->vector__1
    (lambda (_txt97129_ _start97130_)
      (let* ((_text97132_
              (if (string? _txt97129_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97129_)
                  (if (##structure-instance-of?
                       _txt97129_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97129_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual->vector__textual->vector
                       _txt97129_
                       _start97130_))))
             (_n97134_ (std/srfi/srfi-135/kernel8#%text-length _text97132_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97130_)
                 (<= '0 _start97130_ _n97134_))
            (std/srfi/srfi-135/text#textual->vector__textual->vector
             _text97132_
             _start97130_
             _n97134_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->vector
             _txt97129_
             _start97130_)))))
  (define std/srfi/srfi-135/text#textual->vector__2
    (lambda (_txt97138_ _start97139_ _end97140_)
      (let* ((_text97142_
              (if (string? _txt97138_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97138_)
                  (if (##structure-instance-of?
                       _txt97138_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97138_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual->vector__textual->vector
                       _txt97138_
                       _start97139_
                       _end97140_))))
             (_n97144_ (std/srfi/srfi-135/kernel8#%text-length _text97142_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97139_)
                 (std/srfi/srfi-135/etc#exact-integer? _end97140_)
                 (<= '0 _start97139_ _end97140_ _n97144_))
            (std/srfi/srfi-135/text#textual->vector__textual->vector
             _text97142_
             _start97139_
             _end97140_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->vector
             _txt97138_
             _start97139_
             _end97140_)))))
  (define std/srfi/srfi-135/text#textual->vector
    (lambda _g97381_
      (let ((_g97380_ (length _g97381_)))
        (cond ((##fx= _g97380_ 1)
               (apply std/srfi/srfi-135/text#textual->vector__0 _g97381_))
              ((##fx= _g97380_ 2)
               (apply std/srfi/srfi-135/text#textual->vector__1 _g97381_))
              ((##fx= _g97380_ 3)
               (apply std/srfi/srfi-135/text#textual->vector__2 _g97381_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual->vector
                _g97381_))))))
  (define std/srfi/srfi-135/text#textual->list__textual->list
    (lambda (_txt97089_ _start97090_ _end97091_)
      (string->list
       (std/srfi/srfi-135/text#textual->string__0
        (std/srfi/srfi-135/kernel8#subtext
         _txt97089_
         _start97090_
         _end97091_)))))
  (define std/srfi/srfi-135/text#textual->list__0
    (lambda (_txt97095_)
      (let ((_text97097_
             (if (string? _txt97095_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt97095_)
                 (if (##structure-instance-of?
                      _txt97095_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt97095_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual->list__textual->list
                      _txt97095_)))))
        (std/srfi/srfi-135/text#textual->list__textual->list
         _text97097_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text97097_)))))
  (define std/srfi/srfi-135/text#textual->list__1
    (lambda (_txt97100_ _start97101_)
      (let* ((_text97103_
              (if (string? _txt97100_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97100_)
                  (if (##structure-instance-of?
                       _txt97100_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97100_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual->list__textual->list
                       _txt97100_
                       _start97101_))))
             (_n97105_ (std/srfi/srfi-135/kernel8#%text-length _text97103_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97101_)
                 (<= '0 _start97101_ _n97105_))
            (std/srfi/srfi-135/text#textual->list__textual->list
             _text97103_
             _start97101_
             _n97105_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->list
             _txt97100_
             _start97101_)))))
  (define std/srfi/srfi-135/text#textual->list__2
    (lambda (_txt97109_ _start97110_ _end97111_)
      (let* ((_text97113_
              (if (string? _txt97109_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97109_)
                  (if (##structure-instance-of?
                       _txt97109_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97109_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual->list__textual->list
                       _txt97109_
                       _start97110_
                       _end97111_))))
             (_n97115_ (std/srfi/srfi-135/kernel8#%text-length _text97113_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97110_)
                 (std/srfi/srfi-135/etc#exact-integer? _end97111_)
                 (<= '0 _start97110_ _end97111_ _n97115_))
            (std/srfi/srfi-135/text#textual->list__textual->list
             _text97113_
             _start97110_
             _end97111_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->list
             _txt97109_
             _start97110_
             _end97111_)))))
  (define std/srfi/srfi-135/text#textual->list
    (lambda _g97383_
      (let ((_g97382_ (length _g97383_)))
        (cond ((##fx= _g97382_ 1)
               (apply std/srfi/srfi-135/text#textual->list__0 _g97383_))
              ((##fx= _g97382_ 2)
               (apply std/srfi/srfi-135/text#textual->list__1 _g97383_))
              ((##fx= _g97382_ 3)
               (apply std/srfi/srfi-135/text#textual->list__2 _g97383_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual->list
                _g97383_))))))
  (define std/srfi/srfi-135/text#vector->text
    (lambda (_v97086_ . _start/end97087_)
      (std/srfi/srfi-135/kernel8#%string->text
       (list->string (apply vector->list _v97086_ _start/end97087_)))))
  (define std/srfi/srfi-135/text#list->text
    (lambda (_chars97083_ . _start/end97084_)
      (apply std/srfi/srfi-135/macros#string->text
             (list->string _chars97083_)
             _start/end97084_)))
  (define std/srfi/srfi-135/text#reverse-list->text
    (lambda (_chars97081_)
      (std/srfi/srfi-135/kernel8#%string->text
       (list->string (reverse _chars97081_)))))
  (define std/srfi/srfi-135/text#textual-length
    (lambda (_txt97079_)
      (if (string? _txt97079_)
          (string-length _txt97079_)
          (if (##structure-instance-of?
               _txt97079_
               'std/srfi/srfi-135/kernel8#text-rtd)
              (std/srfi/srfi-135/kernel8#%text-length _txt97079_)
              (std/srfi/srfi-135/kernel8#complain
               'textual-length
               _txt97079_)))))
  (define std/srfi/srfi-135/text#textual-ref
    (lambda (_txt97076_ _i97077_)
      (if (string? _txt97076_)
          (string-ref _txt97076_ _i97077_)
          (if (##structure-instance-of?
               _txt97076_
               'std/srfi/srfi-135/kernel8#text-rtd)
              (std/srfi/srfi-135/kernel8#%text-ref _txt97076_ _i97077_)
              (std/srfi/srfi-135/kernel8#complain 'textual-ref _txt97076_)))))
  (define std/srfi/srfi-135/text#subtextual
    (lambda (_txt97070_ _start97071_ _end97072_)
      (let ((_txt97074_
             (if (string? _txt97070_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt97070_)
                 (if (##structure-instance-of?
                      _txt97070_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt97070_
                     (std/srfi/srfi-135/kernel8#complain
                      'subtextual
                      _txt97070_
                      _start97071_)))))
        (std/srfi/srfi-135/kernel8#subtext
         _txt97074_
         _start97071_
         _end97072_))))
  (define std/srfi/srfi-135/text#textual-copy__textual-copy
    (lambda (_text97041_ _start97042_ _end97043_)
      (std/srfi/srfi-135/kernel8#%string->text
       (std/srfi/srfi-135/text#textual->string__2
        _text97041_
        _start97042_
        _end97043_))))
  (define std/srfi/srfi-135/text#textual-copy__0
    (lambda (_text97047_)
      (let ((_text97049_
             (if (string? _text97047_)
                 (std/srfi/srfi-135/kernel8#%string->text _text97047_)
                 (if (##structure-instance-of?
                      _text97047_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _text97047_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-copy__textual-copy
                      _text97047_)))))
        (std/srfi/srfi-135/text#textual-copy__textual-copy
         _text97049_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text97049_)))))
  (define std/srfi/srfi-135/text#textual-copy__1
    (lambda (_text97052_ _start97053_)
      (let* ((_text97055_
              (if (string? _text97052_)
                  (std/srfi/srfi-135/kernel8#%string->text _text97052_)
                  (if (##structure-instance-of?
                       _text97052_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _text97052_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-copy__textual-copy
                       _text97052_
                       _start97053_))))
             (_n97057_ (std/srfi/srfi-135/kernel8#%text-length _text97055_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97053_)
                 (<= '0 _start97053_ _n97057_))
            (std/srfi/srfi-135/text#textual-copy__textual-copy
             _text97055_
             _start97053_
             _n97057_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-copy
             _text97052_
             _start97053_)))))
  (define std/srfi/srfi-135/text#textual-copy__2
    (lambda (_text97061_ _start97062_ _end97063_)
      (let* ((_text97065_
              (if (string? _text97061_)
                  (std/srfi/srfi-135/kernel8#%string->text _text97061_)
                  (if (##structure-instance-of?
                       _text97061_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _text97061_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-copy__textual-copy
                       _text97061_
                       _start97062_
                       _end97063_))))
             (_n97067_ (std/srfi/srfi-135/kernel8#%text-length _text97065_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97062_)
                 (std/srfi/srfi-135/etc#exact-integer? _end97063_)
                 (<= '0 _start97062_ _end97063_ _n97067_))
            (std/srfi/srfi-135/text#textual-copy__textual-copy
             _text97065_
             _start97062_
             _end97063_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-copy
             _text97061_
             _start97062_
             _end97063_)))))
  (define std/srfi/srfi-135/text#textual-copy
    (lambda _g97385_
      (let ((_g97384_ (length _g97385_)))
        (cond ((##fx= _g97384_ 1)
               (apply std/srfi/srfi-135/text#textual-copy__0 _g97385_))
              ((##fx= _g97384_ 2)
               (apply std/srfi/srfi-135/text#textual-copy__1 _g97385_))
              ((##fx= _g97384_ 3)
               (apply std/srfi/srfi-135/text#textual-copy__2 _g97385_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-copy
                _g97385_))))))
  (define std/srfi/srfi-135/text#textual-take
    (lambda (_txt97036_ _nchars97037_)
      (let ((_txt97039_
             (if (string? _txt97036_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt97036_)
                 (if (##structure-instance-of?
                      _txt97036_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt97036_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-take
                      _txt97036_
                      _nchars97037_)))))
        (std/srfi/srfi-135/text#subtextual _txt97039_ '0 _nchars97037_))))
  (define std/srfi/srfi-135/text#textual-drop
    (lambda (_txt97031_ _nchars97032_)
      (let ((_txt97034_
             (if (string? _txt97031_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt97031_)
                 (if (##structure-instance-of?
                      _txt97031_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt97031_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-drop
                      _txt97031_
                      _nchars97032_)))))
        (std/srfi/srfi-135/text#subtextual
         _txt97034_
         _nchars97032_
         (std/srfi/srfi-135/kernel8#%text-length _txt97034_)))))
  (define std/srfi/srfi-135/text#textual-take-right
    (lambda (_txt97024_ _nchars97025_)
      (let* ((_txt97027_
              (if (string? _txt97024_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97024_)
                  (if (##structure-instance-of?
                       _txt97024_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97024_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-take-right
                       _txt97024_
                       _nchars97025_))))
             (_n97029_ (std/srfi/srfi-135/kernel8#%text-length _txt97027_)))
        (std/srfi/srfi-135/text#subtextual
         _txt97027_
         (- _n97029_ _nchars97025_)
         _n97029_))))
  (define std/srfi/srfi-135/text#textual-drop-right
    (lambda (_txt97017_ _nchars97018_)
      (let* ((_txt97020_
              (if (string? _txt97017_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97017_)
                  (if (##structure-instance-of?
                       _txt97017_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97017_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-drop-right
                       _txt97017_
                       _nchars97018_))))
             (_n97022_ (std/srfi/srfi-135/kernel8#%text-length _txt97020_)))
        (std/srfi/srfi-135/text#subtextual
         _txt97020_
         '0
         (- _n97022_ _nchars97018_)))))
  (define std/srfi/srfi-135/text#textual-pad__0
    (lambda (_txt96993_ _len96994_)
      (let ((_txt96996_
             (if (string? _txt96993_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96993_)
                 (if (##structure-instance-of?
                      _txt96993_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96993_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad
                      _txt96993_
                      _len96994_)))))
        (std/srfi/srfi-135/text#%text-pad
         _txt96996_
         _len96994_
         '#\space
         '0
         (std/srfi/srfi-135/kernel8#%text-length _txt96996_)))))
  (define std/srfi/srfi-135/text#textual-pad__1
    (lambda (_txt96998_ _len96999_ _c97000_)
      (let ((_txt97002_
             (if (string? _txt96998_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96998_)
                 (if (##structure-instance-of?
                      _txt96998_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96998_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad
                      _txt96998_
                      _len96999_
                      _c97000_)))))
        (std/srfi/srfi-135/text#%text-pad
         _txt97002_
         _len96999_
         _c97000_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _txt97002_)))))
  (define std/srfi/srfi-135/text#textual-pad__2
    (lambda (_txt97004_ _len97005_ _c97006_ _start97007_)
      (let ((_txt97009_
             (if (string? _txt97004_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt97004_)
                 (if (##structure-instance-of?
                      _txt97004_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt97004_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad
                      _txt97004_
                      _len97005_
                      _c97006_
                      _start97007_)))))
        (std/srfi/srfi-135/text#%text-pad
         _txt97009_
         _len97005_
         _c97006_
         _start97007_
         (std/srfi/srfi-135/kernel8#%text-length _txt97009_)))))
  (define std/srfi/srfi-135/text#textual-pad__3
    (lambda (_txt97011_ _len97012_ _c97013_ _start97014_ _end97015_)
      (std/srfi/srfi-135/text#%text-pad
       (if (string? _txt97011_)
           (std/srfi/srfi-135/kernel8#%string->text _txt97011_)
           (if (##structure-instance-of?
                _txt97011_
                'std/srfi/srfi-135/kernel8#text-rtd)
               _txt97011_
               (std/srfi/srfi-135/kernel8#complain
                'textual-pad
                _txt97011_
                _len97012_
                _c97013_
                _start97014_
                _end97015_)))
       _len97012_
       _c97013_
       _start97014_
       _end97015_)))
  (define std/srfi/srfi-135/text#textual-pad
    (lambda _g97387_
      (let ((_g97386_ (length _g97387_)))
        (cond ((##fx= _g97386_ 2)
               (apply std/srfi/srfi-135/text#textual-pad__0 _g97387_))
              ((##fx= _g97386_ 3)
               (apply std/srfi/srfi-135/text#textual-pad__1 _g97387_))
              ((##fx= _g97386_ 4)
               (apply std/srfi/srfi-135/text#textual-pad__2 _g97387_))
              ((##fx= _g97386_ 5)
               (apply std/srfi/srfi-135/text#textual-pad__3 _g97387_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-pad
                _g97387_))))))
  (define std/srfi/srfi-135/text#%text-pad
    (lambda (_txt96982_ _len96983_ _c96984_ _start96985_ _end96986_)
      (if (and (std/srfi/srfi-135/etc#exact-integer? _len96983_)
               (char? _c96984_)
               (std/srfi/srfi-135/etc#exact-integer? _start96985_)
               (std/srfi/srfi-135/etc#exact-integer? _end96986_)
               (<= '0 _len96983_)
               (<= '0 _start96985_ _end96986_))
          (let* ((_n96988_ (std/srfi/srfi-135/kernel8#%text-length _txt96982_))
                 (_k96990_ (- _end96986_ _start96985_)))
            (if (not (<= _end96986_ _n96988_))
                (std/srfi/srfi-135/kernel8#complain
                 'textual-pad
                 _txt96982_
                 _len96983_
                 _c96984_
                 _start96985_
                 _end96986_)
                (if (= _n96988_ _k96990_ _len96983_)
                    _txt96982_
                    (if (= _k96990_ _len96983_)
                        (if (= _n96988_ _k96990_)
                            _txt96982_
                            (std/srfi/srfi-135/kernel8#subtext
                             _txt96982_
                             _start96985_
                             _end96986_))
                        (if (< _k96990_ _len96983_)
                            (std/srfi/srfi-135/text#textual-append
                             (std/srfi/srfi-135/text#make-text
                              (- _len96983_ _k96990_)
                              _c96984_)
                             (if (= _n96988_ _k96990_)
                                 _txt96982_
                                 (std/srfi/srfi-135/kernel8#subtext
                                  _txt96982_
                                  _start96985_
                                  _end96986_)))
                            (std/srfi/srfi-135/kernel8#subtext
                             _txt96982_
                             (- _end96986_ _len96983_)
                             _end96986_))))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-pad
           _txt96982_
           _len96983_
           _c96984_
           _start96985_
           _end96986_))))
  (define std/srfi/srfi-135/text#textual-pad-right__0
    (lambda (_txt96958_ _len96959_)
      (let ((_txt96961_
             (if (string? _txt96958_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96958_)
                 (if (##structure-instance-of?
                      _txt96958_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96958_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad-right
                      _txt96958_
                      _len96959_)))))
        (std/srfi/srfi-135/text#%text-pad-right
         _txt96961_
         _len96959_
         '#\space
         '0
         (std/srfi/srfi-135/kernel8#%text-length _txt96961_)))))
  (define std/srfi/srfi-135/text#textual-pad-right__1
    (lambda (_txt96963_ _len96964_ _c96965_)
      (let ((_txt96967_
             (if (string? _txt96963_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96963_)
                 (if (##structure-instance-of?
                      _txt96963_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96963_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad-right
                      _txt96963_
                      _len96964_
                      _c96965_)))))
        (std/srfi/srfi-135/text#%text-pad-right
         _txt96967_
         _len96964_
         _c96965_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _txt96967_)))))
  (define std/srfi/srfi-135/text#textual-pad-right__2
    (lambda (_txt96969_ _len96970_ _c96971_ _start96972_)
      (let ((_txt96974_
             (if (string? _txt96969_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96969_)
                 (if (##structure-instance-of?
                      _txt96969_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96969_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad-right
                      _txt96969_
                      _len96970_
                      _c96971_
                      _start96972_)))))
        (std/srfi/srfi-135/text#%text-pad-right
         _txt96974_
         _len96970_
         _c96971_
         _start96972_
         (std/srfi/srfi-135/kernel8#%text-length _txt96974_)))))
  (define std/srfi/srfi-135/text#textual-pad-right__3
    (lambda (_txt96976_ _len96977_ _c96978_ _start96979_ _end96980_)
      (std/srfi/srfi-135/text#%text-pad-right
       (if (string? _txt96976_)
           (std/srfi/srfi-135/kernel8#%string->text _txt96976_)
           (if (##structure-instance-of?
                _txt96976_
                'std/srfi/srfi-135/kernel8#text-rtd)
               _txt96976_
               (std/srfi/srfi-135/kernel8#complain
                'textual-pad-right
                _txt96976_
                _len96977_
                _c96978_
                _start96979_
                _end96980_)))
       _len96977_
       _c96978_
       _start96979_
       _end96980_)))
  (define std/srfi/srfi-135/text#textual-pad-right
    (lambda _g97389_
      (let ((_g97388_ (length _g97389_)))
        (cond ((##fx= _g97388_ 2)
               (apply std/srfi/srfi-135/text#textual-pad-right__0 _g97389_))
              ((##fx= _g97388_ 3)
               (apply std/srfi/srfi-135/text#textual-pad-right__1 _g97389_))
              ((##fx= _g97388_ 4)
               (apply std/srfi/srfi-135/text#textual-pad-right__2 _g97389_))
              ((##fx= _g97388_ 5)
               (apply std/srfi/srfi-135/text#textual-pad-right__3 _g97389_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-pad-right
                _g97389_))))))
  (define std/srfi/srfi-135/text#%text-pad-right
    (lambda (_txt96947_ _len96948_ _c96949_ _start96950_ _end96951_)
      (if (and (std/srfi/srfi-135/etc#exact-integer? _len96948_)
               (char? _c96949_)
               (std/srfi/srfi-135/etc#exact-integer? _start96950_)
               (std/srfi/srfi-135/etc#exact-integer? _end96951_)
               (<= '0 _len96948_)
               (<= '0 _start96950_ _end96951_))
          (let* ((_n96953_ (std/srfi/srfi-135/kernel8#%text-length _txt96947_))
                 (_k96955_ (- _end96951_ _start96950_)))
            (if (not (<= _end96951_ _n96953_))
                (std/srfi/srfi-135/kernel8#complain
                 'textual-pad-right
                 _txt96947_
                 _len96948_
                 _c96949_
                 _start96950_
                 _end96951_)
                (if (= _n96953_ _k96955_ _len96948_)
                    _txt96947_
                    (if (= _k96955_ _len96948_)
                        (if (= _n96953_ _k96955_)
                            _txt96947_
                            (std/srfi/srfi-135/kernel8#subtext
                             _txt96947_
                             _start96950_
                             _end96951_))
                        (if (< _k96955_ _len96948_)
                            (std/srfi/srfi-135/text#textual-append
                             (if (= _n96953_ _k96955_)
                                 _txt96947_
                                 (std/srfi/srfi-135/kernel8#subtext
                                  _txt96947_
                                  _start96950_
                                  _end96951_))
                             (std/srfi/srfi-135/text#make-text
                              (- _len96948_ _k96955_)
                              _c96949_))
                            (std/srfi/srfi-135/kernel8#subtext
                             _txt96947_
                             _start96950_
                             (+ _start96950_ _len96948_)))))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-pad-right
           _txt96947_
           _len96948_
           _c96949_
           _start96950_
           _end96951_))))
  (define std/srfi/srfi-135/text#textual-trim__0
    (lambda (_txt96929_)
      (std/srfi/srfi-135/text#textual-trim__2 _txt96929_ char-whitespace? '0)))
  (define std/srfi/srfi-135/text#textual-trim__1
    (lambda (_txt96931_ _pred96932_)
      (std/srfi/srfi-135/text#textual-trim__2 _txt96931_ _pred96932_ '0)))
  (define std/srfi/srfi-135/text#textual-trim__2
    (lambda (_txt96934_ _pred96935_ _start96936_)
      (let ((_txt96938_
             (if (string? _txt96934_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96934_)
                 (if (##structure-instance-of?
                      _txt96934_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96934_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim
                      _txt96934_
                      _pred96935_
                      _start96936_)))))
        (std/srfi/srfi-135/text#%text-trim
         _txt96938_
         _pred96935_
         _start96936_
         (std/srfi/srfi-135/kernel8#%text-length _txt96938_)))))
  (define std/srfi/srfi-135/text#textual-trim__3
    (lambda (_txt96940_ _pred96941_ _start96942_ _end96943_)
      (let ((_txt96945_
             (if (string? _txt96940_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96940_)
                 (if (##structure-instance-of?
                      _txt96940_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96940_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim
                      _txt96940_
                      _pred96941_
                      _start96942_
                      _end96943_)))))
        (std/srfi/srfi-135/text#%text-trim
         _txt96945_
         _pred96941_
         _start96942_
         _end96943_))))
  (define std/srfi/srfi-135/text#textual-trim
    (lambda _g97391_
      (let ((_g97390_ (length _g97391_)))
        (cond ((##fx= _g97390_ 1)
               (apply std/srfi/srfi-135/text#textual-trim__0 _g97391_))
              ((##fx= _g97390_ 2)
               (apply std/srfi/srfi-135/text#textual-trim__1 _g97391_))
              ((##fx= _g97390_ 3)
               (apply std/srfi/srfi-135/text#textual-trim__2 _g97391_))
              ((##fx= _g97390_ 4)
               (apply std/srfi/srfi-135/text#textual-trim__3 _g97391_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-trim
                _g97391_))))))
  (define std/srfi/srfi-135/text#%text-trim
    (lambda (_txt96920_ _pred96921_ _start96922_ _end96923_)
      (if (and (procedure? _pred96921_)
               (std/srfi/srfi-135/etc#exact-integer? _start96922_)
               (std/srfi/srfi-135/etc#exact-integer? _end96923_)
               (<= '0
                   _start96922_
                   _end96923_
                   (std/srfi/srfi-135/kernel8#%text-length _txt96920_)))
          (let _loop96925_ ((_i96927_ _start96922_))
            (if (= _i96927_ _end96923_)
                (std/srfi/srfi-135/text#text)
                (if (_pred96921_
                     (std/srfi/srfi-135/kernel8#%text-ref _txt96920_ _i96927_))
                    (_loop96925_ (+ _i96927_ '1))
                    (std/srfi/srfi-135/kernel8#subtext
                     _txt96920_
                     _i96927_
                     _end96923_))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-trim
           _txt96920_
           _pred96921_
           _start96922_
           _end96923_))))
  (define std/srfi/srfi-135/text#textual-trim-right__0
    (lambda (_txt96902_)
      (std/srfi/srfi-135/text#textual-trim-right__2
       _txt96902_
       char-whitespace?
       '0)))
  (define std/srfi/srfi-135/text#textual-trim-right__1
    (lambda (_txt96904_ _pred96905_)
      (std/srfi/srfi-135/text#textual-trim-right__2
       _txt96904_
       _pred96905_
       '0)))
  (define std/srfi/srfi-135/text#textual-trim-right__2
    (lambda (_txt96907_ _pred96908_ _start96909_)
      (let ((_txt96911_
             (if (string? _txt96907_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96907_)
                 (if (##structure-instance-of?
                      _txt96907_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96907_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim-right
                      _txt96907_
                      _pred96908_
                      _start96909_)))))
        (std/srfi/srfi-135/text#%text-trim-right
         _txt96911_
         _pred96908_
         _start96909_
         (std/srfi/srfi-135/kernel8#%text-length _txt96911_)))))
  (define std/srfi/srfi-135/text#textual-trim-right__3
    (lambda (_txt96913_ _pred96914_ _start96915_ _end96916_)
      (let ((_txt96918_
             (if (string? _txt96913_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96913_)
                 (if (##structure-instance-of?
                      _txt96913_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96913_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim-right
                      _txt96913_
                      _pred96914_
                      _start96915_
                      _end96916_)))))
        (std/srfi/srfi-135/text#%text-trim-right
         _txt96918_
         _pred96914_
         _start96915_
         _end96916_))))
  (define std/srfi/srfi-135/text#textual-trim-right
    (lambda _g97393_
      (let ((_g97392_ (length _g97393_)))
        (cond ((##fx= _g97392_ 1)
               (apply std/srfi/srfi-135/text#textual-trim-right__0 _g97393_))
              ((##fx= _g97392_ 2)
               (apply std/srfi/srfi-135/text#textual-trim-right__1 _g97393_))
              ((##fx= _g97392_ 3)
               (apply std/srfi/srfi-135/text#textual-trim-right__2 _g97393_))
              ((##fx= _g97392_ 4)
               (apply std/srfi/srfi-135/text#textual-trim-right__3 _g97393_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-trim-right
                _g97393_))))))
  (define std/srfi/srfi-135/text#%text-trim-right
    (lambda (_txt96893_ _pred96894_ _start96895_ _end96896_)
      (if (and (procedure? _pred96894_)
               (std/srfi/srfi-135/etc#exact-integer? _start96895_)
               (std/srfi/srfi-135/etc#exact-integer? _end96896_)
               (<= '0
                   _start96895_
                   _end96896_
                   (std/srfi/srfi-135/kernel8#%text-length _txt96893_)))
          (let _loop96898_ ((_i96900_ (- _end96896_ '1)))
            (if (< _i96900_ _start96895_)
                (std/srfi/srfi-135/text#text)
                (if (_pred96894_
                     (std/srfi/srfi-135/kernel8#%text-ref _txt96893_ _i96900_))
                    (_loop96898_ (- _i96900_ '1))
                    (std/srfi/srfi-135/kernel8#subtext
                     _txt96893_
                     _start96895_
                     (+ _i96900_ '1)))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-trim-right
           _txt96893_
           _pred96894_
           _start96895_
           _end96896_))))
  (define std/srfi/srfi-135/text#textual-trim-both__0
    (lambda (_txt96875_)
      (std/srfi/srfi-135/text#textual-trim-both__2
       _txt96875_
       char-whitespace?
       '0)))
  (define std/srfi/srfi-135/text#textual-trim-both__1
    (lambda (_txt96877_ _pred96878_)
      (std/srfi/srfi-135/text#textual-trim-both__2 _txt96877_ _pred96878_ '0)))
  (define std/srfi/srfi-135/text#textual-trim-both__2
    (lambda (_txt96880_ _pred96881_ _start96882_)
      (let ((_txt96884_
             (if (string? _txt96880_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96880_)
                 (if (##structure-instance-of?
                      _txt96880_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96880_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim-both
                      _txt96880_
                      _pred96881_
                      _start96882_)))))
        (std/srfi/srfi-135/text#%text-trim-both
         _txt96884_
         _pred96881_
         _start96882_
         (std/srfi/srfi-135/kernel8#%text-length _txt96884_)))))
  (define std/srfi/srfi-135/text#textual-trim-both__3
    (lambda (_txt96886_ _pred96887_ _start96888_ _end96889_)
      (let ((_txt96891_
             (if (string? _txt96886_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96886_)
                 (if (##structure-instance-of?
                      _txt96886_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96886_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim-both
                      _txt96886_
                      _pred96887_
                      _start96888_
                      _end96889_)))))
        (std/srfi/srfi-135/text#%text-trim-both
         _txt96891_
         _pred96887_
         _start96888_
         _end96889_))))
  (define std/srfi/srfi-135/text#textual-trim-both
    (lambda _g97395_
      (let ((_g97394_ (length _g97395_)))
        (cond ((##fx= _g97394_ 1)
               (apply std/srfi/srfi-135/text#textual-trim-both__0 _g97395_))
              ((##fx= _g97394_ 2)
               (apply std/srfi/srfi-135/text#textual-trim-both__1 _g97395_))
              ((##fx= _g97394_ 3)
               (apply std/srfi/srfi-135/text#textual-trim-both__2 _g97395_))
              ((##fx= _g97394_ 4)
               (apply std/srfi/srfi-135/text#textual-trim-both__3 _g97395_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-trim-both
                _g97395_))))))
  (define std/srfi/srfi-135/text#%text-trim-both
    (lambda (_txt96870_ _pred96871_ _start96872_ _end96873_)
      (if (and (procedure? _pred96871_)
               (std/srfi/srfi-135/etc#exact-integer? _start96872_)
               (std/srfi/srfi-135/etc#exact-integer? _end96873_)
               (<= '0
                   _start96872_
                   _end96873_
                   (std/srfi/srfi-135/kernel8#%text-length _txt96870_)))
          (std/srfi/srfi-135/text#textual-trim__1
           (std/srfi/srfi-135/text#textual-trim-right__3
            _txt96870_
            _pred96871_
            _start96872_
            _end96873_)
           _pred96871_)
          (std/srfi/srfi-135/kernel8#complain
           'textual-trim-both
           _txt96870_
           _pred96871_
           _start96872_
           _end96873_))))
  (define std/srfi/srfi-135/text#textual-replace__0
    (lambda (_txt196852_
             _txt296853_
             _start196854_
             _end196855_
             _start296856_
             _end296857_)
      (std/srfi/srfi-135/text#textual-append
       (std/srfi/srfi-135/text#subtextual _txt196852_ '0 _start196854_)
       (std/srfi/srfi-135/text#subtextual
        _txt296853_
        _start296856_
        _end296857_)
       (std/srfi/srfi-135/text#subtextual
        _txt196852_
        _end196855_
        (std/srfi/srfi-135/text#textual-length _txt196852_)))))
  (define std/srfi/srfi-135/text#textual-replace__1
    (lambda (_txt196859_ _txt296860_ _start196861_ _end196862_ _start296863_)
      (std/srfi/srfi-135/text#textual-append
       (std/srfi/srfi-135/text#subtextual _txt196859_ '0 _start196861_)
       (std/srfi/srfi-135/text#subtextual
        _txt296860_
        _start296863_
        (std/srfi/srfi-135/text#textual-length _txt296860_))
       (std/srfi/srfi-135/text#subtextual
        _txt196859_
        _end196862_
        (std/srfi/srfi-135/text#textual-length _txt196859_)))))
  (define std/srfi/srfi-135/text#textual-replace__2
    (lambda (_txt196865_ _txt296866_ _start196867_ _end196868_)
      (std/srfi/srfi-135/text#textual-append
       (std/srfi/srfi-135/text#subtextual _txt196865_ '0 _start196867_)
       _txt296866_
       (std/srfi/srfi-135/text#subtextual
        _txt196865_
        _end196868_
        (std/srfi/srfi-135/text#textual-length _txt196865_)))))
  (define std/srfi/srfi-135/text#textual-replace
    (lambda _g97397_
      (let ((_g97396_ (length _g97397_)))
        (cond ((##fx= _g97396_ 6)
               (apply std/srfi/srfi-135/text#textual-replace__0 _g97397_))
              ((##fx= _g97396_ 5)
               (apply std/srfi/srfi-135/text#textual-replace__1 _g97397_))
              ((##fx= _g97396_ 4)
               (apply std/srfi/srfi-135/text#textual-replace__2 _g97397_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-replace
                _g97397_))))))
  (define std/srfi/srfi-135/text#make-nary-comparison
    (lambda (_name96832_ _binop096833_)
      (let ((_binop96841_
             (lambda (_a96835_ _b96836_)
               (let ((_a96838_
                      (if (string? _a96835_)
                          (std/srfi/srfi-135/kernel8#%string->text _a96835_)
                          (if (##structure-instance-of?
                               _a96835_
                               'std/srfi/srfi-135/kernel8#text-rtd)
                              _a96835_
                              (std/srfi/srfi-135/kernel8#complain
                               _name96832_
                               _a96835_
                               _b96836_))))
                     (_b96839_
                      (if (string? _b96836_)
                          (std/srfi/srfi-135/kernel8#%string->text _b96836_)
                          (if (##structure-instance-of?
                               _b96836_
                               'std/srfi/srfi-135/kernel8#text-rtd)
                              _b96836_
                              (std/srfi/srfi-135/kernel8#complain
                               _name96832_
                               _a96835_
                               _b96836_)))))
                 (_binop096833_ _a96838_ _b96839_)))))
        (letrec ((_loop96843_
                  (lambda (_first96845_ _rest96846_)
                    (if (null? _rest96846_)
                        '#t
                        (if (_binop96841_ _first96845_ (car _rest96846_))
                            (_loop96843_ (car _rest96846_) (cdr _rest96846_))
                            '#f)))))
          (lambda (_a96848_ _b96849_ . _rest96850_)
            (if (null? _rest96850_)
                (_binop96841_ _a96848_ _b96849_)
                (if (_binop96841_ _a96848_ _b96849_)
                    (_loop96843_ _b96849_ _rest96850_)
                    '#f)))))))
  (define std/srfi/srfi-135/text#textual=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual=?
     (lambda (_a96829_ _b96830_)
       (std/srfi/srfi-135/text#%text-compare _a96829_ _b96830_ =))))
  (define std/srfi/srfi-135/text#textual<?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual<?
     (lambda (_a96826_ _b96827_)
       (std/srfi/srfi-135/text#%text-compare _a96826_ _b96827_ <))))
  (define std/srfi/srfi-135/text#textual<=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual<=?
     (lambda (_a96823_ _b96824_)
       (std/srfi/srfi-135/text#%text-compare _a96823_ _b96824_ <=))))
  (define std/srfi/srfi-135/text#textual>?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual>?
     (lambda (_a96820_ _b96821_)
       (std/srfi/srfi-135/text#%text-compare _a96820_ _b96821_ >))))
  (define std/srfi/srfi-135/text#textual>=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual>=?
     (lambda (_a96817_ _b96818_)
       (std/srfi/srfi-135/text#%text-compare _a96817_ _b96818_ >=))))
  (define std/srfi/srfi-135/text#textual-ci=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual-ci=?
     (lambda (_a96814_ _b96815_)
       (std/srfi/srfi-135/text#%text-compare-ci
        _a96814_
        _b96815_
        =
        string-ci=?))))
  (define std/srfi/srfi-135/text#textual-ci<?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual-ci<?
     (lambda (_a96811_ _b96812_)
       (std/srfi/srfi-135/text#%text-compare-ci
        _a96811_
        _b96812_
        <
        string-ci<?))))
  (define std/srfi/srfi-135/text#textual-ci<=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual-ci<=?
     (lambda (_a96808_ _b96809_)
       (std/srfi/srfi-135/text#%text-compare-ci
        _a96808_
        _b96809_
        <=
        string-ci<=?))))
  (define std/srfi/srfi-135/text#textual-ci>?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual-ci>?
     (lambda (_a96805_ _b96806_)
       (std/srfi/srfi-135/text#%text-compare-ci
        _a96805_
        _b96806_
        >
        string-ci>?))))
  (define std/srfi/srfi-135/text#textual-ci>=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual-ci>=?
     (lambda (_a96802_ _b96803_)
       (std/srfi/srfi-135/text#%text-compare-ci
        _a96802_
        _b96803_
        >=
        string-ci>=?))))
  (define std/srfi/srfi-135/text#%text-compare
    (lambda (_a96784_ _b96785_ _make-boolean96786_)
      (let* ((_na96788_ (std/srfi/srfi-135/kernel8#%text-length _a96784_))
             (_nb96790_ (std/srfi/srfi-135/kernel8#%text-length _b96785_))
             (_n96792_ (if (<= _na96788_ _nb96790_) _na96788_ _nb96790_)))
        (letrec ((_loop96795_
                  (lambda (_i96797_)
                    (if (= _i96797_ _n96792_)
                        (if (< _na96788_ _nb96790_)
                            (_make-boolean96786_ '-1 '0)
                            (if (> _na96788_ _nb96790_)
                                (_make-boolean96786_ '1 '0)
                                (_make-boolean96786_ '0 '0)))
                        (let ((_ca96799_
                               (std/srfi/srfi-135/kernel8#%text-ref
                                _a96784_
                                _i96797_))
                              (_cb96800_
                               (std/srfi/srfi-135/kernel8#%text-ref
                                _b96785_
                                _i96797_)))
                          (if (char<? _ca96799_ _cb96800_)
                              (_make-boolean96786_ '-1 '0)
                              (if (char>? _ca96799_ _cb96800_)
                                  (_make-boolean96786_ '1 '0)
                                  (_loop96795_ (+ _i96797_ '1)))))))))
          (_loop96795_ '0)))))
  (define std/srfi/srfi-135/text#%text-compare-ci
    (lambda (_a96759_ _b96760_ _make-boolean96761_ _string-pred96762_)
      (let* ((_na96764_ (std/srfi/srfi-135/kernel8#%text-length _a96759_))
             (_nb96766_ (std/srfi/srfi-135/kernel8#%text-length _b96760_))
             (_n96768_ (if (<= _na96764_ _nb96766_) _na96764_ _nb96766_)))
        (letrec ((_loop96771_
                  (lambda (_i96773_)
                    (if (= _i96773_ _n96768_)
                        (if (< _na96764_ _nb96766_)
                            (_make-boolean96761_ '-1 '0)
                            (if (> _na96764_ _nb96766_)
                                (_make-boolean96761_ '1 '0)
                                (_make-boolean96761_ '0 '0)))
                        (let ((_ca96775_
                               (std/srfi/srfi-135/kernel8#%text-ref
                                _a96759_
                                _i96773_))
                              (_cb96776_
                               (std/srfi/srfi-135/kernel8#%text-ref
                                _b96760_
                                _i96773_)))
                          (if (or (char>? _ca96775_ '#\delete)
                                  (char>? _cb96776_ '#\delete))
                              (_string-pred96762_
                               (std/srfi/srfi-135/text#textual->string__0
                                _a96759_)
                               (std/srfi/srfi-135/text#textual->string__0
                                _b96760_))
                              (let ((_ca96781_ (char-downcase _ca96775_))
                                    (_cb96782_ (char-downcase _cb96776_)))
                                (if (char<? _ca96781_ _cb96782_)
                                    (_make-boolean96761_ '-1 '0)
                                    (if (char>? _ca96781_ _cb96782_)
                                        (_make-boolean96761_ '1 '0)
                                        (_loop96771_ (+ _i96773_ '1)))))))))))
          (_loop96771_ '0)))))
  (define std/srfi/srfi-135/text#%make-text-prefix/suffix-proc
    (lambda (_proc96684_ _name96685_)
      (lambda _g97399_
        (let ((_g97398_ (length _g97399_)))
          (cond ((##fx= _g97398_ 0)
                 (apply (lambda ()
                          (std/srfi/srfi-135/kernel8#complain _name96685_))
                        _g97399_))
                ((##fx= _g97398_ 1)
                 (apply (lambda (_x96688_)
                          (std/srfi/srfi-135/kernel8#complain
                           _name96685_
                           _x96688_))
                        _g97399_))
                ((##fx= _g97398_ 2)
                 (apply (lambda (_t196690_ _t296691_)
                          (let ((_txt196693_
                                 (if (string? _t196690_)
                                     (std/srfi/srfi-135/kernel8#%string->text
                                      _t196690_)
                                     (if (##structure-instance-of?
                                          _t196690_
                                          'std/srfi/srfi-135/kernel8#text-rtd)
                                         _t196690_
                                         (std/srfi/srfi-135/kernel8#complain
                                          _name96685_
                                          _t196690_
                                          _t296691_))))
                                (_txt296694_
                                 (if (string? _t296691_)
                                     (std/srfi/srfi-135/kernel8#%string->text
                                      _t296691_)
                                     (if (##structure-instance-of?
                                          _t296691_
                                          'std/srfi/srfi-135/kernel8#text-rtd)
                                         _t296691_
                                         (std/srfi/srfi-135/kernel8#complain
                                          _name96685_
                                          _t196690_
                                          _t296691_)))))
                            (_proc96684_
                             _txt196693_
                             _txt296694_
                             '0
                             (std/srfi/srfi-135/kernel8#%text-length
                              _txt196693_)
                             '0
                             (std/srfi/srfi-135/kernel8#%text-length
                              _txt296694_))))
                        _g97399_))
                ((##fx= _g97398_ 3)
                 (apply (lambda (_t196696_ _t296697_ _start196698_)
                          (let* ((_txt196700_
                                  (if (string? _t196696_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t196696_)
                                      (if (##structure-instance-of?
                                           _t196696_
                                           'std/srfi/srfi-135/kernel8#text-rtd)
                                          _t196696_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name96685_
                                           _t196696_
                                           _t296697_))))
                                 (_txt296702_
                                  (if (string? _t296697_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t296697_)
                                      (if (##structure-instance-of?
                                           _t296697_
                                           'std/srfi/srfi-135/kernel8#text-rtd)
                                          _t296697_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name96685_
                                           _t196696_
                                           _t296697_))))
                                 (_n196704_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt196700_)))
                            (if (and (std/srfi/srfi-135/etc#exact-integer?
                                      _start196698_)
                                     (<= '0 _start196698_ _n196704_))
                                (_proc96684_
                                 _txt196700_
                                 _txt296702_
                                 _start196698_
                                 _n196704_
                                 '0
                                 (std/srfi/srfi-135/kernel8#%text-length
                                  _txt296702_))
                                (std/srfi/srfi-135/kernel8#complain
                                 _name96685_
                                 _t196696_
                                 _t296697_
                                 _start196698_))))
                        _g97399_))
                ((##fx= _g97398_ 4)
                 (apply (lambda (_t196707_ _t296708_ _start196709_ _end196710_)
                          (let* ((_txt196712_
                                  (if (string? _t196707_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t196707_)
                                      (if (##structure-instance-of?
                                           _t196707_
                                           'std/srfi/srfi-135/kernel8#text-rtd)
                                          _t196707_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name96685_
                                           _t196707_
                                           _t296708_))))
                                 (_txt296714_
                                  (if (string? _t296708_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t296708_)
                                      (if (##structure-instance-of?
                                           _t296708_
                                           'std/srfi/srfi-135/kernel8#text-rtd)
                                          _t296708_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name96685_
                                           _t196707_
                                           _t296708_))))
                                 (_n196716_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt196712_)))
                            (if (and (std/srfi/srfi-135/etc#exact-integer?
                                      _start196709_)
                                     (std/srfi/srfi-135/etc#exact-integer?
                                      _end196710_)
                                     (<= '0
                                         _start196709_
                                         _end196710_
                                         _n196716_))
                                (_proc96684_
                                 _txt196712_
                                 _txt296714_
                                 _start196709_
                                 _end196710_
                                 '0
                                 (std/srfi/srfi-135/kernel8#%text-length
                                  _txt296714_))
                                (std/srfi/srfi-135/kernel8#complain
                                 _name96685_
                                 _t196707_
                                 _t296708_
                                 _start196709_
                                 _end196710_))))
                        _g97399_))
                ((##fx= _g97398_ 5)
                 (apply (lambda (_t196719_
                                 _t296720_
                                 _start196721_
                                 _end196722_
                                 _start296723_)
                          (let* ((_txt196725_
                                  (if (string? _t196719_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t196719_)
                                      (if (##structure-instance-of?
                                           _t196719_
                                           'std/srfi/srfi-135/kernel8#text-rtd)
                                          _t196719_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name96685_
                                           _t196719_
                                           _t296720_))))
                                 (_txt296727_
                                  (if (string? _t296720_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t296720_)
                                      (if (##structure-instance-of?
                                           _t296720_
                                           'std/srfi/srfi-135/kernel8#text-rtd)
                                          _t296720_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name96685_
                                           _t196719_
                                           _t296720_))))
                                 (_n196729_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt196725_))
                                 (_n296731_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt296727_)))
                            (if (and (std/srfi/srfi-135/etc#exact-integer?
                                      _start196721_)
                                     (std/srfi/srfi-135/etc#exact-integer?
                                      _end196722_)
                                     (std/srfi/srfi-135/etc#exact-integer?
                                      _start296723_)
                                     (<= '0
                                         _start196721_
                                         _end196722_
                                         _n196729_)
                                     (<= '0 _start296723_ _n296731_))
                                (_proc96684_
                                 _txt196725_
                                 _txt296727_
                                 _start196721_
                                 _end196722_
                                 _start296723_
                                 _n296731_)
                                (std/srfi/srfi-135/kernel8#complain
                                 _name96685_
                                 _t196719_
                                 _t296720_
                                 _start196721_
                                 _end196722_
                                 _start296723_))))
                        _g97399_))
                ((##fx= _g97398_ 6)
                 (apply (lambda (_t196734_
                                 _t296735_
                                 _start196736_
                                 _end196737_
                                 _start296738_
                                 _end296739_)
                          (let* ((_txt196741_
                                  (if (string? _t196734_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t196734_)
                                      (if (##structure-instance-of?
                                           _t196734_
                                           'std/srfi/srfi-135/kernel8#text-rtd)
                                          _t196734_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name96685_
                                           _t196734_
                                           _t296735_))))
                                 (_txt296743_
                                  (if (string? _t296735_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t296735_)
                                      (if (##structure-instance-of?
                                           _t296735_
                                           'std/srfi/srfi-135/kernel8#text-rtd)
                                          _t296735_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name96685_
                                           _t196734_
                                           _t296735_))))
                                 (_n196745_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt196741_))
                                 (_n296747_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt296743_)))
                            (if (and (std/srfi/srfi-135/etc#exact-integer?
                                      _start196736_)
                                     (std/srfi/srfi-135/etc#exact-integer?
                                      _end196737_)
                                     (std/srfi/srfi-135/etc#exact-integer?
                                      _start296738_)
                                     (std/srfi/srfi-135/etc#exact-integer?
                                      _end296739_)
                                     (<= '0
                                         _start196736_
                                         _end196737_
                                         _n196745_)
                                     (<= '0
                                         _start296738_
                                         _end296739_
                                         _n296747_))
                                (_proc96684_
                                 _txt196741_
                                 _txt296743_
                                 _start196736_
                                 _end196737_
                                 _start296738_
                                 _end296739_)
                                (std/srfi/srfi-135/kernel8#complain
                                 _name96685_
                                 _t196734_
                                 _t296735_
                                 _start196736_
                                 _end196737_
                                 _start296738_
                                 _end296739_))))
                        _g97399_))
                ((##fx>= _g97398_ 7)
                 (apply (lambda (_t196750_
                                 _t296751_
                                 _start196752_
                                 _end196753_
                                 _start296754_
                                 _end296755_
                                 _oops96756_
                                 .
                                 _rest96757_)
                          (apply std/srfi/srfi-135/kernel8#complain
                                 _name96685_
                                 _t196750_
                                 _t296751_
                                 _start196752_
                                 _end196753_
                                 _start296754_
                                 _end296755_
                                 _oops96756_
                                 _rest96757_))
                        _g97399_))
                (else
                 (##raise-wrong-number-of-arguments-exception
                  'case-lambda-dispatch
                  _g97399_)))))))
  (define std/srfi/srfi-135/text#textual-prefix-length
    (std/srfi/srfi-135/text#%make-text-prefix/suffix-proc
     (lambda (_txt196677_
              _txt296678_
              _start196679_
              _end196680_
              _start296681_
              _end296682_)
       (std/srfi/srfi-135/text#%text-prefix-length
        _txt196677_
        _txt296678_
        _start196679_
        _end196680_
        _start296681_
        _end296682_))
     'textual-prefix-length))
  (define std/srfi/srfi-135/text#textual-suffix-length
    (std/srfi/srfi-135/text#%make-text-prefix/suffix-proc
     (lambda (_txt196670_
              _txt296671_
              _start196672_
              _end196673_
              _start296674_
              _end296675_)
       (std/srfi/srfi-135/text#%text-suffix-length
        _txt196670_
        _txt296671_
        _start196672_
        _end196673_
        _start296674_
        _end296675_))
     'textual-suffix-length))
  (define std/srfi/srfi-135/text#textual-prefix?
    (std/srfi/srfi-135/text#%make-text-prefix/suffix-proc
     (lambda (_txt196663_
              _txt296664_
              _start196665_
              _end196666_
              _start296667_
              _end296668_)
       (std/srfi/srfi-135/text#%text-prefix?
        _txt196663_
        _txt296664_
        _start196665_
        _end196666_
        _start296667_
        _end296668_))
     'textual-prefix?))
  (define std/srfi/srfi-135/text#textual-suffix?
    (std/srfi/srfi-135/text#%make-text-prefix/suffix-proc
     (lambda (_txt196656_
              _txt296657_
              _start196658_
              _end196659_
              _start296660_
              _end296661_)
       (std/srfi/srfi-135/text#%text-suffix?
        _txt196656_
        _txt296657_
        _start196658_
        _end196659_
        _start296660_
        _end296661_))
     'textual-suffix?))
  (define std/srfi/srfi-135/text#%text-prefix-length
    (lambda (_txt196635_
             _txt296636_
             _start196637_
             _end196638_
             _start296639_
             _end296640_)
      (let* ((_k196642_ (- _end196638_ _start196637_))
             (_k296644_ (- _end296640_ _start296639_))
             (_k96646_ (min _k196642_ _k296644_))
             (_end196648_ (+ _start196637_ _k96646_)))
        (let _loop96651_ ((_i96653_ _start196637_) (_j96654_ _start296639_))
          (if (= _i96653_ _end196648_)
              _k96646_
              (if (char=? (std/srfi/srfi-135/kernel8#%text-ref
                           _txt196635_
                           _i96653_)
                          (std/srfi/srfi-135/kernel8#%text-ref
                           _txt296636_
                           _j96654_))
                  (_loop96651_ (+ _i96653_ '1) (+ _j96654_ '1))
                  (- _i96653_ _start196637_)))))))
  (define std/srfi/srfi-135/text#%text-suffix-length
    (lambda (_txt196614_
             _txt296615_
             _start196616_
             _end196617_
             _start296618_
             _end296619_)
      (let* ((_k196621_ (- _end196617_ _start196616_))
             (_k296623_ (- _end296619_ _start296618_))
             (_k96625_ (min _k196621_ _k296623_))
             (_start196627_ (- _end196617_ _k96625_)))
        (let _loop96630_ ((_i96632_ (- _end196617_ '1))
                          (_j96633_ (- _end296619_ '1)))
          (if (< _i96632_ _start196627_)
              _k96625_
              (if (char=? (std/srfi/srfi-135/kernel8#%text-ref
                           _txt196614_
                           _i96632_)
                          (std/srfi/srfi-135/kernel8#%text-ref
                           _txt296615_
                           _j96633_))
                  (_loop96630_ (- _i96632_ '1) (- _j96633_ '1))
                  (- _end196617_ _i96632_ '1)))))))
  (define std/srfi/srfi-135/text#%text-prefix?
    (lambda (_txt196604_
             _txt296605_
             _start196606_
             _end196607_
             _start296608_
             _end296609_)
      (let ((_k196611_ (- _end196607_ _start196606_))
            (_k296612_ (- _end296609_ _start296608_)))
        (if (<= _k196611_ _k296612_)
            (= _k196611_
               (std/srfi/srfi-135/text#%text-prefix-length
                _txt196604_
                _txt296605_
                _start196606_
                _end196607_
                _start296608_
                _end296609_))
            '#f))))
  (define std/srfi/srfi-135/text#%text-suffix?
    (lambda (_txt196594_
             _txt296595_
             _start196596_
             _end196597_
             _start296598_
             _end296599_)
      (let ((_k196601_ (- _end196597_ _start196596_))
            (_k296602_ (- _end296599_ _start296598_)))
        (if (<= _k196601_ _k296602_)
            (= _k196601_
               (std/srfi/srfi-135/text#%text-suffix-length
                _txt196594_
                _txt296595_
                _start196596_
                _end196597_
                _start296598_
                _end296599_))
            '#f))))
  (define std/srfi/srfi-135/text#textual-index
    (lambda (_txt96578_ _pred96579_ . _rest96580_)
      (let ((_txt96582_
             (if (string? _txt96578_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96578_)
                 (if (##structure-instance-of?
                      _txt96578_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96578_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-index
                      _txt96578_
                      _pred96579_)))))
        (let ((_start96587_ (if (null? _rest96580_) '0 (car _rest96580_)))
              (_end96588_
               (if (or (null? _rest96580_) (null? (cdr _rest96580_)))
                   (std/srfi/srfi-135/kernel8#%text-length _txt96582_)
                   (car (cdr _rest96580_)))))
          (if (and (procedure? _pred96579_)
                   (std/srfi/srfi-135/etc#exact-integer? _start96587_)
                   (std/srfi/srfi-135/etc#exact-integer? _end96588_)
                   (<= '0
                       _start96587_
                       _end96588_
                       (std/srfi/srfi-135/kernel8#%text-length _txt96582_)))
              (let _loop96590_ ((_i96592_ _start96587_))
                (if (= _i96592_ _end96588_)
                    '#f
                    (if (_pred96579_
                         (std/srfi/srfi-135/kernel8#%text-ref
                          _txt96582_
                          _i96592_))
                        _i96592_
                        (_loop96590_ (+ _i96592_ '1)))))
              (apply std/srfi/srfi-135/kernel8#complain
                     'textual-index
                     _txt96582_
                     _pred96579_
                     _rest96580_))))))
  (define std/srfi/srfi-135/text#textual-index-right
    (lambda (_txt96562_ _pred96563_ . _rest96564_)
      (let ((_txt96566_
             (if (string? _txt96562_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96562_)
                 (if (##structure-instance-of?
                      _txt96562_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96562_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-index-right
                      _txt96562_
                      _pred96563_)))))
        (let ((_start96571_ (if (null? _rest96564_) '0 (car _rest96564_)))
              (_end96572_
               (if (or (null? _rest96564_) (null? (cdr _rest96564_)))
                   (std/srfi/srfi-135/kernel8#%text-length _txt96566_)
                   (car (cdr _rest96564_)))))
          (if (and (procedure? _pred96563_)
                   (std/srfi/srfi-135/etc#exact-integer? _start96571_)
                   (std/srfi/srfi-135/etc#exact-integer? _end96572_)
                   (<= '0
                       _start96571_
                       _end96572_
                       (std/srfi/srfi-135/kernel8#%text-length _txt96566_)))
              (let _loop96574_ ((_i96576_ (- _end96572_ '1)))
                (if (< _i96576_ _start96571_)
                    '#f
                    (if (_pred96563_
                         (std/srfi/srfi-135/kernel8#%text-ref
                          _txt96566_
                          _i96576_))
                        _i96576_
                        (_loop96574_ (- _i96576_ '1)))))
              (apply std/srfi/srfi-135/kernel8#complain
                     'textual-index-right
                     _txt96566_
                     _pred96563_
                     _rest96564_))))))
  (define std/srfi/srfi-135/text#textual-skip
    (lambda (_txt96556_ _pred96557_ . _rest96558_)
      (apply std/srfi/srfi-135/text#textual-index
             _txt96556_
             (lambda (_x96560_) (not (_pred96557_ _x96560_)))
             _rest96558_)))
  (define std/srfi/srfi-135/text#textual-skip-right
    (lambda (_txt96550_ _pred96551_ . _rest96552_)
      (apply std/srfi/srfi-135/text#textual-index-right
             _txt96550_
             (lambda (_x96554_) (not (_pred96551_ _x96554_)))
             _rest96552_)))
  (define std/srfi/srfi-135/text#textual-contains
    (lambda (_t196523_ _t296524_ . _rest096525_)
      (let* ((_txt196527_
              (if (string? _t196523_)
                  (std/srfi/srfi-135/kernel8#%string->text _t196523_)
                  (if (##structure-instance-of?
                       _t196523_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _t196523_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-contains
                       _t196523_
                       _t296524_))))
             (_txt296529_
              (if (string? _t296524_)
                  (std/srfi/srfi-135/kernel8#%string->text _t296524_)
                  (if (##structure-instance-of?
                       _t296524_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _t296524_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-contains
                       _t196523_
                       _t296524_))))
             (_rest96531_ _rest096525_)
             (_start196533_ (if (null? _rest96531_) '0 (car _rest96531_)))
             (_rest96535_
              (if (null? _rest96531_) _rest96531_ (cdr _rest96531_)))
             (_end196537_
              (if (null? _rest96535_)
                  (std/srfi/srfi-135/kernel8#%text-length _txt196527_)
                  (car _rest96535_)))
             (_rest96539_
              (if (null? _rest96535_) _rest96535_ (cdr _rest96535_)))
             (_start296541_ (if (null? _rest96539_) '0 (car _rest96539_)))
             (_rest96543_
              (if (null? _rest96539_) _rest96539_ (cdr _rest96539_)))
             (_end296545_
              (if (null? _rest96543_)
                  (std/srfi/srfi-135/kernel8#%text-length _txt296529_)
                  (car _rest96543_)))
             (_rest96547_
              (if (null? _rest96543_) _rest96543_ (cdr _rest96543_))))
        (if (and (null? _rest96547_)
                 (std/srfi/srfi-135/etc#exact-integer? _start196533_)
                 (std/srfi/srfi-135/etc#exact-integer? _end196537_)
                 (std/srfi/srfi-135/etc#exact-integer? _start296541_)
                 (std/srfi/srfi-135/etc#exact-integer? _end296545_)
                 (<= '0
                     _start196533_
                     _end196537_
                     (std/srfi/srfi-135/kernel8#%text-length _txt196527_))
                 (<= '0
                     _start296541_
                     _end296545_
                     (std/srfi/srfi-135/kernel8#%text-length _txt296529_)))
            (std/srfi/srfi-135/text#%textual-contains
             _txt196527_
             _txt296529_
             _start196533_
             _end196537_
             _start296541_
             _end296545_)
            (apply std/srfi/srfi-135/kernel8#complain
                   'textual-contains
                   _t196523_
                   _t296524_
                   _rest096525_)))))
  (define std/srfi/srfi-135/text#%threshold:short1 '10)
  (define std/srfi/srfi-135/text#%threshold:short2 '3)
  (define std/srfi/srfi-135/text#%threshold:longer '1)
  (define std/srfi/srfi-135/text#%threshold:rightmost '2)
  (define std/srfi/srfi-135/text#%textual-contains
    (lambda (_txt196507_
             _txt296508_
             _start196509_
             _end196510_
             _start296511_
             _end296512_)
      (let ((_n196514_ (- _end196510_ _start196509_))
            (_n296515_ (- _end296512_ _start296511_)))
        (if (< _n196514_ std/srfi/srfi-135/text#%threshold:short1)
            (std/srfi/srfi-135/text#%textual-contains:naive
             _txt196507_
             _txt296508_
             _start196509_
             _end196510_
             _start296511_
             _end296512_)
            (if (< (- _n196514_ _n296515_)
                   std/srfi/srfi-135/text#%threshold:longer)
                (std/srfi/srfi-135/text#%textual-contains:naive
                 _txt196507_
                 _txt296508_
                 _start196509_
                 _end196510_
                 _start296511_
                 _end296512_)
                (if (< _n296515_ std/srfi/srfi-135/text#%threshold:short2)
                    (std/srfi/srfi-135/text#%textual-contains:boyer-moore
                     _txt196507_
                     _txt296508_
                     _start196509_
                     _end196510_
                     _start296511_
                     _end296512_)
                    (if (and (> _n296515_
                                std/srfi/srfi-135/text#%threshold:rightmost)
                             (let ((_j96517_
                                    (remainder
                                     (char->integer
                                      (std/srfi/srfi-135/kernel8#text-ref
                                       _txt296508_
                                       (- _end296512_ '1)))
                                     '128)))
                               (let _loop96519_ ((_i96521_
                                                  (- _end296512_
                                                     std/srfi/srfi-135/text#%threshold:rightmost)))
                                 (if (= _i96521_ (- _end296512_ '1))
                                     '#t
                                     (if (= _j96517_
                                            (remainder
                                             (char->integer
                                              (std/srfi/srfi-135/kernel8#text-ref
                                               _txt296508_
                                               _i96521_))
                                             '128))
                                         '#f
                                         (_loop96519_ (+ _i96521_ '1)))))))
                        (std/srfi/srfi-135/text#%textual-contains:boyer-moore
                         _txt196507_
                         _txt296508_
                         _start196509_
                         _end196510_
                         _start296511_
                         _end296512_)
                        (std/srfi/srfi-135/text#%textual-contains:rabin-karp
                         _txt196507_
                         _txt296508_
                         _start196509_
                         _end196510_
                         _start296511_
                         _end296512_))))))))
  (define std/srfi/srfi-135/text#%textual-contains:naive
    (lambda (_txt196489_
             _txt296490_
             _start196491_
             _end196492_
             _start296493_
             _end296494_)
      (let* ((_n196496_ (- _end196492_ _start196491_))
             (_n296498_ (- _end296494_ _start296493_))
             (_lim196500_ (- _end196492_ _n296498_)))
        (let _loop96503_ ((_i96505_ _start196491_))
          (if (> _i96505_ _lim196500_)
              '#f
              (if (std/srfi/srfi-135/text#textual-prefix?
                   _txt296490_
                   _txt196489_
                   _start296493_
                   _end296494_
                   _i96505_
                   _end196492_)
                  _i96505_
                  (_loop96503_ (+ _i96505_ '1))))))))
  (define std/srfi/srfi-135/text#%textual-contains:rabin-karp
    (lambda (_txt196454_
             _txt296455_
             _start196456_
             _end196457_
             _start296458_
             _end296459_)
      (letrec ((_hash96461_
                (lambda (_txt96479_ _start96480_ _end96481_)
                  (let _$loop96483_ ((_i96486_ _start96480_) (_h96487_ '0))
                    (if (= _i96486_ _end96481_)
                        _h96487_
                        (_$loop96483_
                         (+ _i96486_ '1)
                         (+ _h96487_
                            (char->integer
                             (std/srfi/srfi-135/kernel8#text-ref
                              _txt96479_
                              _i96486_)))))))))
        (let* ((_n196463_ (- _end196457_ _start196456_))
               (_n296465_ (- _end296459_ _start296458_))
               (_lim196467_ (- _end196457_ _n296465_))
               (_h196469_
                (_hash96461_
                 _txt196454_
                 _start196456_
                 (min (+ _start196456_ _n296465_) _end196457_)))
               (_h296471_ (_hash96461_ _txt296455_ _start296458_ _end296459_)))
          (let _loop96474_ ((_i96476_ _start196456_) (_h196477_ _h196469_))
            (if (> _i96476_ _lim196467_)
                '#f
                (if (and (= _h196477_ _h296471_)
                         (std/srfi/srfi-135/text#textual-prefix?
                          _txt296455_
                          _txt196454_
                          _start296458_
                          _end296459_
                          _i96476_
                          _end196457_))
                    _i96476_
                    (if (= _i96476_ _lim196467_)
                        '#f
                        (_loop96474_
                         (+ _i96476_ '1)
                         (+ (- _h196477_
                               (char->integer
                                (std/srfi/srfi-135/kernel8#text-ref
                                 _txt196454_
                                 _i96476_)))
                            (char->integer
                             (std/srfi/srfi-135/kernel8#text-ref
                              _txt196454_
                              (+ _i96476_ _n296465_)))))))))))))
  (define std/srfi/srfi-135/text#%textual-contains:boyer-moore
    (lambda (_txt196411_
             _txt296412_
             _start196413_
             _end196414_
             _start296415_
             _end296416_)
      (if (= _start296415_ _end296416_)
          _start196413_
          (let* ((_n196418_ (- _end196414_ _start196413_))
                 (_n296420_ (- _end296416_ _start296415_))
                 (_lim196422_ (- _end196414_ _n296420_))
                 (_lastchar96424_
                  (std/srfi/srfi-135/kernel8#text-ref
                   _txt296412_
                   (- _end296416_ '1)))
                 (_lastj96426_
                  (remainder (char->integer _lastchar96424_) '128))
                 (_table96428_ (make-vector '128 _n296420_)))
            (let _$loop96431_ ((_i96434_ '0))
              (if (>= _i96434_ (- _n296420_ '1))
                  '#!void
                  (begin
                    (let* ((_c96436_
                            (std/srfi/srfi-135/kernel8#text-ref
                             _txt296412_
                             (+ _i96434_ _start296415_)))
                           (_cp96438_ (char->integer _c96436_))
                           (_j96440_ (remainder _cp96438_ '128)))
                      (vector-set!
                       _table96428_
                       _j96440_
                       (- _n296420_ _i96434_ '1)))
                    (_$loop96431_ (+ _i96434_ '1)))))
            (let _loop96443_ ((_i96445_ _start196413_))
              (if (>= _i96445_ _lim196422_)
                  (if (and (= _i96445_ _lim196422_)
                           (std/srfi/srfi-135/text#textual-prefix?
                            _txt296412_
                            _txt196411_
                            _start296415_
                            _end296416_
                            _i96445_
                            _end196414_))
                      _i96445_
                      '#f)
                  (let* ((_c96447_
                          (std/srfi/srfi-135/kernel8#text-ref
                           _txt196411_
                           (+ _i96445_ _n296420_ '-1)))
                         (_cp96449_ (char->integer _c96447_))
                         (_j96451_ (remainder _cp96449_ '128)))
                    (if (not (char=? _c96447_ _lastchar96424_))
                        (_loop96443_
                         (+ _i96445_ (vector-ref _table96428_ _j96451_)))
                        (if (std/srfi/srfi-135/text#textual-prefix?
                             _txt296412_
                             _txt196411_
                             _start296415_
                             _end296416_
                             _i96445_
                             _end196414_)
                            _i96445_
                            (_loop96443_
                             (+ _i96445_
                                (vector-ref
                                 _table96428_
                                 _lastj96426_))))))))))))
  (define std/srfi/srfi-135/text#textual-contains-right
    (lambda (_t196384_ _t296385_ . _rest096386_)
      (let* ((_txt196388_
              (if (string? _t196384_)
                  (std/srfi/srfi-135/kernel8#%string->text _t196384_)
                  (if (##structure-instance-of?
                       _t196384_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _t196384_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-contains-right
                       _t196384_
                       _t296385_))))
             (_txt296390_
              (if (string? _t296385_)
                  (std/srfi/srfi-135/kernel8#%string->text _t296385_)
                  (if (##structure-instance-of?
                       _t296385_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _t296385_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-contains-right
                       _t196384_
                       _t296385_))))
             (_rest96392_ _rest096386_)
             (_start196394_ (if (null? _rest96392_) '0 (car _rest96392_)))
             (_rest96396_
              (if (null? _rest96392_) _rest96392_ (cdr _rest96392_)))
             (_end196398_
              (if (null? _rest96396_)
                  (std/srfi/srfi-135/kernel8#%text-length _txt196388_)
                  (car _rest96396_)))
             (_rest96400_
              (if (null? _rest96396_) _rest96396_ (cdr _rest96396_)))
             (_start296402_ (if (null? _rest96400_) '0 (car _rest96400_)))
             (_rest96404_
              (if (null? _rest96400_) _rest96400_ (cdr _rest96400_)))
             (_end296406_
              (if (null? _rest96404_)
                  (std/srfi/srfi-135/kernel8#%text-length _txt296390_)
                  (car _rest96404_)))
             (_rest96408_
              (if (null? _rest96404_) _rest96404_ (cdr _rest96404_))))
        (if (and (null? _rest96408_)
                 (std/srfi/srfi-135/etc#exact-integer? _start196394_)
                 (std/srfi/srfi-135/etc#exact-integer? _end196398_)
                 (std/srfi/srfi-135/etc#exact-integer? _start296402_)
                 (std/srfi/srfi-135/etc#exact-integer? _end296406_)
                 (<= '0
                     _start196394_
                     _end196398_
                     (std/srfi/srfi-135/kernel8#%text-length _txt196388_))
                 (<= '0
                     _start296402_
                     _end296406_
                     (std/srfi/srfi-135/kernel8#%text-length _txt296390_)))
            (std/srfi/srfi-135/text#%textual-contains-right
             _txt196388_
             _txt296390_
             _start196394_
             _end196398_
             _start296402_
             _end296406_)
            (apply std/srfi/srfi-135/kernel8#complain
                   'textual-contains-right
                   _t196384_
                   _t296385_
                   _rest096386_)))))
  (define std/srfi/srfi-135/text#%textual-contains-right
    (lambda (_txt196374_
             _txt296375_
             _start196376_
             _end196377_
             _start296378_
             _end296379_)
      (let ((_n196381_ (- _end196377_ _start196376_))
            (_n296382_ (- _end296379_ _start296378_)))
        (if (< _n196381_ std/srfi/srfi-135/text#%threshold:short1)
            (std/srfi/srfi-135/text#%textual-contains-right:naive
             _txt196374_
             _txt296375_
             _start196376_
             _end196377_
             _start296378_
             _end296379_)
            (if (< (- _n196381_ _n296382_)
                   std/srfi/srfi-135/text#%threshold:longer)
                (std/srfi/srfi-135/text#%textual-contains-right:naive
                 _txt196374_
                 _txt296375_
                 _start196376_
                 _end196377_
                 _start296378_
                 _end296379_)
                (if (< _n296382_ std/srfi/srfi-135/text#%threshold:short2)
                    (std/srfi/srfi-135/text#%textual-contains-right:boyer-moore
                     _txt196374_
                     _txt296375_
                     _start196376_
                     _end196377_
                     _start296378_
                     _end296379_)
                    (std/srfi/srfi-135/text#%textual-contains-right:boyer-moore
                     _txt196374_
                     _txt296375_
                     _start196376_
                     _end196377_
                     _start296378_
                     _end296379_)))))))
  (define std/srfi/srfi-135/text#%textual-contains-right:naive
    (lambda (_txt196356_
             _txt296357_
             _start196358_
             _end196359_
             _start296360_
             _end296361_)
      (let* ((_n196363_ (- _end196359_ _start196358_))
             (_n296365_ (- _end296361_ _start296360_))
             (_lim196367_ (- _end196359_ _n296365_)))
        (let _loop96370_ ((_i96372_ _lim196367_))
          (if (< _i96372_ _start196358_)
              '#f
              (if (std/srfi/srfi-135/text#textual-prefix?
                   _txt296357_
                   _txt196356_
                   _start296360_
                   _end296361_
                   _i96372_
                   _end196359_)
                  _i96372_
                  (_loop96370_ (- _i96372_ '1))))))))
  (define std/srfi/srfi-135/text#%textual-contains-right:boyer-moore
    (lambda (_txt196315_
             _txt296316_
             _start196317_
             _end196318_
             _start296319_
             _end296320_)
      (if (= _start296319_ _end296320_)
          _end196318_
          (let* ((_n196322_ (- _end196318_ _start196317_))
                 (_n296324_ (- _end296320_ _start296319_))
                 (_firstchar96326_
                  (std/srfi/srfi-135/kernel8#text-ref _txt296316_ '0))
                 (_firstj96328_
                  (remainder (char->integer _firstchar96326_) '128))
                 (_table96330_ (make-vector '128 _n296324_)))
            (let _$loop96333_ ((_i96336_ (- _n296324_ '1)))
              (if (<= _i96336_ '0)
                  '#!void
                  (begin
                    (let* ((_c96338_
                            (std/srfi/srfi-135/kernel8#text-ref
                             _txt296316_
                             (+ _i96336_ _start296319_)))
                           (_cp96340_ (char->integer _c96338_))
                           (_j96342_ (remainder _cp96340_ '128)))
                      (vector-set! _table96330_ _j96342_ _i96336_))
                    (_$loop96333_ (- _i96336_ '1)))))
            (let _loop96345_ ((_i96347_ (- _end196318_ _n296324_)))
              (if (<= _i96347_ _start196317_)
                  (if (and (= _i96347_ _start196317_)
                           (std/srfi/srfi-135/text#textual-prefix?
                            _txt296316_
                            _txt196315_
                            _start296319_
                            _end296320_
                            _i96347_
                            _end196318_))
                      _i96347_
                      '#f)
                  (let* ((_c96349_
                          (std/srfi/srfi-135/kernel8#text-ref
                           _txt196315_
                           _i96347_))
                         (_cp96351_ (char->integer _c96349_))
                         (_j96353_ (remainder _cp96351_ '128)))
                    (if (not (char=? _c96349_ _firstchar96326_))
                        (_loop96345_
                         (- _i96347_ (vector-ref _table96330_ _j96353_)))
                        (if (std/srfi/srfi-135/text#textual-prefix?
                             _txt296316_
                             _txt196315_
                             _start296319_
                             _end296320_
                             _i96347_
                             _end196318_)
                            _i96347_
                            (_loop96345_
                             (- _i96347_
                                (vector-ref
                                 _table96330_
                                 _firstj96328_))))))))))))
  (define std/srfi/srfi-135/text#textual-upcase
    (lambda (_txt96313_)
      (if (string? _txt96313_)
          (std/srfi/srfi-135/kernel8#%string->text
           (std/srfi/13#string-upcase__0 _txt96313_))
          (if (##structure-instance-of?
               _txt96313_
               'std/srfi/srfi-135/kernel8#text-rtd)
              (std/srfi/srfi-135/text#%text-upcase _txt96313_)
              (std/srfi/srfi-135/kernel8#complain
               'textual-upcase
               _txt96313_)))))
  (define std/srfi/srfi-135/text#textual-downcase
    (lambda (_txt96311_)
      (if (string? _txt96311_)
          (std/srfi/srfi-135/kernel8#%string->text
           (std/srfi/13#string-downcase__0 _txt96311_))
          (if (##structure-instance-of?
               _txt96311_
               'std/srfi/srfi-135/kernel8#text-rtd)
              (std/srfi/srfi-135/text#%text-downcase
               _txt96311_
               std/srfi/13#string-downcase)
              (std/srfi/srfi-135/kernel8#complain
               'textual-downcase
               _txt96311_)))))
  (define std/srfi/srfi-135/text#textual-foldcase
    (lambda (_txt96309_)
      (if (string? _txt96309_)
          (std/srfi/srfi-135/kernel8#%string->text
           (std/srfi/13#string-downcase__0 _txt96309_))
          (if (##structure-instance-of?
               _txt96309_
               'std/srfi/srfi-135/kernel8#text-rtd)
              (std/srfi/srfi-135/text#%text-downcase
               _txt96309_
               std/srfi/13#string-downcase)
              (std/srfi/srfi-135/kernel8#complain
               'textual-foldcase
               _txt96309_)))))
  (define std/srfi/srfi-135/text#textual-titlecase
    (lambda (_txt96307_)
      (if (string? _txt96307_)
          (std/srfi/srfi-135/kernel8#%string->text
           (std/srfi/13#string-titlecase__0 _txt96307_))
          (if (##structure-instance-of?
               _txt96307_
               'std/srfi/srfi-135/kernel8#text-rtd)
              (std/srfi/srfi-135/kernel8#%string->text
               (std/srfi/13#string-titlecase__0
                (std/srfi/srfi-135/text#textual->string__0 _txt96307_)))
              (std/srfi/srfi-135/kernel8#complain
               'textual-titlecase
               _txt96307_)))))
  (define std/srfi/srfi-135/text#%text-upcase
    (lambda (_txt96289_)
      (let ((_n96291_ (std/srfi/srfi-135/kernel8#%text-length _txt96289_)))
        (letrec ((_fastest96294_
                  (lambda (_i96303_)
                    (if (= _i96303_ _n96291_)
                        _txt96289_
                        (let ((_c96305_
                               (std/srfi/srfi-135/kernel8#%text-ref
                                _txt96289_
                                _i96303_)))
                          (if (char>? _c96305_ '#\delete)
                              (std/srfi/srfi-135/text#textual-upcase
                               (std/srfi/srfi-135/text#textual->string__0
                                _txt96289_))
                              (if (char<=? '#\a _c96305_ '#\z)
                                  (_fast96295_
                                   _i96303_
                                   (list (std/srfi/srfi-135/kernel8#subtext
                                          _txt96289_
                                          '0
                                          _i96303_))
                                   '())
                                  (_fastest96294_ (+ _i96303_ '1))))))))
                 (_fast96295_
                  (lambda (_i96297_ _texts96298_ _chars96299_)
                    (if (= _i96297_ _n96291_)
                        (if (null? _chars96299_)
                            (std/srfi/srfi-135/text#textual-concatenate-reverse__0
                             _texts96298_)
                            (std/srfi/srfi-135/text#textual-concatenate-reverse__1
                             _texts96298_
                             (std/srfi/srfi-135/text#reverse-list->text
                              _chars96299_)))
                        (if (and (= '0
                                    (remainder
                                     _i96297_
                                     std/srfi/srfi-135/kernel8#N))
                                 (not (null? _chars96299_)))
                            (_fast96295_
                             _i96297_
                             (cons (std/srfi/srfi-135/text#reverse-list->text
                                    _chars96299_)
                                   _texts96298_)
                             '())
                            (let ((_c96301_
                                   (std/srfi/srfi-135/kernel8#%text-ref
                                    _txt96289_
                                    _i96297_)))
                              (if (char>? _c96301_ '#\delete)
                                  (std/srfi/srfi-135/text#textual-append
                                   (std/srfi/srfi-135/text#textual-concatenate-reverse__0
                                    _texts96298_)
                                   (std/srfi/srfi-135/text#reverse-list->text
                                    _chars96299_)
                                   (std/srfi/srfi-135/kernel8#%string->text
                                    (std/srfi/13#string-upcase__0
                                     (std/srfi/srfi-135/kernel8#subtext
                                      _txt96289_
                                      _i96297_
                                      _n96291_))))
                                  (if (char<=? '#\a _c96301_ '#\z)
                                      (_fast96295_
                                       (+ _i96297_ '1)
                                       _texts96298_
                                       (cons (char-upcase _c96301_)
                                             _chars96299_))
                                      (_fast96295_
                                       (+ _i96297_ '1)
                                       _texts96298_
                                       (cons _c96301_ _chars96299_))))))))))
          (_fastest96294_ '0)))))
  (define std/srfi/srfi-135/text#%text-downcase
    (lambda (_txt96270_ _string-caser96271_)
      (let ((_n96273_ (std/srfi/srfi-135/kernel8#%text-length _txt96270_)))
        (letrec ((_fastest96276_
                  (lambda (_i96285_)
                    (if (= _i96285_ _n96273_)
                        _txt96270_
                        (let ((_c96287_
                               (std/srfi/srfi-135/kernel8#%text-ref
                                _txt96270_
                                _i96285_)))
                          (if (char>? _c96287_ '#\delete)
                              (std/srfi/srfi-135/text#textual-downcase
                               (std/srfi/srfi-135/text#textual->string__0
                                _txt96270_))
                              (if (char<=? '#\A _c96287_ '#\Z)
                                  (_fast96277_
                                   _i96285_
                                   (list (std/srfi/srfi-135/kernel8#subtext
                                          _txt96270_
                                          '0
                                          _i96285_))
                                   '())
                                  (_fastest96276_ (+ _i96285_ '1))))))))
                 (_fast96277_
                  (lambda (_i96279_ _texts96280_ _chars96281_)
                    (if (= _i96279_ _n96273_)
                        (if (null? _chars96281_)
                            (std/srfi/srfi-135/text#textual-concatenate-reverse__0
                             _texts96280_)
                            (std/srfi/srfi-135/text#textual-concatenate-reverse__1
                             _texts96280_
                             (std/srfi/srfi-135/text#reverse-list->text
                              _chars96281_)))
                        (if (and (= '0
                                    (remainder
                                     _i96279_
                                     std/srfi/srfi-135/kernel8#N))
                                 (not (null? _chars96281_)))
                            (_fast96277_
                             _i96279_
                             (cons (std/srfi/srfi-135/text#reverse-list->text
                                    _chars96281_)
                                   _texts96280_)
                             '())
                            (let ((_c96283_
                                   (std/srfi/srfi-135/kernel8#%text-ref
                                    _txt96270_
                                    _i96279_)))
                              (if (char>? _c96283_ '#\delete)
                                  (std/srfi/srfi-135/text#textual-append
                                   (std/srfi/srfi-135/text#textual-concatenate-reverse__0
                                    _texts96280_)
                                   (std/srfi/srfi-135/text#reverse-list->text
                                    _chars96281_)
                                   (std/srfi/srfi-135/kernel8#%string->text
                                    (_string-caser96271_
                                     (std/srfi/srfi-135/kernel8#subtext
                                      _txt96270_
                                      _i96279_
                                      _n96273_))))
                                  (if (char<=? '#\A _c96283_ '#\Z)
                                      (_fast96277_
                                       (+ _i96279_ '1)
                                       _texts96280_
                                       (cons (char-downcase _c96283_)
                                             _chars96281_))
                                      (_fast96277_
                                       (+ _i96279_ '1)
                                       _texts96280_
                                       (cons _c96283_ _chars96281_))))))))))
          (_fastest96276_ '0)))))
  (define std/srfi/srfi-135/text#%string-titlecase
    (lambda (_s96252_)
      (let* ((_s96254_ (string-copy (std/srfi/13#string-downcase__0 _s96252_)))
             (_n96256_ (string-length _s96254_)))
        (letrec ((_first-character-of-word!96259_
                  (lambda (_i96266_)
                    (if (< _i96266_ _n96256_)
                        (let ((_c96268_ (string-ref _s96254_ _i96266_)))
                          (if (char-whitespace? _c96268_)
                              (_first-character-of-word!96259_ (+ _i96266_ '1))
                              (begin
                                (string-set!
                                 _s96254_
                                 _i96266_
                                 (char-upcase _c96268_))
                                (_subsequent-character!96260_
                                 (+ _i96266_ '1)))))
                        '#!void)))
                 (_subsequent-character!96260_
                  (lambda (_i96262_)
                    (if (< _i96262_ _n96256_)
                        (let ((_c96264_ (string-ref _s96254_ _i96262_)))
                          (if (char-whitespace? _c96264_)
                              (_first-character-of-word!96259_ (+ _i96262_ '1))
                              (_subsequent-character!96260_ (+ _i96262_ '1))))
                        '#!void))))
          (_first-character-of-word!96259_ '0)
          _s96254_))))
  (define std/srfi/srfi-135/text#textual-append
    (lambda _texts96250_
      (std/srfi/srfi-135/kernel8#textual-concatenate _texts96250_)))
  (define std/srfi/srfi-135/text#textual-concatenate-reverse__0
    (lambda (_texts96241_)
      (std/srfi/srfi-135/kernel8#textual-concatenate (reverse _texts96241_))))
  (define std/srfi/srfi-135/text#textual-concatenate-reverse__1
    (lambda (_texts96243_ _final-textual96244_)
      (std/srfi/srfi-135/text#textual-concatenate-reverse__0
       (cons _final-textual96244_ _texts96243_))))
  (define std/srfi/srfi-135/text#textual-concatenate-reverse__2
    (lambda (_texts96246_ _final-textual96247_ _end96248_)
      (std/srfi/srfi-135/text#textual-concatenate-reverse__1
       _texts96246_
       (std/srfi/srfi-135/kernel8#subtext
        (if (string? _final-textual96247_)
            (std/srfi/srfi-135/kernel8#%string->text _final-textual96247_)
            (if (##structure-instance-of?
                 _final-textual96247_
                 'std/srfi/srfi-135/kernel8#text-rtd)
                _final-textual96247_
                (std/srfi/srfi-135/kernel8#complain
                 'textual-concatenate-reverse
                 _texts96246_
                 _final-textual96247_
                 _end96248_)))
        '0
        _end96248_))))
  (define std/srfi/srfi-135/text#textual-concatenate-reverse
    (lambda _g97401_
      (let ((_g97400_ (length _g97401_)))
        (cond ((##fx= _g97400_ 1)
               (apply std/srfi/srfi-135/text#textual-concatenate-reverse__0
                      _g97401_))
              ((##fx= _g97400_ 2)
               (apply std/srfi/srfi-135/text#textual-concatenate-reverse__1
                      _g97401_))
              ((##fx= _g97400_ 3)
               (apply std/srfi/srfi-135/text#textual-concatenate-reverse__2
                      _g97401_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-concatenate-reverse
                _g97401_))))))
  (define std/srfi/srfi-135/text#textual-join__0
    (lambda (_textuals96215_)
      (std/srfi/srfi-135/text#textual-join__2 _textuals96215_ '" " 'infix)))
  (define std/srfi/srfi-135/text#textual-join__1
    (lambda (_textuals96217_ _delimiter96218_)
      (std/srfi/srfi-135/text#textual-join__2
       _textuals96217_
       _delimiter96218_
       'infix)))
  (define std/srfi/srfi-135/text#textual-join__2
    (lambda (_textuals96220_ _delimiter96221_ _grammar96222_)
      (let* ((_texts96226_
              (map (lambda (_t96224_)
                     (if (string? _t96224_)
                         (std/srfi/srfi-135/kernel8#%string->text _t96224_)
                         (if (##structure-instance-of?
                              _t96224_
                              'std/srfi/srfi-135/kernel8#text-rtd)
                             _t96224_
                             (std/srfi/srfi-135/kernel8#complain
                              'textual-join
                              _textuals96220_))))
                   _textuals96220_))
             (_delimiter96228_
              (if (string? _delimiter96221_)
                  (std/srfi/srfi-135/kernel8#%string->text _delimiter96221_)
                  (if (##structure-instance-of?
                       _delimiter96221_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _delimiter96221_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-join
                       _textuals96220_
                       _delimiter96221_)))))
        (if (memq _grammar96222_ '(infix strict-infix prefix suffix))
            (if (null? _texts96226_)
                (let ((_$e96231_ _grammar96222_))
                  (if (eq? 'strict-infix _$e96231_)
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-join
                       _textuals96220_
                       _delimiter96228_
                       _grammar96222_)
                      (std/srfi/srfi-135/text#text)))
                (let _loop96234_ ((_rtxts96236_ (reverse _texts96226_))
                                  (_texts96237_
                                   (if (eq? _grammar96222_ 'suffix)
                                       (list _delimiter96228_)
                                       '())))
                  (if (null? _rtxts96236_)
                      (let ((_texts96239_
                             (if (eq? _grammar96222_ 'prefix)
                                 _texts96237_
                                 (cdr _texts96237_))))
                        (std/srfi/srfi-135/kernel8#textual-concatenate
                         _texts96239_))
                      (_loop96234_
                       (cdr _rtxts96236_)
                       (cons _delimiter96228_
                             (cons (car _rtxts96236_) _texts96237_))))))
            (std/srfi/srfi-135/kernel8#complain
             'textual-join
             _textuals96220_
             _delimiter96228_
             _grammar96222_)))))
  (define std/srfi/srfi-135/text#textual-join
    (lambda _g97403_
      (let ((_g97402_ (length _g97403_)))
        (cond ((##fx= _g97402_ 1)
               (apply std/srfi/srfi-135/text#textual-join__0 _g97403_))
              ((##fx= _g97402_ 2)
               (apply std/srfi/srfi-135/text#textual-join__1 _g97403_))
              ((##fx= _g97402_ 3)
               (apply std/srfi/srfi-135/text#textual-join__2 _g97403_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-join
                _g97403_))))))
  (define std/srfi/srfi-135/text#textual-fold__textual-fold
    (lambda (_kons96173_ _knil96174_ _txt96175_ _start96176_ _end96177_)
      (if (procedure? _kons96173_)
          (let _loop96179_ ((_knil96181_ _knil96174_) (_i96182_ _start96176_))
            (if (< _i96182_ _end96177_)
                (_loop96179_
                 (_kons96173_
                  (std/srfi/srfi-135/kernel8#%text-ref _txt96175_ _i96182_)
                  _knil96181_)
                 (+ _i96182_ '1))
                _knil96181_))
          (std/srfi/srfi-135/kernel8#complain
           'textual-fold
           _kons96173_
           _knil96174_
           _txt96175_
           _start96176_
           _end96177_))))
  (define std/srfi/srfi-135/text#textual-fold__0
    (lambda (_kons96186_ _knil96187_ _txt96188_)
      (let ((_text96190_
             (if (string? _txt96188_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96188_)
                 (if (##structure-instance-of?
                      _txt96188_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96188_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-fold__textual-fold
                      _kons96186_
                      _knil96187_
                      _txt96188_)))))
        (std/srfi/srfi-135/text#textual-fold__textual-fold
         _kons96186_
         _knil96187_
         _text96190_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text96190_)))))
  (define std/srfi/srfi-135/text#textual-fold__1
    (lambda (_kons96193_ _knil96194_ _txt96195_ _start96196_)
      (let* ((_text96198_
              (if (string? _txt96195_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt96195_)
                  (if (##structure-instance-of?
                       _txt96195_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt96195_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-fold__textual-fold
                       _kons96193_
                       _knil96194_
                       _txt96195_
                       _start96196_))))
             (_n96200_ (std/srfi/srfi-135/kernel8#%text-length _text96198_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start96196_)
                 (<= '0 _start96196_ _n96200_))
            (std/srfi/srfi-135/text#textual-fold__textual-fold
             _kons96193_
             _knil96194_
             _text96198_
             _start96196_
             _n96200_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-fold
             _kons96193_
             _knil96194_
             _txt96195_
             _start96196_)))))
  (define std/srfi/srfi-135/text#textual-fold__2
    (lambda (_kons96204_ _knil96205_ _txt96206_ _start96207_ _end96208_)
      (let* ((_text96210_
              (if (string? _txt96206_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt96206_)
                  (if (##structure-instance-of?
                       _txt96206_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt96206_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-fold__textual-fold
                       _kons96204_
                       _knil96205_
                       _txt96206_
                       _start96207_
                       _end96208_))))
             (_n96212_ (std/srfi/srfi-135/kernel8#%text-length _text96210_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start96207_)
                 (std/srfi/srfi-135/etc#exact-integer? _end96208_)
                 (<= '0 _start96207_ _end96208_ _n96212_))
            (std/srfi/srfi-135/text#textual-fold__textual-fold
             _kons96204_
             _knil96205_
             _text96210_
             _start96207_
             _end96208_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-fold
             _kons96204_
             _knil96205_
             _txt96206_
             _start96207_
             _end96208_)))))
  (define std/srfi/srfi-135/text#textual-fold
    (lambda _g97405_
      (let ((_g97404_ (length _g97405_)))
        (cond ((##fx= _g97404_ 3)
               (apply std/srfi/srfi-135/text#textual-fold__0 _g97405_))
              ((##fx= _g97404_ 4)
               (apply std/srfi/srfi-135/text#textual-fold__1 _g97405_))
              ((##fx= _g97404_ 5)
               (apply std/srfi/srfi-135/text#textual-fold__2 _g97405_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-fold
                _g97405_))))))
  (define std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
    (lambda (_kons96131_ _knil96132_ _txt96133_ _start96134_ _end96135_)
      (if (procedure? _kons96131_)
          (let _loop96137_ ((_knil96139_ _knil96132_)
                            (_i96140_ (- _end96135_ '1)))
            (if (>= _i96140_ _start96134_)
                (_loop96137_
                 (_kons96131_
                  (std/srfi/srfi-135/kernel8#%text-ref _txt96133_ _i96140_)
                  _knil96139_)
                 (- _i96140_ '1))
                _knil96139_))
          (std/srfi/srfi-135/kernel8#complain
           'textual-fold-right
           _kons96131_
           _knil96132_
           _txt96133_
           _start96134_
           _end96135_))))
  (define std/srfi/srfi-135/text#textual-fold-right__0
    (lambda (_kons96144_ _knil96145_ _txt96146_)
      (let ((_text96148_
             (if (string? _txt96146_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96146_)
                 (if (##structure-instance-of?
                      _txt96146_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96146_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
                      _kons96144_
                      _knil96145_
                      _txt96146_)))))
        (std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
         _kons96144_
         _knil96145_
         _text96148_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text96148_)))))
  (define std/srfi/srfi-135/text#textual-fold-right__1
    (lambda (_kons96151_ _knil96152_ _txt96153_ _start96154_)
      (let* ((_text96156_
              (if (string? _txt96153_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt96153_)
                  (if (##structure-instance-of?
                       _txt96153_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt96153_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
                       _kons96151_
                       _knil96152_
                       _txt96153_
                       _start96154_))))
             (_n96158_ (std/srfi/srfi-135/kernel8#%text-length _text96156_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start96154_)
                 (<= '0 _start96154_ _n96158_))
            (std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
             _kons96151_
             _knil96152_
             _text96156_
             _start96154_
             _n96158_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-fold-right
             _kons96151_
             _knil96152_
             _txt96153_
             _start96154_)))))
  (define std/srfi/srfi-135/text#textual-fold-right__2
    (lambda (_kons96162_ _knil96163_ _txt96164_ _start96165_ _end96166_)
      (let* ((_text96168_
              (if (string? _txt96164_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt96164_)
                  (if (##structure-instance-of?
                       _txt96164_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt96164_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
                       _kons96162_
                       _knil96163_
                       _txt96164_
                       _start96165_
                       _end96166_))))
             (_n96170_ (std/srfi/srfi-135/kernel8#%text-length _text96168_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start96165_)
                 (std/srfi/srfi-135/etc#exact-integer? _end96166_)
                 (<= '0 _start96165_ _end96166_ _n96170_))
            (std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
             _kons96162_
             _knil96163_
             _text96168_
             _start96165_
             _end96166_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-fold-right
             _kons96162_
             _knil96163_
             _txt96164_
             _start96165_
             _end96166_)))))
  (define std/srfi/srfi-135/text#textual-fold-right
    (lambda _g97407_
      (let ((_g97406_ (length _g97407_)))
        (cond ((##fx= _g97406_ 3)
               (apply std/srfi/srfi-135/text#textual-fold-right__0 _g97407_))
              ((##fx= _g97406_ 4)
               (apply std/srfi/srfi-135/text#textual-fold-right__1 _g97407_))
              ((##fx= _g97406_ 5)
               (apply std/srfi/srfi-135/text#textual-fold-right__2 _g97407_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-fold-right
                _g97407_))))))
  (define std/srfi/srfi-135/text#textual-map__1
    (lambda (_proc96126_ _txt196127_ _txt296128_ . _rest96129_)
      (std/srfi/srfi-135/text#%textual-mapn
       _proc96126_
       (cons _txt196127_ (cons _txt296128_ _rest96129_)))))
  (define std/srfi/srfi-135/text#textual-map
    (lambda _g97409_
      (let ((_g97408_ (length _g97409_)))
        (cond ((##fx= _g97408_ 2)
               (apply std/srfi/srfi-135/text#%textual-map1 _g97409_))
              ((##fx>= _g97408_ 3)
               (apply std/srfi/srfi-135/text#textual-map__1 _g97409_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-map
                _g97409_))))))
  (define std/srfi/srfi-135/text#%textual-map1
    (lambda (_proc96107_ _txt96108_)
      (let ((_txt96110_
             (if (string? _txt96108_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96108_)
                 (if (##structure-instance-of?
                      _txt96108_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96108_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-map
                      _proc96107_
                      _txt96108_)))))
        (if (procedure? _proc96107_)
            (let ((_n96112_
                   (std/srfi/srfi-135/kernel8#%text-length _txt96110_)))
              (let _loop96114_ ((_i96116_ '0)
                                (_pieces96117_ '())
                                (_chars96118_ '())
                                (_k96119_ '0))
                (if (= _i96116_ _n96112_)
                    (std/srfi/srfi-135/kernel8#textual-concatenate
                     (reverse (std/srfi/srfi-135/text#%text-map-pieces
                               _pieces96117_
                               _chars96118_)))
                    (if (>= _k96119_ std/srfi/srfi-135/kernel8#N)
                        (_loop96114_
                         _i96116_
                         (std/srfi/srfi-135/text#%text-map-pieces
                          _pieces96117_
                          _chars96118_)
                         '()
                         (remainder _k96119_ std/srfi/srfi-135/kernel8#N))
                        (let ((_x96121_
                               (_proc96107_
                                (std/srfi/srfi-135/kernel8#%text-ref
                                 _txt96110_
                                 _i96116_))))
                          (_loop96114_
                           (+ _i96116_ '1)
                           _pieces96117_
                           (cons _x96121_ _chars96118_)
                           (+ _k96119_
                              (if (char? _x96121_)
                                  '1
                                  (if (string? _x96121_)
                                      (string-length _x96121_)
                                      (if (##structure-instance-of?
                                           _x96121_
                                           'std/srfi/srfi-135/kernel8#text-rtd)
                                          (std/srfi/srfi-135/kernel8#%text-length
                                           _x96121_)
                                          (std/srfi/srfi-135/text#%textual-map-bad-result
                                           _proc96107_
                                           _x96121_)))))))))))
            (std/srfi/srfi-135/kernel8#complain
             'textual-map
             _proc96107_
             _txt96110_)))))
  (define std/srfi/srfi-135/text#%textual-mapn
    (lambda (_proc96088_ _textuals96089_)
      (if (procedure? _proc96088_)
          (let* ((_texts96093_
                  (map (lambda (_txt96091_)
                         (if (string? _txt96091_)
                             (std/srfi/srfi-135/kernel8#%string->text
                              _txt96091_)
                             (if (##structure-instance-of?
                                  _txt96091_
                                  'std/srfi/srfi-135/kernel8#text-rtd)
                                 _txt96091_
                                 (std/srfi/srfi-135/kernel8#complain
                                  'textual-map
                                  _textuals96089_))))
                       _textuals96089_))
                 (_n96095_
                  (apply min
                         (map std/srfi/srfi-135/kernel8#%text-length
                              _texts96093_))))
            (let _loop96098_ ((_i96100_ '0)
                              (_pieces96101_ '())
                              (_chars96102_ '())
                              (_k96103_ '0))
              (if (= _i96100_ _n96095_)
                  (std/srfi/srfi-135/kernel8#textual-concatenate
                   (reverse (std/srfi/srfi-135/text#%text-map-pieces
                             _pieces96101_
                             _chars96102_)))
                  (if (>= _k96103_ std/srfi/srfi-135/kernel8#N)
                      (_loop96098_
                       _i96100_
                       (std/srfi/srfi-135/text#%text-map-pieces
                        _pieces96101_
                        _chars96102_)
                       '()
                       (remainder _k96103_ std/srfi/srfi-135/kernel8#N))
                      (let ((_x96105_
                             (apply _proc96088_
                                    (std/srfi/srfi-135/text#%fetch-all
                                     _texts96093_
                                     _i96100_))))
                        (_loop96098_
                         (+ _i96100_ '1)
                         _pieces96101_
                         (cons _x96105_ _chars96102_)
                         (+ _k96103_
                            (if (char? _x96105_)
                                '1
                                (if (string? _x96105_)
                                    (string-length _x96105_)
                                    (if (##structure-instance-of?
                                         _x96105_
                                         'std/srfi/srfi-135/kernel8#text-rtd)
                                        (std/srfi/srfi-135/kernel8#%text-length
                                         _x96105_)
                                        (std/srfi/srfi-135/text#%textual-map-bad-result
                                         _proc96088_
                                         _x96105_)))))))))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-map
           _proc96088_
           _textuals96089_))))
  (define std/srfi/srfi-135/text#%textual-map-bad-result
    (lambda (_proc96085_ _x96086_)
      (error '"textual-map: proc returned non-character" _x96086_)))
  (define std/srfi/srfi-135/text#%text-map-pieces
    (lambda (_texts96060_ _stuff96061_)
      (let _loop96063_ ((_revstuff96065_ _stuff96061_)
                        (_stuff96066_ '())
                        (_n96067_ '0))
        (if (null? _revstuff96065_)
            (let ((_s96069_ (make-string _n96067_)))
              (let _inner-loop96071_ ((_stuff96073_ _stuff96066_)
                                      (_i96074_ '0))
                (if (null? _stuff96073_)
                    (cons (std/srfi/srfi-135/kernel8#%string->text _s96069_)
                          _texts96060_)
                    (let ((_x96076_ (car _stuff96073_)))
                      (if (char? _x96076_)
                          (begin
                            (string-set! _s96069_ _i96074_ _x96076_)
                            (_inner-loop96071_
                             (cdr _stuff96073_)
                             (+ _i96074_ '1)))
                          (if (string? _x96076_)
                              (begin
                                (std/srfi/srfi-135/etc#string-copy!
                                 _s96069_
                                 _i96074_
                                 _x96076_)
                                (_inner-loop96071_
                                 (cdr _stuff96073_)
                                 (+ _i96074_ (string-length _x96076_))))
                              (begin
                                (std/srfi/srfi-135/etc#string-copy!
                                 _s96069_
                                 _i96074_
                                 (std/srfi/srfi-135/text#textual->string__0
                                  _x96076_))
                                (_inner-loop96071_
                                 (cdr _stuff96073_)
                                 (+ _i96074_
                                    (std/srfi/srfi-135/kernel8#text-length
                                     _x96076_))))))))))
            (let* ((_x96078_ (car _revstuff96065_))
                   (_revstuff96080_ (cdr _revstuff96065_))
                   (_stuff96082_ (cons _x96078_ _stuff96066_)))
              (_loop96063_
               _revstuff96080_
               _stuff96082_
               (+ _n96067_
                  (if (char? _x96078_)
                      '1
                      (if (string? _x96078_)
                          (string-length _x96078_)
                          (std/srfi/srfi-135/kernel8#text-length
                           _x96078_))))))))))
  (define std/srfi/srfi-135/text#textual-for-each__1
    (lambda (_proc96055_ _txt196056_ _txt296057_ . _rest96058_)
      (std/srfi/srfi-135/text#%textual-for-eachn
       _proc96055_
       (cons _txt196056_ (cons _txt296057_ _rest96058_)))))
  (define std/srfi/srfi-135/text#textual-for-each
    (lambda _g97411_
      (let ((_g97410_ (length _g97411_)))
        (cond ((##fx= _g97410_ 2)
               (apply std/srfi/srfi-135/text#%textual-for-each1 _g97411_))
              ((##fx>= _g97410_ 3)
               (apply std/srfi/srfi-135/text#textual-for-each__1 _g97411_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-for-each
                _g97411_))))))
  (define std/srfi/srfi-135/text#%textual-for-each1
    (lambda (_proc96041_ _txt96042_)
      (let ((_txt96044_
             (if (string? _txt96042_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt96042_)
                 (if (##structure-instance-of?
                      _txt96042_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt96042_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-for-each
                      _proc96041_
                      _txt96042_)))))
        (if (procedure? _proc96041_)
            (let ((_n96046_
                   (std/srfi/srfi-135/kernel8#%text-length _txt96044_)))
              (let _loop96048_ ((_i96050_ '0))
                (if (< _i96050_ _n96046_)
                    (begin
                      (_proc96041_
                       (std/srfi/srfi-135/kernel8#%text-ref
                        _txt96044_
                        _i96050_))
                      (_loop96048_ (+ _i96050_ '1)))
                    '#!void)))
            (std/srfi/srfi-135/kernel8#complain
             'textual-for-each
             _proc96041_
             _txt96044_)))))
  (define std/srfi/srfi-135/text#%textual-for-eachn
    (lambda (_proc96027_ _textuals96028_)
      (if (procedure? _proc96027_)
          (let* ((_texts96032_
                  (map (lambda (_txt96030_)
                         (if (string? _txt96030_)
                             (std/srfi/srfi-135/kernel8#%string->text
                              _txt96030_)
                             (if (##structure-instance-of?
                                  _txt96030_
                                  'std/srfi/srfi-135/kernel8#text-rtd)
                                 _txt96030_
                                 (std/srfi/srfi-135/kernel8#complain
                                  'textual-map
                                  _textuals96028_))))
                       _textuals96028_))
                 (_n96034_
                  (apply min
                         (map std/srfi/srfi-135/kernel8#%text-length
                              _texts96032_))))
            (let _loop96037_ ((_i96039_ '0))
              (if (< _i96039_ _n96034_)
                  (begin
                    (apply _proc96027_
                           (std/srfi/srfi-135/text#%fetch-all
                            _texts96032_
                            _i96039_))
                    (_loop96037_ (+ _i96039_ '1)))
                  '#!void)))
          (std/srfi/srfi-135/kernel8#complain
           'textual-for-each
           _proc96027_
           _textuals96028_))))
  (define std/srfi/srfi-135/text#%fetch-all
    (lambda (_texts96024_ _i96025_)
      (if (null? _texts96024_)
          '()
          (cons (std/srfi/srfi-135/kernel8#%text-ref
                 (car _texts96024_)
                 _i96025_)
                (std/srfi/srfi-135/text#%fetch-all
                 (cdr _texts96024_)
                 _i96025_)))))
  (define std/srfi/srfi-135/text#textual-map-index__textual-map-index
    (lambda (_proc95980_ _txt95981_ _start95982_ _end95983_)
      (if (procedure? _proc95980_)
          (let ((_n95985_ _end95983_))
            (let _loop95987_ ((_i95989_ _start95982_)
                              (_pieces95990_ '())
                              (_chars95991_ '())
                              (_k95992_ '0))
              (if (= _i95989_ _n95985_)
                  (std/srfi/srfi-135/kernel8#textual-concatenate
                   (reverse (std/srfi/srfi-135/text#%text-map-pieces
                             _pieces95990_
                             _chars95991_)))
                  (if (>= _k95992_ std/srfi/srfi-135/kernel8#N)
                      (_loop95987_
                       _i95989_
                       (std/srfi/srfi-135/text#%text-map-pieces
                        _pieces95990_
                        _chars95991_)
                       '()
                       (remainder _k95992_ std/srfi/srfi-135/kernel8#N))
                      (let ((_x95994_ (_proc95980_ _i95989_)))
                        (_loop95987_
                         (+ _i95989_ '1)
                         _pieces95990_
                         (cons _x95994_ _chars95991_)
                         (+ _k95992_
                            (if (char? _x95994_)
                                '1
                                (if (string? _x95994_)
                                    (string-length _x95994_)
                                    (if (##structure-instance-of?
                                         _x95994_
                                         'std/srfi/srfi-135/kernel8#text-rtd)
                                        (std/srfi/srfi-135/kernel8#%text-length
                                         _x95994_)
                                        (std/srfi/srfi-135/text#%textual-map-bad-result
                                         _proc95980_
                                         _x95994_)))))))))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-map-index
           _proc95980_
           _txt95981_))))
  (define std/srfi/srfi-135/text#textual-map-index__0
    (lambda (_proc95998_ _txt95999_)
      (let ((_text96001_
             (if (string? _txt95999_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt95999_)
                 (if (##structure-instance-of?
                      _txt95999_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt95999_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-map-index__textual-map-index
                      _proc95998_
                      _txt95999_)))))
        (std/srfi/srfi-135/text#textual-map-index__textual-map-index
         _proc95998_
         _text96001_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text96001_)))))
  (define std/srfi/srfi-135/text#textual-map-index__1
    (lambda (_proc96004_ _txt96005_ _start96006_)
      (let* ((_text96008_
              (if (string? _txt96005_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt96005_)
                  (if (##structure-instance-of?
                       _txt96005_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt96005_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-map-index__textual-map-index
                       _proc96004_
                       _txt96005_
                       _start96006_))))
             (_n96010_ (std/srfi/srfi-135/kernel8#%text-length _text96008_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start96006_)
                 (<= '0 _start96006_ _n96010_))
            (std/srfi/srfi-135/text#textual-map-index__textual-map-index
             _proc96004_
             _text96008_
             _start96006_
             _n96010_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-map-index
             _proc96004_
             _txt96005_
             _start96006_)))))
  (define std/srfi/srfi-135/text#textual-map-index__2
    (lambda (_proc96014_ _txt96015_ _start96016_ _end96017_)
      (let* ((_text96019_
              (if (string? _txt96015_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt96015_)
                  (if (##structure-instance-of?
                       _txt96015_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt96015_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-map-index__textual-map-index
                       _proc96014_
                       _txt96015_
                       _start96016_
                       _end96017_))))
             (_n96021_ (std/srfi/srfi-135/kernel8#%text-length _text96019_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start96016_)
                 (std/srfi/srfi-135/etc#exact-integer? _end96017_)
                 (<= '0 _start96016_ _end96017_ _n96021_))
            (std/srfi/srfi-135/text#textual-map-index__textual-map-index
             _proc96014_
             _text96019_
             _start96016_
             _end96017_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-map-index
             _proc96014_
             _txt96015_
             _start96016_
             _end96017_)))))
  (define std/srfi/srfi-135/text#textual-map-index
    (lambda _g97413_
      (let ((_g97412_ (length _g97413_)))
        (cond ((##fx= _g97412_ 2)
               (apply std/srfi/srfi-135/text#textual-map-index__0 _g97413_))
              ((##fx= _g97412_ 3)
               (apply std/srfi/srfi-135/text#textual-map-index__1 _g97413_))
              ((##fx= _g97412_ 4)
               (apply std/srfi/srfi-135/text#textual-map-index__2 _g97413_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-map-index
                _g97413_))))))
  (define std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
    (lambda (_proc95941_ _txt95942_ _start95943_ _end95944_)
      (if (procedure? _proc95941_)
          (let ((_n95946_ _end95944_))
            (let _loop95948_ ((_i95950_ _start95943_))
              (if (< _i95950_ _n95946_)
                  (begin (_proc95941_ _i95950_) (_loop95948_ (+ _i95950_ '1)))
                  '#!void)))
          (std/srfi/srfi-135/kernel8#complain
           'textual-for-each-index
           _proc95941_
           _txt95942_))))
  (define std/srfi/srfi-135/text#textual-for-each-index__0
    (lambda (_proc95954_ _txt95955_)
      (let ((_text95957_
             (if (string? _txt95955_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt95955_)
                 (if (##structure-instance-of?
                      _txt95955_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt95955_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
                      _proc95954_
                      _txt95955_)))))
        (std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
         _proc95954_
         _text95957_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text95957_)))))
  (define std/srfi/srfi-135/text#textual-for-each-index__1
    (lambda (_proc95960_ _txt95961_ _start95962_)
      (let* ((_text95964_
              (if (string? _txt95961_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt95961_)
                  (if (##structure-instance-of?
                       _txt95961_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt95961_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
                       _proc95960_
                       _txt95961_
                       _start95962_))))
             (_n95966_ (std/srfi/srfi-135/kernel8#%text-length _text95964_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start95962_)
                 (<= '0 _start95962_ _n95966_))
            (std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
             _proc95960_
             _text95964_
             _start95962_
             _n95966_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-for-each-index
             _proc95960_
             _txt95961_
             _start95962_)))))
  (define std/srfi/srfi-135/text#textual-for-each-index__2
    (lambda (_proc95970_ _txt95971_ _start95972_ _end95973_)
      (let* ((_text95975_
              (if (string? _txt95971_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt95971_)
                  (if (##structure-instance-of?
                       _txt95971_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt95971_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
                       _proc95970_
                       _txt95971_
                       _start95972_
                       _end95973_))))
             (_n95977_ (std/srfi/srfi-135/kernel8#%text-length _text95975_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start95972_)
                 (std/srfi/srfi-135/etc#exact-integer? _end95973_)
                 (<= '0 _start95972_ _end95973_ _n95977_))
            (std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
             _proc95970_
             _text95975_
             _start95972_
             _end95973_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-for-each-index
             _proc95970_
             _txt95971_
             _start95972_
             _end95973_)))))
  (define std/srfi/srfi-135/text#textual-for-each-index
    (lambda _g97415_
      (let ((_g97414_ (length _g97415_)))
        (cond ((##fx= _g97414_ 2)
               (apply std/srfi/srfi-135/text#textual-for-each-index__0
                      _g97415_))
              ((##fx= _g97414_ 3)
               (apply std/srfi/srfi-135/text#textual-for-each-index__1
                      _g97415_))
              ((##fx= _g97414_ 4)
               (apply std/srfi/srfi-135/text#textual-for-each-index__2
                      _g97415_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-for-each-index
                _g97415_))))))
  (define std/srfi/srfi-135/text#textual-count
    (lambda (_txt95920_ _pred95921_ . _rest95922_)
      (let ((_txt95924_
             (if (string? _txt95920_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt95920_)
                 (if (##structure-instance-of?
                      _txt95920_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt95920_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-count
                      _txt95920_
                      _pred95921_)))))
        (let ((_start95929_ (if (null? _rest95922_) '0 (car _rest95922_)))
              (_end95930_
               (if (or (null? _rest95922_) (null? (cdr _rest95922_)))
                   (std/srfi/srfi-135/kernel8#%text-length _txt95924_)
                   (car (cdr _rest95922_)))))
          (if (and (procedure? _pred95921_)
                   (or (null? _rest95922_)
                       (null? (cdr _rest95922_))
                       (null? (cdr (cdr _rest95922_))))
                   (std/srfi/srfi-135/etc#exact-integer? _start95929_)
                   (std/srfi/srfi-135/etc#exact-integer? _end95930_)
                   (<= '0
                       _start95929_
                       _end95930_
                       (std/srfi/srfi-135/kernel8#%text-length _txt95924_)))
              (std/srfi/srfi-135/text#textual-fold__2
               (lambda (_c95938_ _n95939_)
                 (if (_pred95921_ _c95938_) (+ _n95939_ '1) _n95939_))
               '0
               _txt95924_
               _start95929_
               _end95930_)
              (std/srfi/srfi-135/kernel8#complain
               'textual-count
               _txt95924_
               _pred95921_
               _start95929_
               _end95930_))))))
  (define std/srfi/srfi-135/text#textual-filter__textual-filter
    (lambda (_pred95885_ _txt95886_ _start95887_ _end95888_)
      (if (procedure? _pred95885_)
          (std/srfi/srfi-135/text#%textual-map1
           (lambda (_c95890_) (if (_pred95885_ _c95890_) _c95890_ '""))
           (std/srfi/srfi-135/kernel8#subtext
            _txt95886_
            _start95887_
            _end95888_))
          (std/srfi/srfi-135/kernel8#complain
           'textual-filter
           _pred95885_
           _txt95886_
           _start95887_
           _end95888_))))
  (define std/srfi/srfi-135/text#textual-filter__0
    (lambda (_pred95894_ _txt95895_)
      (let ((_text95897_
             (if (string? _txt95895_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt95895_)
                 (if (##structure-instance-of?
                      _txt95895_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt95895_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-filter__textual-filter
                      _pred95894_
                      _txt95895_)))))
        (std/srfi/srfi-135/text#textual-filter__textual-filter
         _pred95894_
         _text95897_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text95897_)))))
  (define std/srfi/srfi-135/text#textual-filter__1
    (lambda (_pred95900_ _txt95901_ _start95902_)
      (let* ((_text95904_
              (if (string? _txt95901_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt95901_)
                  (if (##structure-instance-of?
                       _txt95901_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt95901_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-filter__textual-filter
                       _pred95900_
                       _txt95901_
                       _start95902_))))
             (_n95906_ (std/srfi/srfi-135/kernel8#%text-length _text95904_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start95902_)
                 (<= '0 _start95902_ _n95906_))
            (std/srfi/srfi-135/text#textual-filter__textual-filter
             _pred95900_
             _text95904_
             _start95902_
             _n95906_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-filter
             _pred95900_
             _txt95901_
             _start95902_)))))
  (define std/srfi/srfi-135/text#textual-filter__2
    (lambda (_pred95910_ _txt95911_ _start95912_ _end95913_)
      (let* ((_text95915_
              (if (string? _txt95911_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt95911_)
                  (if (##structure-instance-of?
                       _txt95911_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt95911_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-filter__textual-filter
                       _pred95910_
                       _txt95911_
                       _start95912_
                       _end95913_))))
             (_n95917_ (std/srfi/srfi-135/kernel8#%text-length _text95915_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start95912_)
                 (std/srfi/srfi-135/etc#exact-integer? _end95913_)
                 (<= '0 _start95912_ _end95913_ _n95917_))
            (std/srfi/srfi-135/text#textual-filter__textual-filter
             _pred95910_
             _text95915_
             _start95912_
             _end95913_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-filter
             _pred95910_
             _txt95911_
             _start95912_
             _end95913_)))))
  (define std/srfi/srfi-135/text#textual-filter
    (lambda _g97417_
      (let ((_g97416_ (length _g97417_)))
        (cond ((##fx= _g97416_ 2)
               (apply std/srfi/srfi-135/text#textual-filter__0 _g97417_))
              ((##fx= _g97416_ 3)
               (apply std/srfi/srfi-135/text#textual-filter__1 _g97417_))
              ((##fx= _g97416_ 4)
               (apply std/srfi/srfi-135/text#textual-filter__2 _g97417_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-filter
                _g97417_))))))
  (define std/srfi/srfi-135/text#textual-remove__textual-remove
    (lambda (_pred95850_ _txt95851_ _start95852_ _end95853_)
      (std/srfi/srfi-135/text#textual-filter__2
       (lambda (_c95855_) (not (_pred95850_ _c95855_)))
       _txt95851_
       _start95852_
       _end95853_)))
  (define std/srfi/srfi-135/text#textual-remove__0
    (lambda (_pred95859_ _txt95860_)
      (let ((_text95862_
             (if (string? _txt95860_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt95860_)
                 (if (##structure-instance-of?
                      _txt95860_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt95860_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-remove__textual-remove
                      _pred95859_
                      _txt95860_)))))
        (std/srfi/srfi-135/text#textual-remove__textual-remove
         _pred95859_
         _text95862_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text95862_)))))
  (define std/srfi/srfi-135/text#textual-remove__1
    (lambda (_pred95865_ _txt95866_ _start95867_)
      (let* ((_text95869_
              (if (string? _txt95866_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt95866_)
                  (if (##structure-instance-of?
                       _txt95866_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt95866_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-remove__textual-remove
                       _pred95865_
                       _txt95866_
                       _start95867_))))
             (_n95871_ (std/srfi/srfi-135/kernel8#%text-length _text95869_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start95867_)
                 (<= '0 _start95867_ _n95871_))
            (std/srfi/srfi-135/text#textual-remove__textual-remove
             _pred95865_
             _text95869_
             _start95867_
             _n95871_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-remove
             _pred95865_
             _txt95866_
             _start95867_)))))
  (define std/srfi/srfi-135/text#textual-remove__2
    (lambda (_pred95875_ _txt95876_ _start95877_ _end95878_)
      (let* ((_text95880_
              (if (string? _txt95876_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt95876_)
                  (if (##structure-instance-of?
                       _txt95876_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt95876_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-remove__textual-remove
                       _pred95875_
                       _txt95876_
                       _start95877_
                       _end95878_))))
             (_n95882_ (std/srfi/srfi-135/kernel8#%text-length _text95880_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start95877_)
                 (std/srfi/srfi-135/etc#exact-integer? _end95878_)
                 (<= '0 _start95877_ _end95878_ _n95882_))
            (std/srfi/srfi-135/text#textual-remove__textual-remove
             _pred95875_
             _text95880_
             _start95877_
             _end95878_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-remove
             _pred95875_
             _txt95876_
             _start95877_
             _end95878_)))))
  (define std/srfi/srfi-135/text#textual-remove
    (lambda _g97419_
      (let ((_g97418_ (length _g97419_)))
        (cond ((##fx= _g97418_ 2)
               (apply std/srfi/srfi-135/text#textual-remove__0 _g97419_))
              ((##fx= _g97418_ 3)
               (apply std/srfi/srfi-135/text#textual-remove__1 _g97419_))
              ((##fx= _g97418_ 4)
               (apply std/srfi/srfi-135/text#textual-remove__2 _g97419_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-remove
                _g97419_))))))
  (define std/srfi/srfi-135/text#textual-reverse__textual-reverse
    (lambda (_txt95811_ _start95812_ _end95813_)
      (let* ((_n95815_ (- _end95813_ _start95812_))
             (_s95817_ (make-string _n95815_)))
        (let _$loop95820_ ((_i95823_ _start95812_))
          (if (= _i95823_ _end95813_)
              (std/srfi/srfi-135/kernel8#%string->text _s95817_)
              (begin
                (string-set!
                 _s95817_
                 (- _n95815_ (- _i95823_ _start95812_) '1)
                 (std/srfi/srfi-135/kernel8#%text-ref _txt95811_ _i95823_))
                (_$loop95820_ (+ _i95823_ '1))))))))
  (define std/srfi/srfi-135/text#textual-reverse__0
    (lambda (_txt95827_)
      (let ((_text95829_
             (if (string? _txt95827_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt95827_)
                 (if (##structure-instance-of?
                      _txt95827_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt95827_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-reverse__textual-reverse
                      _txt95827_)))))
        (std/srfi/srfi-135/text#textual-reverse__textual-reverse
         _text95829_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text95829_)))))
  (define std/srfi/srfi-135/text#textual-reverse__1
    (lambda (_txt95832_ _start95833_)
      (let* ((_text95835_
              (if (string? _txt95832_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt95832_)
                  (if (##structure-instance-of?
                       _txt95832_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt95832_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-reverse__textual-reverse
                       _txt95832_
                       _start95833_))))
             (_n95837_ (std/srfi/srfi-135/kernel8#%text-length _text95835_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start95833_)
                 (<= '0 _start95833_ _n95837_))
            (std/srfi/srfi-135/text#textual-reverse__textual-reverse
             _text95835_
             _start95833_
             _n95837_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-reverse
             _txt95832_
             _start95833_)))))
  (define std/srfi/srfi-135/text#textual-reverse__2
    (lambda (_txt95841_ _start95842_ _end95843_)
      (let* ((_text95845_
              (if (string? _txt95841_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt95841_)
                  (if (##structure-instance-of?
                       _txt95841_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt95841_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-reverse__textual-reverse
                       _txt95841_
                       _start95842_
                       _end95843_))))
             (_n95847_ (std/srfi/srfi-135/kernel8#%text-length _text95845_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start95842_)
                 (std/srfi/srfi-135/etc#exact-integer? _end95843_)
                 (<= '0 _start95842_ _end95843_ _n95847_))
            (std/srfi/srfi-135/text#textual-reverse__textual-reverse
             _text95845_
             _start95842_
             _end95843_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-reverse
             _txt95841_
             _start95842_
             _end95843_)))))
  (define std/srfi/srfi-135/text#textual-reverse
    (lambda _g97421_
      (let ((_g97420_ (length _g97421_)))
        (cond ((##fx= _g97420_ 1)
               (apply std/srfi/srfi-135/text#textual-reverse__0 _g97421_))
              ((##fx= _g97420_ 2)
               (apply std/srfi/srfi-135/text#textual-reverse__1 _g97421_))
              ((##fx= _g97420_ 3)
               (apply std/srfi/srfi-135/text#textual-reverse__2 _g97421_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-reverse
                _g97421_))))))
  (define std/srfi/srfi-135/text#textual-replicate__0
    (lambda (_s95771_ _from95772_ _to95773_ _start95774_ _end95775_)
      (let ((_s95777_
             (if (string? _s95771_)
                 (std/srfi/srfi-135/kernel8#%string->text _s95771_)
                 (if (##structure-instance-of?
                      _s95771_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _s95771_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-replicate
                      _s95771_
                      _from95772_
                      _to95773_
                      _start95774_
                      _end95775_)))))
        (std/srfi/srfi-135/text#textual-replicate__2
         (std/srfi/srfi-135/kernel8#subtext _s95777_ _start95774_ _end95775_)
         _from95772_
         _to95773_))))
  (define std/srfi/srfi-135/text#textual-replicate__1
    (lambda (_s95779_ _from95780_ _to95781_ _start95782_)
      (let ((_s95784_
             (if (string? _s95779_)
                 (std/srfi/srfi-135/kernel8#%string->text _s95779_)
                 (if (##structure-instance-of?
                      _s95779_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _s95779_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-replicate
                      _s95779_
                      _from95780_
                      _to95781_
                      _start95782_)))))
        (std/srfi/srfi-135/text#textual-replicate__2
         (std/srfi/srfi-135/kernel8#subtext
          _s95784_
          _start95782_
          (std/srfi/srfi-135/text#textual-length _s95784_))
         _from95780_
         _to95781_))))
  (define std/srfi/srfi-135/text#textual-replicate__2
    (lambda (_s095786_ _from95787_ _to95788_)
      (let* ((_s95790_
              (if (string? _s095786_)
                  (std/srfi/srfi-135/kernel8#%string->text _s095786_)
                  (if (##structure-instance-of?
                       _s095786_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _s095786_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-replicate
                       _s095786_
                       _from95787_
                       _to95788_))))
             (_n95792_ (- _to95788_ _from95787_))
             (_len95794_ (std/srfi/srfi-135/kernel8#%text-length _s95790_)))
        (if (= _n95792_ '0)
            '""
            (if (or (< _n95792_ '0) (= _len95794_ '0))
                (std/srfi/srfi-135/kernel8#complain
                 'textual-replicate
                 _s95790_
                 _from95787_
                 _to95788_)
                (let* ((_from95800_
                        (std/srfi/srfi-135/etc#mod _from95787_ _len95794_))
                       (_to95802_ (+ _from95800_ _n95792_)))
                  (let _$loop95805_ ((_replicates95808_ '())
                                     (_replicates-length95809_ '0))
                    (if (>= _replicates-length95809_ _to95802_)
                        (std/srfi/srfi-135/kernel8#subtext
                         (apply std/srfi/srfi-135/text#textual-append
                                _replicates95808_)
                         _from95800_
                         _to95802_)
                        (_$loop95805_
                         (cons _s95790_ _replicates95808_)
                         (+ _replicates-length95809_ _len95794_))))))))))
  (define std/srfi/srfi-135/text#textual-replicate
    (lambda _g97423_
      (let ((_g97422_ (length _g97423_)))
        (cond ((##fx= _g97422_ 5)
               (apply std/srfi/srfi-135/text#textual-replicate__0 _g97423_))
              ((##fx= _g97422_ 4)
               (apply std/srfi/srfi-135/text#textual-replicate__1 _g97423_))
              ((##fx= _g97422_ 3)
               (apply std/srfi/srfi-135/text#textual-replicate__2 _g97423_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-replicate
                _g97423_))))))
  (define std/srfi/srfi-135/text#textual-split__0
    (lambda (_s95725_
             _delimiter95726_
             _grammar95727_
             _limit95728_
             _start95729_
             _end95730_)
      (std/srfi/srfi-135/text#textual-split__4
       (std/srfi/srfi-135/text#subtextual _s95725_ _start95729_ _end95730_)
       _delimiter95726_
       _grammar95727_
       _limit95728_)))
  (define std/srfi/srfi-135/text#textual-split__1
    (lambda (_s95732_
             _delimiter95733_
             _grammar95734_
             _limit95735_
             _start95736_)
      (std/srfi/srfi-135/text#textual-split__4
       (std/srfi/srfi-135/text#subtextual
        _s95732_
        _start95736_
        (std/srfi/srfi-135/text#textual-length _s95732_))
       _delimiter95733_
       _grammar95734_
       _limit95735_)))
  (define std/srfi/srfi-135/text#textual-split__2
    (lambda (_s95738_ _delimiter95739_)
      (std/srfi/srfi-135/text#textual-split__4
       _s95738_
       _delimiter95739_
       'infix
       '#f)))
  (define std/srfi/srfi-135/text#textual-split__3
    (lambda (_s95741_ _delimiter95742_ _grammar95743_)
      (std/srfi/srfi-135/text#textual-split__4
       _s95741_
       _delimiter95742_
       _grammar95743_
       '#f)))
  (define std/srfi/srfi-135/text#textual-split__4
    (lambda (_s095745_ _delimiter95746_ _grammar95747_ _limit95748_)
      (letrec ((_bad-arguments95750_
                (lambda ()
                  (std/srfi/srfi-135/kernel8#complain
                   'textual-split
                   _s095745_
                   _delimiter95746_
                   _grammar95747_
                   _limit95748_))))
        (let* ((_s95752_
                (if (string? _s095745_)
                    (std/srfi/srfi-135/kernel8#%string->text _s095745_)
                    (if (##structure-instance-of?
                         _s095745_
                         'std/srfi/srfi-135/kernel8#text-rtd)
                        _s095745_
                        (std/srfi/srfi-135/kernel8#complain
                         'textual-split
                         _s095745_
                         _delimiter95746_
                         _grammar95747_
                         _limit95748_))))
               (_delimiter95754_
                (if (string? _delimiter95746_)
                    (std/srfi/srfi-135/kernel8#%string->text _delimiter95746_)
                    (if (##structure-instance-of?
                         _delimiter95746_
                         'std/srfi/srfi-135/kernel8#text-rtd)
                        _delimiter95746_
                        (std/srfi/srfi-135/kernel8#complain
                         'textual-split
                         _s095745_
                         _delimiter95746_
                         _grammar95747_
                         _limit95748_))))
               (_limit95759_
                (let ((_$e95756_ _limit95748_))
                  (if _$e95756_
                      _$e95756_
                      (std/srfi/srfi-135/kernel8#%text-length _s95752_))))
               (_splits95761_
                (if (= '0
                       (std/srfi/srfi-135/kernel8#%text-length
                        _delimiter95754_))
                    (std/srfi/srfi-135/text#%text-split-into-characters
                     _s95752_
                     _limit95759_)
                    (std/srfi/srfi-135/text#%text-split-using-word
                     _s95752_
                     _delimiter95754_
                     _limit95759_))))
          (let ((_$e95764_ _grammar95747_))
            (if (or (eq? 'infix _$e95764_) (eq? 'strict-infix _$e95764_))
                (if (= '0 (std/srfi/srfi-135/kernel8#%text-length _s95752_))
                    (if (eq? _grammar95747_ 'infix) '() (_bad-arguments95750_))
                    _splits95761_)
                (if (eq? 'prefix _$e95764_)
                    (if (and (pair? _splits95761_)
                             (= '0
                                (std/srfi/srfi-135/kernel8#%text-length
                                 (car _splits95761_))))
                        (cdr _splits95761_)
                        _splits95761_)
                    (if (eq? 'suffix _$e95764_)
                        (if (and (pair? _splits95761_)
                                 (= '0
                                    (std/srfi/srfi-135/kernel8#%text-length
                                     (car (std/srfi/srfi-135/etc#last-pair
                                           _splits95761_)))))
                            (reverse (cdr (reverse _splits95761_)))
                            _splits95761_)
                        (_bad-arguments95750_)))))))))
  (define std/srfi/srfi-135/text#textual-split
    (lambda _g97425_
      (let ((_g97424_ (length _g97425_)))
        (cond ((##fx= _g97424_ 6)
               (apply std/srfi/srfi-135/text#textual-split__0 _g97425_))
              ((##fx= _g97424_ 5)
               (apply std/srfi/srfi-135/text#textual-split__1 _g97425_))
              ((##fx= _g97424_ 2)
               (apply std/srfi/srfi-135/text#textual-split__2 _g97425_))
              ((##fx= _g97424_ 3)
               (apply std/srfi/srfi-135/text#textual-split__3 _g97425_))
              ((##fx= _g97424_ 4)
               (apply std/srfi/srfi-135/text#textual-split__4 _g97425_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-split
                _g97425_))))))
  (define std/srfi/srfi-135/text#%text-split-into-characters
    (lambda (_s95720_ _limit95721_)
      (let ((_n95723_ (std/srfi/srfi-135/kernel8#%text-length _s95720_)))
        (if (> _n95723_ (+ _limit95721_ '1))
            (append (std/srfi/srfi-135/text#%text-split-into-characters
                     (std/srfi/srfi-135/kernel8#subtext
                      _s95720_
                      '0
                      _limit95721_)
                     _limit95721_)
                    (list (std/srfi/srfi-135/kernel8#subtext
                           _s95720_
                           _limit95721_
                           _n95723_)))
            (map std/srfi/srfi-135/text#text
                 (std/srfi/srfi-135/text#textual->list__0 _s95720_))))))
  (define std/srfi/srfi-135/text#%text-split-using-word
    (lambda (_txt95708_ _sep95709_ _limit95710_)
      (let _loop95712_ ((_i95714_ '0)
                        (_limit95715_ _limit95710_)
                        (_texts95716_ '()))
        (if (= '0 _limit95715_)
            (reverse (cons (std/srfi/srfi-135/kernel8#subtext
                            _txt95708_
                            _i95714_
                            (std/srfi/srfi-135/kernel8#%text-length
                             _txt95708_))
                           _texts95716_))
            (let ((_i295718_
                   (std/srfi/srfi-135/text#textual-contains
                    _txt95708_
                    _sep95709_
                    _i95714_)))
              (if _i295718_
                  (_loop95712_
                   (+ _i295718_
                      (std/srfi/srfi-135/kernel8#%text-length _sep95709_))
                   (- _limit95715_ '1)
                   (cons (std/srfi/srfi-135/kernel8#subtext
                          _txt95708_
                          _i95714_
                          _i295718_)
                         _texts95716_))
                  (_loop95712_ _i95714_ '0 _texts95716_))))))))
