(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/srfi-135/text#textual?
    (lambda (_x2057_)
      (let ((_$e2059_
             (let ()
               (declare (not safe))
               (##structure-instance-of?
                _x2057_
                'std/srfi/srfi-135/kernel8#text-rtd))))
        (if _$e2059_ _$e2059_ (string? _x2057_)))))
  (define std/srfi/srfi-135/text#textual-null?
    (lambda (_txt2055_)
      (= '0 (std/srfi/srfi-135/text#textual-length _txt2055_))))
  (define std/srfi/srfi-135/text#textual-every__textual-every
    (lambda (_pred2016_ _textual2017_ _start2018_ _end2019_)
      (if (= _start2018_ _end2019_)
          '#t
          (let ((_end-12021_ (- _end2019_ '1)))
            (let _loop2023_ ((_i2025_ _start2018_))
              (if (= _i2025_ _end-12021_)
                  (_pred2016_
                   (std/srfi/srfi-135/kernel8#%text-ref _textual2017_ _i2025_))
                  (if (_pred2016_
                       (std/srfi/srfi-135/kernel8#%text-ref
                        _textual2017_
                        _i2025_))
                      (_loop2023_ (+ _i2025_ '1))
                      '#f)))))))
  (define std/srfi/srfi-135/text#textual-every__0
    (lambda (_pred2029_ _textual2030_)
      (let ((_text2032_
             (if (string? _textual2030_)
                 (std/srfi/srfi-135/kernel8#%string->text _textual2030_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _textual2030_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _textual2030_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-every__textual-every
                      _pred2029_
                      _textual2030_)))))
        (std/srfi/srfi-135/text#textual-every__textual-every
         _pred2029_
         _text2032_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text2032_)))))
  (define std/srfi/srfi-135/text#textual-every__1
    (lambda (_pred2035_ _textual2036_ _start2037_)
      (let* ((_text2039_
              (if (string? _textual2036_)
                  (std/srfi/srfi-135/kernel8#%string->text _textual2036_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _textual2036_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _textual2036_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-every__textual-every
                       _pred2035_
                       _textual2036_
                       _start2037_))))
             (_n2041_ (std/srfi/srfi-135/kernel8#%text-length _text2039_)))
        (if (and (exact-integer? _start2037_) (<= '0 _start2037_ _n2041_))
            (std/srfi/srfi-135/text#textual-every__textual-every
             _pred2035_
             _text2039_
             _start2037_
             _n2041_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-every
             _pred2035_
             _textual2036_
             _start2037_)))))
  (define std/srfi/srfi-135/text#textual-every__2
    (lambda (_pred2045_ _textual2046_ _start2047_ _end2048_)
      (let* ((_text2050_
              (if (string? _textual2046_)
                  (std/srfi/srfi-135/kernel8#%string->text _textual2046_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _textual2046_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _textual2046_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-every__textual-every
                       _pred2045_
                       _textual2046_
                       _start2047_
                       _end2048_))))
             (_n2052_ (std/srfi/srfi-135/kernel8#%text-length _text2050_)))
        (if (and (exact-integer? _start2047_)
                 (exact-integer? _end2048_)
                 (<= '0 _start2047_ _end2048_ _n2052_))
            (std/srfi/srfi-135/text#textual-every__textual-every
             _pred2045_
             _text2050_
             _start2047_
             _end2048_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-every
             _pred2045_
             _textual2046_
             _start2047_
             _end2048_)))))
  (define std/srfi/srfi-135/text#textual-every
    (lambda _g5661_
      (let ((_g5660_ (let () (declare (not safe)) (##length _g5661_))))
        (cond ((let () (declare (not safe)) (##fx= _g5660_ 2))
               (apply std/srfi/srfi-135/text#textual-every__0 _g5661_))
              ((let () (declare (not safe)) (##fx= _g5660_ 3))
               (apply std/srfi/srfi-135/text#textual-every__1 _g5661_))
              ((let () (declare (not safe)) (##fx= _g5660_ 4))
               (apply std/srfi/srfi-135/text#textual-every__2 _g5661_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-every
                _g5661_))))))
  (define std/srfi/srfi-135/text#textual-any__textual-any
    (lambda (_pred1976_ _textual1977_ _start1978_ _end1979_)
      (let _loop1981_ ((_i1983_ _start1978_))
        (if (= _i1983_ _end1979_)
            '#f
            (let ((_$e1985_
                   (_pred1976_
                    (std/srfi/srfi-135/kernel8#%text-ref
                     _textual1977_
                     _i1983_))))
              (if _$e1985_ _$e1985_ (_loop1981_ (+ _i1983_ '1))))))))
  (define std/srfi/srfi-135/text#textual-any__0
    (lambda (_pred1990_ _textual1991_)
      (let ((_text1993_
             (if (string? _textual1991_)
                 (std/srfi/srfi-135/kernel8#%string->text _textual1991_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _textual1991_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _textual1991_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-any__textual-any
                      _pred1990_
                      _textual1991_)))))
        (std/srfi/srfi-135/text#textual-any__textual-any
         _pred1990_
         _text1993_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text1993_)))))
  (define std/srfi/srfi-135/text#textual-any__1
    (lambda (_pred1996_ _textual1997_ _start1998_)
      (let* ((_text2000_
              (if (string? _textual1997_)
                  (std/srfi/srfi-135/kernel8#%string->text _textual1997_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _textual1997_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _textual1997_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-any__textual-any
                       _pred1996_
                       _textual1997_
                       _start1998_))))
             (_n2002_ (std/srfi/srfi-135/kernel8#%text-length _text2000_)))
        (if (and (exact-integer? _start1998_) (<= '0 _start1998_ _n2002_))
            (std/srfi/srfi-135/text#textual-any__textual-any
             _pred1996_
             _text2000_
             _start1998_
             _n2002_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-any
             _pred1996_
             _textual1997_
             _start1998_)))))
  (define std/srfi/srfi-135/text#textual-any__2
    (lambda (_pred2006_ _textual2007_ _start2008_ _end2009_)
      (let* ((_text2011_
              (if (string? _textual2007_)
                  (std/srfi/srfi-135/kernel8#%string->text _textual2007_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _textual2007_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _textual2007_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-any__textual-any
                       _pred2006_
                       _textual2007_
                       _start2008_
                       _end2009_))))
             (_n2013_ (std/srfi/srfi-135/kernel8#%text-length _text2011_)))
        (if (and (exact-integer? _start2008_)
                 (exact-integer? _end2009_)
                 (<= '0 _start2008_ _end2009_ _n2013_))
            (std/srfi/srfi-135/text#textual-any__textual-any
             _pred2006_
             _text2011_
             _start2008_
             _end2009_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-any
             _pred2006_
             _textual2007_
             _start2008_
             _end2009_)))))
  (define std/srfi/srfi-135/text#textual-any
    (lambda _g5663_
      (let ((_g5662_ (let () (declare (not safe)) (##length _g5663_))))
        (cond ((let () (declare (not safe)) (##fx= _g5662_ 2))
               (apply std/srfi/srfi-135/text#textual-any__0 _g5663_))
              ((let () (declare (not safe)) (##fx= _g5662_ 3))
               (apply std/srfi/srfi-135/text#textual-any__1 _g5663_))
              ((let () (declare (not safe)) (##fx= _g5662_ 4))
               (apply std/srfi/srfi-135/text#textual-any__2 _g5663_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-any
                _g5663_))))))
  (define std/srfi/srfi-135/text#make-text
    (lambda (_n1971_ _c1972_)
      (std/srfi/srfi-135/kernel8#text-tabulate
       (lambda (_i1974_) _c1972_)
       _n1971_)))
  (define std/srfi/srfi-135/text#text
    (lambda _chars1969_
      (std/srfi/srfi-135/kernel8#%string->text (list->string _chars1969_))))
  (define std/srfi/srfi-135/text#text-unfold__0
    (lambda (_stop?1917_ _mapper1918_ _succ1919_ _seed1920_)
      (std/srfi/srfi-135/text#text-unfold__2
       _stop?1917_
       _mapper1918_
       _succ1919_
       _seed1920_
       (std/srfi/srfi-135/text#text)
       (lambda (_x1922_) (std/srfi/srfi-135/text#text)))))
  (define std/srfi/srfi-135/text#text-unfold__1
    (lambda (_stop?1924_ _mapper1925_ _succ1926_ _seed1927_ _base1928_)
      (std/srfi/srfi-135/text#text-unfold__2
       _stop?1924_
       _mapper1925_
       _succ1926_
       _seed1927_
       _base1928_
       (lambda (_x1930_) (std/srfi/srfi-135/text#text)))))
  (define std/srfi/srfi-135/text#text-unfold__2
    (lambda (_stop?1932_
             _mapper1933_
             _succ1934_
             _seed1935_
             _base1936_
             _make-final1937_)
      (let* ((_txt1939_
              (if (string? (if (char? _base1936_)
                               (std/srfi/srfi-135/text#text _base1936_)
                               _base1936_))
                  (std/srfi/srfi-135/kernel8#%string->text
                   (if (char? _base1936_)
                       (std/srfi/srfi-135/text#text _base1936_)
                       _base1936_))
                  (if (let ((__tmp5664
                             (if (char? _base1936_)
                                 (std/srfi/srfi-135/text#text _base1936_)
                                 _base1936_)))
                        (declare (not safe))
                        (##structure-instance-of?
                         __tmp5664
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      (if (char? _base1936_)
                          (std/srfi/srfi-135/text#text _base1936_)
                          _base1936_)
                      (std/srfi/srfi-135/kernel8#complain
                       'text-unfold
                       _stop?1932_
                       _mapper1933_
                       _succ1934_
                       _seed1935_
                       _base1936_
                       _make-final1937_))))
             (_k1941_ (std/srfi/srfi-135/kernel8#%text-length _txt1939_)))
        (let _loop1944_ ((_k1946_ _k1941_)
                         (_texts1947_ (list _txt1939_))
                         (_chars1948_ '())
                         (_seed1949_ _seed1935_))
          (if (>= _k1946_ std/srfi/srfi-135/kernel8#N)
              (let* ((_k/N1951_ (quotient _k1946_ std/srfi/srfi-135/kernel8#N))
                     (_k1953_ (- _k1946_
                                 (* _k/N1951_ std/srfi/srfi-135/kernel8#N)))
                     (_texts1955_
                      (cons (std/srfi/srfi-135/text#reverse-list->text
                             (list-tail _chars1948_ _k1953_))
                            _texts1947_))
                     (_chars1957_
                      (std/srfi/srfi-135/etc#list-take _chars1948_ _k1953_)))
                (_loop1944_ _k1953_ _texts1955_ _chars1957_ _seed1949_))
              (if (_stop?1932_ _seed1949_)
                  (let* ((_texts1960_
                          (if (null? _chars1948_)
                              _texts1947_
                              (cons (std/srfi/srfi-135/text#reverse-list->text
                                     _chars1948_)
                                    _texts1947_)))
                         (_final1962_ (_make-final1937_ _seed1949_))
                         (_final1964_
                          (if (char? _final1962_)
                              (std/srfi/srfi-135/text#text _final1962_)
                              (if (string? _final1962_)
                                  (std/srfi/srfi-135/kernel8#%string->text
                                   _final1962_)
                                  (if (let ()
                                        (declare (not safe))
                                        (##structure-instance-of?
                                         _final1962_
                                         'std/srfi/srfi-135/kernel8#text-rtd))
                                      _final1962_
                                      (std/srfi/srfi-135/text#%bad-final
                                       'text-unfold
                                       _final1962_))))))
                    (std/srfi/srfi-135/text#textual-concatenate-reverse__1
                     _texts1960_
                     _final1964_))
                  (let ((_x1967_ (_mapper1933_ _seed1949_)))
                    (if (char? _x1967_)
                        (_loop1944_
                         (+ _k1946_ '1)
                         _texts1947_
                         (cons _x1967_ _chars1948_)
                         (_succ1934_ _seed1949_))
                        (if (string? _x1967_)
                            (_loop1944_
                             (+ _k1946_ (string-length _x1967_))
                             _texts1947_
                             (append (reverse (string->list _x1967_))
                                     _chars1948_)
                             (_succ1934_ _seed1949_))
                            (if (let ()
                                  (declare (not safe))
                                  (##structure-instance-of?
                                   _x1967_
                                   'std/srfi/srfi-135/kernel8#text-rtd))
                                (_loop1944_
                                 (+ _k1946_
                                    (std/srfi/srfi-135/kernel8#%text-length
                                     _x1967_))
                                 _texts1947_
                                 (append (reverse (std/srfi/srfi-135/text#textual->list__0
                                                   _x1967_))
                                         _chars1948_)
                                 (_succ1934_ _seed1949_))
                                (std/srfi/srfi-135/kernel8#complain
                                 'text-unfold
                                 _stop?1932_
                                 _mapper1933_
                                 _succ1934_
                                 _seed1949_
                                 _base1936_
                                 _make-final1937_)))))))))))
  (define std/srfi/srfi-135/text#text-unfold
    (lambda _g5666_
      (let ((_g5665_ (let () (declare (not safe)) (##length _g5666_))))
        (cond ((let () (declare (not safe)) (##fx= _g5665_ 4))
               (apply std/srfi/srfi-135/text#text-unfold__0 _g5666_))
              ((let () (declare (not safe)) (##fx= _g5665_ 5))
               (apply std/srfi/srfi-135/text#text-unfold__1 _g5666_))
              ((let () (declare (not safe)) (##fx= _g5665_ 6))
               (apply std/srfi/srfi-135/text#text-unfold__2 _g5666_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#text-unfold
                _g5666_))))))
  (define std/srfi/srfi-135/text#text-unfold-right__0
    (lambda (_stop?1865_ _mapper1866_ _succ1867_ _seed1868_)
      (std/srfi/srfi-135/text#text-unfold-right__2
       _stop?1865_
       _mapper1866_
       _succ1867_
       _seed1868_
       (std/srfi/srfi-135/text#text)
       (lambda (_x1870_) (std/srfi/srfi-135/text#text)))))
  (define std/srfi/srfi-135/text#text-unfold-right__1
    (lambda (_stop?1872_ _mapper1873_ _succ1874_ _seed1875_ _base1876_)
      (std/srfi/srfi-135/text#text-unfold-right__2
       _stop?1872_
       _mapper1873_
       _succ1874_
       _seed1875_
       _base1876_
       (lambda (_x1878_) (std/srfi/srfi-135/text#text)))))
  (define std/srfi/srfi-135/text#text-unfold-right__2
    (lambda (_stop?1880_
             _mapper1881_
             _succ1882_
             _seed1883_
             _base1884_
             _make-final1885_)
      (let* ((_txt1887_
              (if (string? (if (char? _base1884_)
                               (std/srfi/srfi-135/text#text _base1884_)
                               _base1884_))
                  (std/srfi/srfi-135/kernel8#%string->text
                   (if (char? _base1884_)
                       (std/srfi/srfi-135/text#text _base1884_)
                       _base1884_))
                  (if (let ((__tmp5667
                             (if (char? _base1884_)
                                 (std/srfi/srfi-135/text#text _base1884_)
                                 _base1884_)))
                        (declare (not safe))
                        (##structure-instance-of?
                         __tmp5667
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      (if (char? _base1884_)
                          (std/srfi/srfi-135/text#text _base1884_)
                          _base1884_)
                      (std/srfi/srfi-135/kernel8#complain
                       'text-unfold-right
                       _stop?1880_
                       _mapper1881_
                       _succ1882_
                       _seed1883_
                       _base1884_
                       _make-final1885_))))
             (_k1889_ (std/srfi/srfi-135/kernel8#%text-length _txt1887_)))
        (let _loop1892_ ((_k1894_ _k1889_)
                         (_texts1895_ (list _txt1887_))
                         (_chars1896_ '())
                         (_seed1897_ _seed1883_))
          (if (>= _k1894_ std/srfi/srfi-135/kernel8#N)
              (let* ((_k/N1899_ (quotient _k1894_ std/srfi/srfi-135/kernel8#N))
                     (_k1901_ (- _k1894_
                                 (* _k/N1899_ std/srfi/srfi-135/kernel8#N)))
                     (_texts1903_
                      (cons (std/srfi/srfi-135/text#list->text
                             (list-tail _chars1896_ _k1901_))
                            _texts1895_))
                     (_chars1905_
                      (std/srfi/srfi-135/etc#list-take _chars1896_ _k1901_)))
                (_loop1892_ _k1901_ _texts1903_ _chars1905_ _seed1897_))
              (if (_stop?1880_ _seed1897_)
                  (let* ((_texts1908_
                          (if (null? _chars1896_)
                              _texts1895_
                              (cons (std/srfi/srfi-135/text#list->text
                                     _chars1896_)
                                    _texts1895_)))
                         (_final1910_ (_make-final1885_ _seed1897_))
                         (_final1912_
                          (if (char? _final1910_)
                              (std/srfi/srfi-135/text#text _final1910_)
                              (if (string? _final1910_)
                                  (std/srfi/srfi-135/kernel8#%string->text
                                   _final1910_)
                                  (if (let ()
                                        (declare (not safe))
                                        (##structure-instance-of?
                                         _final1910_
                                         'std/srfi/srfi-135/kernel8#text-rtd))
                                      _final1910_
                                      (std/srfi/srfi-135/text#%bad-final
                                       'text-unfold-right
                                       _final1910_))))))
                    (std/srfi/srfi-135/kernel8#textual-concatenate
                     (cons _final1912_ _texts1908_)))
                  (let ((_x1915_ (_mapper1881_ _seed1897_)))
                    (if (char? _x1915_)
                        (_loop1892_
                         (+ _k1894_ '1)
                         _texts1895_
                         (cons _x1915_ _chars1896_)
                         (_succ1882_ _seed1897_))
                        (if (string? _x1915_)
                            (_loop1892_
                             (+ _k1894_ (string-length _x1915_))
                             _texts1895_
                             (append (string->list _x1915_) _chars1896_)
                             (_succ1882_ _seed1897_))
                            (if (let ()
                                  (declare (not safe))
                                  (##structure-instance-of?
                                   _x1915_
                                   'std/srfi/srfi-135/kernel8#text-rtd))
                                (_loop1892_
                                 (+ _k1894_
                                    (std/srfi/srfi-135/kernel8#%text-length
                                     _x1915_))
                                 _texts1895_
                                 (append (std/srfi/srfi-135/text#textual->list__0
                                          _x1915_)
                                         _chars1896_)
                                 (_succ1882_ _seed1897_))
                                (std/srfi/srfi-135/kernel8#complain
                                 'text-unfold-right
                                 _stop?1880_
                                 _mapper1881_
                                 _succ1882_
                                 _seed1897_
                                 _base1884_
                                 _make-final1885_)))))))))))
  (define std/srfi/srfi-135/text#text-unfold-right
    (lambda _g5669_
      (let ((_g5668_ (let () (declare (not safe)) (##length _g5669_))))
        (cond ((let () (declare (not safe)) (##fx= _g5668_ 4))
               (apply std/srfi/srfi-135/text#text-unfold-right__0 _g5669_))
              ((let () (declare (not safe)) (##fx= _g5668_ 5))
               (apply std/srfi/srfi-135/text#text-unfold-right__1 _g5669_))
              ((let () (declare (not safe)) (##fx= _g5668_ 6))
               (apply std/srfi/srfi-135/text#text-unfold-right__2 _g5669_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#text-unfold-right
                _g5669_))))))
  (define std/srfi/srfi-135/text#%bad-final
    (lambda (_name1862_ _final1863_)
      (error (string-append
              (symbol->string _name1862_)
              '" : make-final returned illegal value : ")
             _final1863_)))
  (define std/srfi/srfi-135/text#textual->text
    (lambda (_x1859_ . _rest1860_)
      (if (string? _x1859_)
          (std/srfi/srfi-135/kernel8#%string->text _x1859_)
          (if (let ()
                (declare (not safe))
                (##structure-instance-of?
                 _x1859_
                 'std/srfi/srfi-135/kernel8#text-rtd))
              _x1859_
              (if (null? _rest1860_)
                  (error '"illegal argument passed to textual->text : "
                         _x1859_)
                  (apply error _rest1860_))))))
  (define std/srfi/srfi-135/text#textual->string__0
    (lambda (_txt1838_)
      (if (string? _txt1838_)
          _txt1838_
          (std/srfi/srfi-135/text#textual->string__2
           _txt1838_
           '0
           (std/srfi/srfi-135/text#textual-length _txt1838_)))))
  (define std/srfi/srfi-135/text#textual->string__1
    (lambda (_txt1840_ _start1841_)
      (if (string? _txt1840_)
          (substring _txt1840_ _start1841_ (string-length _txt1840_))
          (std/srfi/srfi-135/text#textual->string__2
           _txt1840_
           _start1841_
           (std/srfi/srfi-135/text#textual-length _txt1840_)))))
  (define std/srfi/srfi-135/text#textual->string__2
    (lambda (_txt1843_ _start1844_ _end1845_)
      (let* ((_txt1847_
              (if (string? _txt1843_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt1843_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt1843_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt1843_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual->string
                       _txt1843_
                       _start1844_
                       _end1845_))))
             (_n1849_ (- _end1845_ _start1844_))
             (_s1851_ (make-string _n1849_)))
        (let _$loop1854_ ((_i1857_ _start1844_))
          (if (= _i1857_ _end1845_)
              _s1851_
              (begin
                (string-set!
                 _s1851_
                 (- _i1857_ _start1844_)
                 (std/srfi/srfi-135/kernel8#%text-ref _txt1847_ _i1857_))
                (_$loop1854_ (+ _i1857_ '1))))))))
  (define std/srfi/srfi-135/text#textual->string
    (lambda _g5671_
      (let ((_g5670_ (let () (declare (not safe)) (##length _g5671_))))
        (cond ((let () (declare (not safe)) (##fx= _g5670_ 1))
               (apply std/srfi/srfi-135/text#textual->string__0 _g5671_))
              ((let () (declare (not safe)) (##fx= _g5670_ 2))
               (apply std/srfi/srfi-135/text#textual->string__1 _g5671_))
              ((let () (declare (not safe)) (##fx= _g5670_ 3))
               (apply std/srfi/srfi-135/text#textual->string__2 _g5671_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual->string
                _g5671_))))))
  (define std/srfi/srfi-135/text#textual->vector__textual->vector
    (lambda (_txt1809_ _start1810_ _end1811_)
      (list->vector
       (string->list
        (std/srfi/srfi-135/text#textual->string__0
         (std/srfi/srfi-135/kernel8#subtext
          _txt1809_
          _start1810_
          _end1811_))))))
  (define std/srfi/srfi-135/text#textual->vector__0
    (lambda (_txt1815_)
      (let ((_text1817_
             (if (string? _txt1815_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1815_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1815_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1815_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual->vector__textual->vector
                      _txt1815_)))))
        (std/srfi/srfi-135/text#textual->vector__textual->vector
         _text1817_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text1817_)))))
  (define std/srfi/srfi-135/text#textual->vector__1
    (lambda (_txt1820_ _start1821_)
      (let* ((_text1823_
              (if (string? _txt1820_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt1820_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt1820_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt1820_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual->vector__textual->vector
                       _txt1820_
                       _start1821_))))
             (_n1825_ (std/srfi/srfi-135/kernel8#%text-length _text1823_)))
        (if (and (exact-integer? _start1821_) (<= '0 _start1821_ _n1825_))
            (std/srfi/srfi-135/text#textual->vector__textual->vector
             _text1823_
             _start1821_
             _n1825_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->vector
             _txt1820_
             _start1821_)))))
  (define std/srfi/srfi-135/text#textual->vector__2
    (lambda (_txt1829_ _start1830_ _end1831_)
      (let* ((_text1833_
              (if (string? _txt1829_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt1829_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt1829_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt1829_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual->vector__textual->vector
                       _txt1829_
                       _start1830_
                       _end1831_))))
             (_n1835_ (std/srfi/srfi-135/kernel8#%text-length _text1833_)))
        (if (and (exact-integer? _start1830_)
                 (exact-integer? _end1831_)
                 (<= '0 _start1830_ _end1831_ _n1835_))
            (std/srfi/srfi-135/text#textual->vector__textual->vector
             _text1833_
             _start1830_
             _end1831_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->vector
             _txt1829_
             _start1830_
             _end1831_)))))
  (define std/srfi/srfi-135/text#textual->vector
    (lambda _g5673_
      (let ((_g5672_ (let () (declare (not safe)) (##length _g5673_))))
        (cond ((let () (declare (not safe)) (##fx= _g5672_ 1))
               (apply std/srfi/srfi-135/text#textual->vector__0 _g5673_))
              ((let () (declare (not safe)) (##fx= _g5672_ 2))
               (apply std/srfi/srfi-135/text#textual->vector__1 _g5673_))
              ((let () (declare (not safe)) (##fx= _g5672_ 3))
               (apply std/srfi/srfi-135/text#textual->vector__2 _g5673_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual->vector
                _g5673_))))))
  (define std/srfi/srfi-135/text#textual->list__textual->list
    (lambda (_txt1780_ _start1781_ _end1782_)
      (string->list
       (std/srfi/srfi-135/text#textual->string__0
        (std/srfi/srfi-135/kernel8#subtext _txt1780_ _start1781_ _end1782_)))))
  (define std/srfi/srfi-135/text#textual->list__0
    (lambda (_txt1786_)
      (let ((_text1788_
             (if (string? _txt1786_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1786_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1786_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1786_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual->list__textual->list
                      _txt1786_)))))
        (std/srfi/srfi-135/text#textual->list__textual->list
         _text1788_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text1788_)))))
  (define std/srfi/srfi-135/text#textual->list__1
    (lambda (_txt1791_ _start1792_)
      (let* ((_text1794_
              (if (string? _txt1791_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt1791_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt1791_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt1791_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual->list__textual->list
                       _txt1791_
                       _start1792_))))
             (_n1796_ (std/srfi/srfi-135/kernel8#%text-length _text1794_)))
        (if (and (exact-integer? _start1792_) (<= '0 _start1792_ _n1796_))
            (std/srfi/srfi-135/text#textual->list__textual->list
             _text1794_
             _start1792_
             _n1796_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->list
             _txt1791_
             _start1792_)))))
  (define std/srfi/srfi-135/text#textual->list__2
    (lambda (_txt1800_ _start1801_ _end1802_)
      (let* ((_text1804_
              (if (string? _txt1800_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt1800_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt1800_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt1800_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual->list__textual->list
                       _txt1800_
                       _start1801_
                       _end1802_))))
             (_n1806_ (std/srfi/srfi-135/kernel8#%text-length _text1804_)))
        (if (and (exact-integer? _start1801_)
                 (exact-integer? _end1802_)
                 (<= '0 _start1801_ _end1802_ _n1806_))
            (std/srfi/srfi-135/text#textual->list__textual->list
             _text1804_
             _start1801_
             _end1802_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->list
             _txt1800_
             _start1801_
             _end1802_)))))
  (define std/srfi/srfi-135/text#textual->list
    (lambda _g5675_
      (let ((_g5674_ (let () (declare (not safe)) (##length _g5675_))))
        (cond ((let () (declare (not safe)) (##fx= _g5674_ 1))
               (apply std/srfi/srfi-135/text#textual->list__0 _g5675_))
              ((let () (declare (not safe)) (##fx= _g5674_ 2))
               (apply std/srfi/srfi-135/text#textual->list__1 _g5675_))
              ((let () (declare (not safe)) (##fx= _g5674_ 3))
               (apply std/srfi/srfi-135/text#textual->list__2 _g5675_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual->list
                _g5675_))))))
  (define std/srfi/srfi-135/text#vector->text
    (lambda (_v1777_ . _start/end1778_)
      (std/srfi/srfi-135/kernel8#%string->text
       (list->string (apply vector->list _v1777_ _start/end1778_)))))
  (define std/srfi/srfi-135/text#list->text
    (lambda (_chars1774_ . _start/end1775_)
      (apply std/srfi/srfi-135/macros#string->text
             (list->string _chars1774_)
             _start/end1775_)))
  (define std/srfi/srfi-135/text#reverse-list->text
    (lambda (_chars1772_)
      (std/srfi/srfi-135/kernel8#%string->text
       (list->string (reverse _chars1772_)))))
  (define std/srfi/srfi-135/text#textual-length
    (lambda (_txt1770_)
      (if (string? _txt1770_)
          (string-length _txt1770_)
          (if (let ()
                (declare (not safe))
                (##structure-instance-of?
                 _txt1770_
                 'std/srfi/srfi-135/kernel8#text-rtd))
              (std/srfi/srfi-135/kernel8#%text-length _txt1770_)
              (std/srfi/srfi-135/kernel8#complain
               'textual-length
               _txt1770_)))))
  (define std/srfi/srfi-135/text#textual-ref
    (lambda (_txt1767_ _i1768_)
      (if (string? _txt1767_)
          (string-ref _txt1767_ _i1768_)
          (if (let ()
                (declare (not safe))
                (##structure-instance-of?
                 _txt1767_
                 'std/srfi/srfi-135/kernel8#text-rtd))
              (std/srfi/srfi-135/kernel8#%text-ref _txt1767_ _i1768_)
              (std/srfi/srfi-135/kernel8#complain 'textual-ref _txt1767_)))))
  (define std/srfi/srfi-135/text#subtextual
    (lambda (_txt1761_ _start1762_ _end1763_)
      (let ((_txt1765_
             (if (string? _txt1761_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1761_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1761_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1761_
                     (std/srfi/srfi-135/kernel8#complain
                      'subtextual
                      _txt1761_
                      _start1762_)))))
        (std/srfi/srfi-135/kernel8#subtext _txt1765_ _start1762_ _end1763_))))
  (define std/srfi/srfi-135/text#textual-copy__textual-copy
    (lambda (_text1732_ _start1733_ _end1734_)
      (std/srfi/srfi-135/kernel8#%string->text
       (std/srfi/srfi-135/text#textual->string__2
        _text1732_
        _start1733_
        _end1734_))))
  (define std/srfi/srfi-135/text#textual-copy__0
    (lambda (_text1738_)
      (let ((_text1740_
             (if (string? _text1738_)
                 (std/srfi/srfi-135/kernel8#%string->text _text1738_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _text1738_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _text1738_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-copy__textual-copy
                      _text1738_)))))
        (std/srfi/srfi-135/text#textual-copy__textual-copy
         _text1740_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text1740_)))))
  (define std/srfi/srfi-135/text#textual-copy__1
    (lambda (_text1743_ _start1744_)
      (let* ((_text1746_
              (if (string? _text1743_)
                  (std/srfi/srfi-135/kernel8#%string->text _text1743_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _text1743_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _text1743_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-copy__textual-copy
                       _text1743_
                       _start1744_))))
             (_n1748_ (std/srfi/srfi-135/kernel8#%text-length _text1746_)))
        (if (and (exact-integer? _start1744_) (<= '0 _start1744_ _n1748_))
            (std/srfi/srfi-135/text#textual-copy__textual-copy
             _text1746_
             _start1744_
             _n1748_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-copy
             _text1743_
             _start1744_)))))
  (define std/srfi/srfi-135/text#textual-copy__2
    (lambda (_text1752_ _start1753_ _end1754_)
      (let* ((_text1756_
              (if (string? _text1752_)
                  (std/srfi/srfi-135/kernel8#%string->text _text1752_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _text1752_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _text1752_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-copy__textual-copy
                       _text1752_
                       _start1753_
                       _end1754_))))
             (_n1758_ (std/srfi/srfi-135/kernel8#%text-length _text1756_)))
        (if (and (exact-integer? _start1753_)
                 (exact-integer? _end1754_)
                 (<= '0 _start1753_ _end1754_ _n1758_))
            (std/srfi/srfi-135/text#textual-copy__textual-copy
             _text1756_
             _start1753_
             _end1754_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-copy
             _text1752_
             _start1753_
             _end1754_)))))
  (define std/srfi/srfi-135/text#textual-copy
    (lambda _g5677_
      (let ((_g5676_ (let () (declare (not safe)) (##length _g5677_))))
        (cond ((let () (declare (not safe)) (##fx= _g5676_ 1))
               (apply std/srfi/srfi-135/text#textual-copy__0 _g5677_))
              ((let () (declare (not safe)) (##fx= _g5676_ 2))
               (apply std/srfi/srfi-135/text#textual-copy__1 _g5677_))
              ((let () (declare (not safe)) (##fx= _g5676_ 3))
               (apply std/srfi/srfi-135/text#textual-copy__2 _g5677_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-copy
                _g5677_))))))
  (define std/srfi/srfi-135/text#textual-take
    (lambda (_txt1727_ _nchars1728_)
      (let ((_txt1730_
             (if (string? _txt1727_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1727_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1727_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1727_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-take
                      _txt1727_
                      _nchars1728_)))))
        (std/srfi/srfi-135/text#subtextual _txt1730_ '0 _nchars1728_))))
  (define std/srfi/srfi-135/text#textual-drop
    (lambda (_txt1722_ _nchars1723_)
      (let ((_txt1725_
             (if (string? _txt1722_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1722_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1722_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1722_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-drop
                      _txt1722_
                      _nchars1723_)))))
        (std/srfi/srfi-135/text#subtextual
         _txt1725_
         _nchars1723_
         (std/srfi/srfi-135/kernel8#%text-length _txt1725_)))))
  (define std/srfi/srfi-135/text#textual-take-right
    (lambda (_txt1715_ _nchars1716_)
      (let* ((_txt1718_
              (if (string? _txt1715_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt1715_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt1715_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt1715_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-take-right
                       _txt1715_
                       _nchars1716_))))
             (_n1720_ (std/srfi/srfi-135/kernel8#%text-length _txt1718_)))
        (std/srfi/srfi-135/text#subtextual
         _txt1718_
         (- _n1720_ _nchars1716_)
         _n1720_))))
  (define std/srfi/srfi-135/text#textual-drop-right
    (lambda (_txt1708_ _nchars1709_)
      (let* ((_txt1711_
              (if (string? _txt1708_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt1708_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt1708_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt1708_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-drop-right
                       _txt1708_
                       _nchars1709_))))
             (_n1713_ (std/srfi/srfi-135/kernel8#%text-length _txt1711_)))
        (std/srfi/srfi-135/text#subtextual
         _txt1711_
         '0
         (- _n1713_ _nchars1709_)))))
  (define std/srfi/srfi-135/text#textual-pad__0
    (lambda (_txt1684_ _len1685_)
      (let ((_txt1687_
             (if (string? _txt1684_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1684_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1684_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1684_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad
                      _txt1684_
                      _len1685_)))))
        (std/srfi/srfi-135/text#%text-pad
         _txt1687_
         _len1685_
         '#\space
         '0
         (std/srfi/srfi-135/kernel8#%text-length _txt1687_)))))
  (define std/srfi/srfi-135/text#textual-pad__1
    (lambda (_txt1689_ _len1690_ _c1691_)
      (let ((_txt1693_
             (if (string? _txt1689_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1689_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1689_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1689_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad
                      _txt1689_
                      _len1690_
                      _c1691_)))))
        (std/srfi/srfi-135/text#%text-pad
         _txt1693_
         _len1690_
         _c1691_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _txt1693_)))))
  (define std/srfi/srfi-135/text#textual-pad__2
    (lambda (_txt1695_ _len1696_ _c1697_ _start1698_)
      (let ((_txt1700_
             (if (string? _txt1695_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1695_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1695_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1695_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad
                      _txt1695_
                      _len1696_
                      _c1697_
                      _start1698_)))))
        (std/srfi/srfi-135/text#%text-pad
         _txt1700_
         _len1696_
         _c1697_
         _start1698_
         (std/srfi/srfi-135/kernel8#%text-length _txt1700_)))))
  (define std/srfi/srfi-135/text#textual-pad__3
    (lambda (_txt1702_ _len1703_ _c1704_ _start1705_ _end1706_)
      (std/srfi/srfi-135/text#%text-pad
       (if (string? _txt1702_)
           (std/srfi/srfi-135/kernel8#%string->text _txt1702_)
           (if (let ()
                 (declare (not safe))
                 (##structure-instance-of?
                  _txt1702_
                  'std/srfi/srfi-135/kernel8#text-rtd))
               _txt1702_
               (std/srfi/srfi-135/kernel8#complain
                'textual-pad
                _txt1702_
                _len1703_
                _c1704_
                _start1705_
                _end1706_)))
       _len1703_
       _c1704_
       _start1705_
       _end1706_)))
  (define std/srfi/srfi-135/text#textual-pad
    (lambda _g5679_
      (let ((_g5678_ (let () (declare (not safe)) (##length _g5679_))))
        (cond ((let () (declare (not safe)) (##fx= _g5678_ 2))
               (apply std/srfi/srfi-135/text#textual-pad__0 _g5679_))
              ((let () (declare (not safe)) (##fx= _g5678_ 3))
               (apply std/srfi/srfi-135/text#textual-pad__1 _g5679_))
              ((let () (declare (not safe)) (##fx= _g5678_ 4))
               (apply std/srfi/srfi-135/text#textual-pad__2 _g5679_))
              ((let () (declare (not safe)) (##fx= _g5678_ 5))
               (apply std/srfi/srfi-135/text#textual-pad__3 _g5679_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-pad
                _g5679_))))))
  (define std/srfi/srfi-135/text#%text-pad
    (lambda (_txt1673_ _len1674_ _c1675_ _start1676_ _end1677_)
      (if (and (exact-integer? _len1674_)
               (char? _c1675_)
               (exact-integer? _start1676_)
               (exact-integer? _end1677_)
               (<= '0 _len1674_)
               (<= '0 _start1676_ _end1677_))
          (let* ((_n1679_ (std/srfi/srfi-135/kernel8#%text-length _txt1673_))
                 (_k1681_ (- _end1677_ _start1676_)))
            (if (not (<= _end1677_ _n1679_))
                (std/srfi/srfi-135/kernel8#complain
                 'textual-pad
                 _txt1673_
                 _len1674_
                 _c1675_
                 _start1676_
                 _end1677_)
                (if (= _n1679_ _k1681_ _len1674_)
                    _txt1673_
                    (if (= _k1681_ _len1674_)
                        (if (= _n1679_ _k1681_)
                            _txt1673_
                            (std/srfi/srfi-135/kernel8#subtext
                             _txt1673_
                             _start1676_
                             _end1677_))
                        (if (< _k1681_ _len1674_)
                            (std/srfi/srfi-135/text#textual-append
                             (std/srfi/srfi-135/text#make-text
                              (- _len1674_ _k1681_)
                              _c1675_)
                             (if (= _n1679_ _k1681_)
                                 _txt1673_
                                 (std/srfi/srfi-135/kernel8#subtext
                                  _txt1673_
                                  _start1676_
                                  _end1677_)))
                            (std/srfi/srfi-135/kernel8#subtext
                             _txt1673_
                             (- _end1677_ _len1674_)
                             _end1677_))))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-pad
           _txt1673_
           _len1674_
           _c1675_
           _start1676_
           _end1677_))))
  (define std/srfi/srfi-135/text#textual-pad-right__0
    (lambda (_txt1649_ _len1650_)
      (let ((_txt1652_
             (if (string? _txt1649_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1649_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1649_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1649_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad-right
                      _txt1649_
                      _len1650_)))))
        (std/srfi/srfi-135/text#%text-pad-right
         _txt1652_
         _len1650_
         '#\space
         '0
         (std/srfi/srfi-135/kernel8#%text-length _txt1652_)))))
  (define std/srfi/srfi-135/text#textual-pad-right__1
    (lambda (_txt1654_ _len1655_ _c1656_)
      (let ((_txt1658_
             (if (string? _txt1654_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1654_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1654_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1654_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad-right
                      _txt1654_
                      _len1655_
                      _c1656_)))))
        (std/srfi/srfi-135/text#%text-pad-right
         _txt1658_
         _len1655_
         _c1656_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _txt1658_)))))
  (define std/srfi/srfi-135/text#textual-pad-right__2
    (lambda (_txt1660_ _len1661_ _c1662_ _start1663_)
      (let ((_txt1665_
             (if (string? _txt1660_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1660_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1660_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1660_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-pad-right
                      _txt1660_
                      _len1661_
                      _c1662_
                      _start1663_)))))
        (std/srfi/srfi-135/text#%text-pad-right
         _txt1665_
         _len1661_
         _c1662_
         _start1663_
         (std/srfi/srfi-135/kernel8#%text-length _txt1665_)))))
  (define std/srfi/srfi-135/text#textual-pad-right__3
    (lambda (_txt1667_ _len1668_ _c1669_ _start1670_ _end1671_)
      (std/srfi/srfi-135/text#%text-pad-right
       (if (string? _txt1667_)
           (std/srfi/srfi-135/kernel8#%string->text _txt1667_)
           (if (let ()
                 (declare (not safe))
                 (##structure-instance-of?
                  _txt1667_
                  'std/srfi/srfi-135/kernel8#text-rtd))
               _txt1667_
               (std/srfi/srfi-135/kernel8#complain
                'textual-pad-right
                _txt1667_
                _len1668_
                _c1669_
                _start1670_
                _end1671_)))
       _len1668_
       _c1669_
       _start1670_
       _end1671_)))
  (define std/srfi/srfi-135/text#textual-pad-right
    (lambda _g5681_
      (let ((_g5680_ (let () (declare (not safe)) (##length _g5681_))))
        (cond ((let () (declare (not safe)) (##fx= _g5680_ 2))
               (apply std/srfi/srfi-135/text#textual-pad-right__0 _g5681_))
              ((let () (declare (not safe)) (##fx= _g5680_ 3))
               (apply std/srfi/srfi-135/text#textual-pad-right__1 _g5681_))
              ((let () (declare (not safe)) (##fx= _g5680_ 4))
               (apply std/srfi/srfi-135/text#textual-pad-right__2 _g5681_))
              ((let () (declare (not safe)) (##fx= _g5680_ 5))
               (apply std/srfi/srfi-135/text#textual-pad-right__3 _g5681_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-pad-right
                _g5681_))))))
  (define std/srfi/srfi-135/text#%text-pad-right
    (lambda (_txt1638_ _len1639_ _c1640_ _start1641_ _end1642_)
      (if (and (exact-integer? _len1639_)
               (char? _c1640_)
               (exact-integer? _start1641_)
               (exact-integer? _end1642_)
               (<= '0 _len1639_)
               (<= '0 _start1641_ _end1642_))
          (let* ((_n1644_ (std/srfi/srfi-135/kernel8#%text-length _txt1638_))
                 (_k1646_ (- _end1642_ _start1641_)))
            (if (not (<= _end1642_ _n1644_))
                (std/srfi/srfi-135/kernel8#complain
                 'textual-pad-right
                 _txt1638_
                 _len1639_
                 _c1640_
                 _start1641_
                 _end1642_)
                (if (= _n1644_ _k1646_ _len1639_)
                    _txt1638_
                    (if (= _k1646_ _len1639_)
                        (if (= _n1644_ _k1646_)
                            _txt1638_
                            (std/srfi/srfi-135/kernel8#subtext
                             _txt1638_
                             _start1641_
                             _end1642_))
                        (if (< _k1646_ _len1639_)
                            (std/srfi/srfi-135/text#textual-append
                             (if (= _n1644_ _k1646_)
                                 _txt1638_
                                 (std/srfi/srfi-135/kernel8#subtext
                                  _txt1638_
                                  _start1641_
                                  _end1642_))
                             (std/srfi/srfi-135/text#make-text
                              (- _len1639_ _k1646_)
                              _c1640_))
                            (std/srfi/srfi-135/kernel8#subtext
                             _txt1638_
                             _start1641_
                             (+ _start1641_ _len1639_)))))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-pad-right
           _txt1638_
           _len1639_
           _c1640_
           _start1641_
           _end1642_))))
  (define std/srfi/srfi-135/text#textual-trim__0
    (lambda (_txt1620_)
      (std/srfi/srfi-135/text#textual-trim__2 _txt1620_ char-whitespace? '0)))
  (define std/srfi/srfi-135/text#textual-trim__1
    (lambda (_txt1622_ _pred1623_)
      (std/srfi/srfi-135/text#textual-trim__2 _txt1622_ _pred1623_ '0)))
  (define std/srfi/srfi-135/text#textual-trim__2
    (lambda (_txt1625_ _pred1626_ _start1627_)
      (let ((_txt1629_
             (if (string? _txt1625_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1625_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1625_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1625_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim
                      _txt1625_
                      _pred1626_
                      _start1627_)))))
        (std/srfi/srfi-135/text#%text-trim
         _txt1629_
         _pred1626_
         _start1627_
         (std/srfi/srfi-135/kernel8#%text-length _txt1629_)))))
  (define std/srfi/srfi-135/text#textual-trim__3
    (lambda (_txt1631_ _pred1632_ _start1633_ _end1634_)
      (let ((_txt1636_
             (if (string? _txt1631_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1631_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1631_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1631_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim
                      _txt1631_
                      _pred1632_
                      _start1633_
                      _end1634_)))))
        (std/srfi/srfi-135/text#%text-trim
         _txt1636_
         _pred1632_
         _start1633_
         _end1634_))))
  (define std/srfi/srfi-135/text#textual-trim
    (lambda _g5683_
      (let ((_g5682_ (let () (declare (not safe)) (##length _g5683_))))
        (cond ((let () (declare (not safe)) (##fx= _g5682_ 1))
               (apply std/srfi/srfi-135/text#textual-trim__0 _g5683_))
              ((let () (declare (not safe)) (##fx= _g5682_ 2))
               (apply std/srfi/srfi-135/text#textual-trim__1 _g5683_))
              ((let () (declare (not safe)) (##fx= _g5682_ 3))
               (apply std/srfi/srfi-135/text#textual-trim__2 _g5683_))
              ((let () (declare (not safe)) (##fx= _g5682_ 4))
               (apply std/srfi/srfi-135/text#textual-trim__3 _g5683_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-trim
                _g5683_))))))
  (define std/srfi/srfi-135/text#%text-trim
    (lambda (_txt1611_ _pred1612_ _start1613_ _end1614_)
      (if (and (procedure? _pred1612_)
               (exact-integer? _start1613_)
               (exact-integer? _end1614_)
               (<= '0
                   _start1613_
                   _end1614_
                   (std/srfi/srfi-135/kernel8#%text-length _txt1611_)))
          (let _loop1616_ ((_i1618_ _start1613_))
            (if (= _i1618_ _end1614_)
                (std/srfi/srfi-135/text#text)
                (if (_pred1612_
                     (std/srfi/srfi-135/kernel8#%text-ref _txt1611_ _i1618_))
                    (_loop1616_ (+ _i1618_ '1))
                    (std/srfi/srfi-135/kernel8#subtext
                     _txt1611_
                     _i1618_
                     _end1614_))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-trim
           _txt1611_
           _pred1612_
           _start1613_
           _end1614_))))
  (define std/srfi/srfi-135/text#textual-trim-right__0
    (lambda (_txt1593_)
      (std/srfi/srfi-135/text#textual-trim-right__2
       _txt1593_
       char-whitespace?
       '0)))
  (define std/srfi/srfi-135/text#textual-trim-right__1
    (lambda (_txt1595_ _pred1596_)
      (std/srfi/srfi-135/text#textual-trim-right__2 _txt1595_ _pred1596_ '0)))
  (define std/srfi/srfi-135/text#textual-trim-right__2
    (lambda (_txt1598_ _pred1599_ _start1600_)
      (let ((_txt1602_
             (if (string? _txt1598_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1598_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1598_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1598_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim-right
                      _txt1598_
                      _pred1599_
                      _start1600_)))))
        (std/srfi/srfi-135/text#%text-trim-right
         _txt1602_
         _pred1599_
         _start1600_
         (std/srfi/srfi-135/kernel8#%text-length _txt1602_)))))
  (define std/srfi/srfi-135/text#textual-trim-right__3
    (lambda (_txt1604_ _pred1605_ _start1606_ _end1607_)
      (let ((_txt1609_
             (if (string? _txt1604_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1604_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1604_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1604_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim-right
                      _txt1604_
                      _pred1605_
                      _start1606_
                      _end1607_)))))
        (std/srfi/srfi-135/text#%text-trim-right
         _txt1609_
         _pred1605_
         _start1606_
         _end1607_))))
  (define std/srfi/srfi-135/text#textual-trim-right
    (lambda _g5685_
      (let ((_g5684_ (let () (declare (not safe)) (##length _g5685_))))
        (cond ((let () (declare (not safe)) (##fx= _g5684_ 1))
               (apply std/srfi/srfi-135/text#textual-trim-right__0 _g5685_))
              ((let () (declare (not safe)) (##fx= _g5684_ 2))
               (apply std/srfi/srfi-135/text#textual-trim-right__1 _g5685_))
              ((let () (declare (not safe)) (##fx= _g5684_ 3))
               (apply std/srfi/srfi-135/text#textual-trim-right__2 _g5685_))
              ((let () (declare (not safe)) (##fx= _g5684_ 4))
               (apply std/srfi/srfi-135/text#textual-trim-right__3 _g5685_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-trim-right
                _g5685_))))))
  (define std/srfi/srfi-135/text#%text-trim-right
    (lambda (_txt1584_ _pred1585_ _start1586_ _end1587_)
      (if (and (procedure? _pred1585_)
               (exact-integer? _start1586_)
               (exact-integer? _end1587_)
               (<= '0
                   _start1586_
                   _end1587_
                   (std/srfi/srfi-135/kernel8#%text-length _txt1584_)))
          (let _loop1589_ ((_i1591_ (- _end1587_ '1)))
            (if (< _i1591_ _start1586_)
                (std/srfi/srfi-135/text#text)
                (if (_pred1585_
                     (std/srfi/srfi-135/kernel8#%text-ref _txt1584_ _i1591_))
                    (_loop1589_ (- _i1591_ '1))
                    (std/srfi/srfi-135/kernel8#subtext
                     _txt1584_
                     _start1586_
                     (+ _i1591_ '1)))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-trim-right
           _txt1584_
           _pred1585_
           _start1586_
           _end1587_))))
  (define std/srfi/srfi-135/text#textual-trim-both__0
    (lambda (_txt1566_)
      (std/srfi/srfi-135/text#textual-trim-both__2
       _txt1566_
       char-whitespace?
       '0)))
  (define std/srfi/srfi-135/text#textual-trim-both__1
    (lambda (_txt1568_ _pred1569_)
      (std/srfi/srfi-135/text#textual-trim-both__2 _txt1568_ _pred1569_ '0)))
  (define std/srfi/srfi-135/text#textual-trim-both__2
    (lambda (_txt1571_ _pred1572_ _start1573_)
      (let ((_txt1575_
             (if (string? _txt1571_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1571_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1571_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1571_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim-both
                      _txt1571_
                      _pred1572_
                      _start1573_)))))
        (std/srfi/srfi-135/text#%text-trim-both
         _txt1575_
         _pred1572_
         _start1573_
         (std/srfi/srfi-135/kernel8#%text-length _txt1575_)))))
  (define std/srfi/srfi-135/text#textual-trim-both__3
    (lambda (_txt1577_ _pred1578_ _start1579_ _end1580_)
      (let ((_txt1582_
             (if (string? _txt1577_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1577_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1577_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1577_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-trim-both
                      _txt1577_
                      _pred1578_
                      _start1579_
                      _end1580_)))))
        (std/srfi/srfi-135/text#%text-trim-both
         _txt1582_
         _pred1578_
         _start1579_
         _end1580_))))
  (define std/srfi/srfi-135/text#textual-trim-both
    (lambda _g5687_
      (let ((_g5686_ (let () (declare (not safe)) (##length _g5687_))))
        (cond ((let () (declare (not safe)) (##fx= _g5686_ 1))
               (apply std/srfi/srfi-135/text#textual-trim-both__0 _g5687_))
              ((let () (declare (not safe)) (##fx= _g5686_ 2))
               (apply std/srfi/srfi-135/text#textual-trim-both__1 _g5687_))
              ((let () (declare (not safe)) (##fx= _g5686_ 3))
               (apply std/srfi/srfi-135/text#textual-trim-both__2 _g5687_))
              ((let () (declare (not safe)) (##fx= _g5686_ 4))
               (apply std/srfi/srfi-135/text#textual-trim-both__3 _g5687_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-trim-both
                _g5687_))))))
  (define std/srfi/srfi-135/text#%text-trim-both
    (lambda (_txt1561_ _pred1562_ _start1563_ _end1564_)
      (if (and (procedure? _pred1562_)
               (exact-integer? _start1563_)
               (exact-integer? _end1564_)
               (<= '0
                   _start1563_
                   _end1564_
                   (std/srfi/srfi-135/kernel8#%text-length _txt1561_)))
          (std/srfi/srfi-135/text#textual-trim__1
           (std/srfi/srfi-135/text#textual-trim-right__3
            _txt1561_
            _pred1562_
            _start1563_
            _end1564_)
           _pred1562_)
          (std/srfi/srfi-135/kernel8#complain
           'textual-trim-both
           _txt1561_
           _pred1562_
           _start1563_
           _end1564_))))
  (define std/srfi/srfi-135/text#textual-replace__0
    (lambda (_txt11543_
             _txt21544_
             _start11545_
             _end11546_
             _start21547_
             _end21548_)
      (std/srfi/srfi-135/text#textual-append
       (std/srfi/srfi-135/text#subtextual _txt11543_ '0 _start11545_)
       (std/srfi/srfi-135/text#subtextual _txt21544_ _start21547_ _end21548_)
       (std/srfi/srfi-135/text#subtextual
        _txt11543_
        _end11546_
        (std/srfi/srfi-135/text#textual-length _txt11543_)))))
  (define std/srfi/srfi-135/text#textual-replace__1
    (lambda (_txt11550_ _txt21551_ _start11552_ _end11553_ _start21554_)
      (std/srfi/srfi-135/text#textual-append
       (std/srfi/srfi-135/text#subtextual _txt11550_ '0 _start11552_)
       (std/srfi/srfi-135/text#subtextual
        _txt21551_
        _start21554_
        (std/srfi/srfi-135/text#textual-length _txt21551_))
       (std/srfi/srfi-135/text#subtextual
        _txt11550_
        _end11553_
        (std/srfi/srfi-135/text#textual-length _txt11550_)))))
  (define std/srfi/srfi-135/text#textual-replace__2
    (lambda (_txt11556_ _txt21557_ _start11558_ _end11559_)
      (std/srfi/srfi-135/text#textual-append
       (std/srfi/srfi-135/text#subtextual _txt11556_ '0 _start11558_)
       _txt21557_
       (std/srfi/srfi-135/text#subtextual
        _txt11556_
        _end11559_
        (std/srfi/srfi-135/text#textual-length _txt11556_)))))
  (define std/srfi/srfi-135/text#textual-replace
    (lambda _g5689_
      (let ((_g5688_ (let () (declare (not safe)) (##length _g5689_))))
        (cond ((let () (declare (not safe)) (##fx= _g5688_ 6))
               (apply std/srfi/srfi-135/text#textual-replace__0 _g5689_))
              ((let () (declare (not safe)) (##fx= _g5688_ 5))
               (apply std/srfi/srfi-135/text#textual-replace__1 _g5689_))
              ((let () (declare (not safe)) (##fx= _g5688_ 4))
               (apply std/srfi/srfi-135/text#textual-replace__2 _g5689_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-replace
                _g5689_))))))
  (define std/srfi/srfi-135/text#make-nary-comparison
    (lambda (_name1523_ _binop01524_)
      (let ((_binop1532_
             (lambda (_a1526_ _b1527_)
               (let ((_a1529_ (if (string? _a1526_)
                                  (std/srfi/srfi-135/kernel8#%string->text
                                   _a1526_)
                                  (if (let ()
                                        (declare (not safe))
                                        (##structure-instance-of?
                                         _a1526_
                                         'std/srfi/srfi-135/kernel8#text-rtd))
                                      _a1526_
                                      (std/srfi/srfi-135/kernel8#complain
                                       _name1523_
                                       _a1526_
                                       _b1527_))))
                     (_b1530_ (if (string? _b1527_)
                                  (std/srfi/srfi-135/kernel8#%string->text
                                   _b1527_)
                                  (if (let ()
                                        (declare (not safe))
                                        (##structure-instance-of?
                                         _b1527_
                                         'std/srfi/srfi-135/kernel8#text-rtd))
                                      _b1527_
                                      (std/srfi/srfi-135/kernel8#complain
                                       _name1523_
                                       _a1526_
                                       _b1527_)))))
                 (_binop01524_ _a1529_ _b1530_)))))
        (letrec ((_loop1534_
                  (lambda (_first1536_ _rest1537_)
                    (if (null? _rest1537_)
                        '#t
                        (if (_binop1532_ _first1536_ (car _rest1537_))
                            (_loop1534_ (car _rest1537_) (cdr _rest1537_))
                            '#f)))))
          (lambda (_a1539_ _b1540_ . _rest1541_)
            (if (null? _rest1541_)
                (_binop1532_ _a1539_ _b1540_)
                (if (_binop1532_ _a1539_ _b1540_)
                    (_loop1534_ _b1540_ _rest1541_)
                    '#f)))))))
  (define std/srfi/srfi-135/text#textual=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual=?
     (lambda (_a1520_ _b1521_)
       (std/srfi/srfi-135/text#%text-compare _a1520_ _b1521_ =))))
  (define std/srfi/srfi-135/text#textual<?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual<?
     (lambda (_a1517_ _b1518_)
       (std/srfi/srfi-135/text#%text-compare _a1517_ _b1518_ <))))
  (define std/srfi/srfi-135/text#textual<=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual<=?
     (lambda (_a1514_ _b1515_)
       (std/srfi/srfi-135/text#%text-compare _a1514_ _b1515_ <=))))
  (define std/srfi/srfi-135/text#textual>?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual>?
     (lambda (_a1511_ _b1512_)
       (std/srfi/srfi-135/text#%text-compare _a1511_ _b1512_ >))))
  (define std/srfi/srfi-135/text#textual>=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual>=?
     (lambda (_a1508_ _b1509_)
       (std/srfi/srfi-135/text#%text-compare _a1508_ _b1509_ >=))))
  (define std/srfi/srfi-135/text#textual-ci=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual-ci=?
     (lambda (_a1505_ _b1506_)
       (std/srfi/srfi-135/text#%text-compare-ci
        _a1505_
        _b1506_
        =
        string-ci=?))))
  (define std/srfi/srfi-135/text#textual-ci<?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual-ci<?
     (lambda (_a1502_ _b1503_)
       (std/srfi/srfi-135/text#%text-compare-ci
        _a1502_
        _b1503_
        <
        string-ci<?))))
  (define std/srfi/srfi-135/text#textual-ci<=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual-ci<=?
     (lambda (_a1499_ _b1500_)
       (std/srfi/srfi-135/text#%text-compare-ci
        _a1499_
        _b1500_
        <=
        string-ci<=?))))
  (define std/srfi/srfi-135/text#textual-ci>?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual-ci>?
     (lambda (_a1496_ _b1497_)
       (std/srfi/srfi-135/text#%text-compare-ci
        _a1496_
        _b1497_
        >
        string-ci>?))))
  (define std/srfi/srfi-135/text#textual-ci>=?
    (std/srfi/srfi-135/text#make-nary-comparison
     'textual-ci>=?
     (lambda (_a1493_ _b1494_)
       (std/srfi/srfi-135/text#%text-compare-ci
        _a1493_
        _b1494_
        >=
        string-ci>=?))))
  (define std/srfi/srfi-135/text#%text-compare
    (lambda (_a1475_ _b1476_ _make-boolean1477_)
      (let* ((_na1479_ (std/srfi/srfi-135/kernel8#%text-length _a1475_))
             (_nb1481_ (std/srfi/srfi-135/kernel8#%text-length _b1476_))
             (_n1483_ (if (<= _na1479_ _nb1481_) _na1479_ _nb1481_)))
        (letrec ((_loop1486_
                  (lambda (_i1488_)
                    (if (= _i1488_ _n1483_)
                        (if (< _na1479_ _nb1481_)
                            (_make-boolean1477_ '-1 '0)
                            (if (> _na1479_ _nb1481_)
                                (_make-boolean1477_ '1 '0)
                                (_make-boolean1477_ '0 '0)))
                        (let ((_ca1490_
                               (std/srfi/srfi-135/kernel8#%text-ref
                                _a1475_
                                _i1488_))
                              (_cb1491_
                               (std/srfi/srfi-135/kernel8#%text-ref
                                _b1476_
                                _i1488_)))
                          (if (char<? _ca1490_ _cb1491_)
                              (_make-boolean1477_ '-1 '0)
                              (if (char>? _ca1490_ _cb1491_)
                                  (_make-boolean1477_ '1 '0)
                                  (_loop1486_ (+ _i1488_ '1)))))))))
          (_loop1486_ '0)))))
  (define std/srfi/srfi-135/text#%text-compare-ci
    (lambda (_a1450_ _b1451_ _make-boolean1452_ _string-pred1453_)
      (let* ((_na1455_ (std/srfi/srfi-135/kernel8#%text-length _a1450_))
             (_nb1457_ (std/srfi/srfi-135/kernel8#%text-length _b1451_))
             (_n1459_ (if (<= _na1455_ _nb1457_) _na1455_ _nb1457_)))
        (letrec ((_loop1462_
                  (lambda (_i1464_)
                    (if (= _i1464_ _n1459_)
                        (if (< _na1455_ _nb1457_)
                            (_make-boolean1452_ '-1 '0)
                            (if (> _na1455_ _nb1457_)
                                (_make-boolean1452_ '1 '0)
                                (_make-boolean1452_ '0 '0)))
                        (let ((_ca1466_
                               (std/srfi/srfi-135/kernel8#%text-ref
                                _a1450_
                                _i1464_))
                              (_cb1467_
                               (std/srfi/srfi-135/kernel8#%text-ref
                                _b1451_
                                _i1464_)))
                          (if (or (char>? _ca1466_ '#\delete)
                                  (char>? _cb1467_ '#\delete))
                              (_string-pred1453_
                               (std/srfi/srfi-135/text#textual->string__0
                                _a1450_)
                               (std/srfi/srfi-135/text#textual->string__0
                                _b1451_))
                              (let ((_ca1472_ (char-downcase _ca1466_))
                                    (_cb1473_ (char-downcase _cb1467_)))
                                (if (char<? _ca1472_ _cb1473_)
                                    (_make-boolean1452_ '-1 '0)
                                    (if (char>? _ca1472_ _cb1473_)
                                        (_make-boolean1452_ '1 '0)
                                        (_loop1462_ (+ _i1464_ '1)))))))))))
          (_loop1462_ '0)))))
  (define std/srfi/srfi-135/text#%make-text-prefix/suffix-proc
    (lambda (_proc1375_ _name1376_)
      (lambda _g5691_
        (let ((_g5690_ (let () (declare (not safe)) (##length _g5691_))))
          (cond ((let () (declare (not safe)) (##fx= _g5690_ 0))
                 (apply (lambda ()
                          (std/srfi/srfi-135/kernel8#complain _name1376_))
                        _g5691_))
                ((let () (declare (not safe)) (##fx= _g5690_ 1))
                 (apply (lambda (_x1379_)
                          (std/srfi/srfi-135/kernel8#complain
                           _name1376_
                           _x1379_))
                        _g5691_))
                ((let () (declare (not safe)) (##fx= _g5690_ 2))
                 (apply (lambda (_t11381_ _t21382_)
                          (let ((_txt11384_
                                 (if (string? _t11381_)
                                     (std/srfi/srfi-135/kernel8#%string->text
                                      _t11381_)
                                     (if (let ()
                                           (declare (not safe))
                                           (##structure-instance-of?
                                            _t11381_
                                            'std/srfi/srfi-135/kernel8#text-rtd))
                                         _t11381_
                                         (std/srfi/srfi-135/kernel8#complain
                                          _name1376_
                                          _t11381_
                                          _t21382_))))
                                (_txt21385_
                                 (if (string? _t21382_)
                                     (std/srfi/srfi-135/kernel8#%string->text
                                      _t21382_)
                                     (if (let ()
                                           (declare (not safe))
                                           (##structure-instance-of?
                                            _t21382_
                                            'std/srfi/srfi-135/kernel8#text-rtd))
                                         _t21382_
                                         (std/srfi/srfi-135/kernel8#complain
                                          _name1376_
                                          _t11381_
                                          _t21382_)))))
                            (_proc1375_
                             _txt11384_
                             _txt21385_
                             '0
                             (std/srfi/srfi-135/kernel8#%text-length
                              _txt11384_)
                             '0
                             (std/srfi/srfi-135/kernel8#%text-length
                              _txt21385_))))
                        _g5691_))
                ((let () (declare (not safe)) (##fx= _g5690_ 3))
                 (apply (lambda (_t11387_ _t21388_ _start11389_)
                          (let* ((_txt11391_
                                  (if (string? _t11387_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t11387_)
                                      (if (let ()
                                            (declare (not safe))
                                            (##structure-instance-of?
                                             _t11387_
                                             'std/srfi/srfi-135/kernel8#text-rtd))
                                          _t11387_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name1376_
                                           _t11387_
                                           _t21388_))))
                                 (_txt21393_
                                  (if (string? _t21388_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t21388_)
                                      (if (let ()
                                            (declare (not safe))
                                            (##structure-instance-of?
                                             _t21388_
                                             'std/srfi/srfi-135/kernel8#text-rtd))
                                          _t21388_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name1376_
                                           _t11387_
                                           _t21388_))))
                                 (_n11395_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt11391_)))
                            (if (and (exact-integer? _start11389_)
                                     (<= '0 _start11389_ _n11395_))
                                (_proc1375_
                                 _txt11391_
                                 _txt21393_
                                 _start11389_
                                 _n11395_
                                 '0
                                 (std/srfi/srfi-135/kernel8#%text-length
                                  _txt21393_))
                                (std/srfi/srfi-135/kernel8#complain
                                 _name1376_
                                 _t11387_
                                 _t21388_
                                 _start11389_))))
                        _g5691_))
                ((let () (declare (not safe)) (##fx= _g5690_ 4))
                 (apply (lambda (_t11398_ _t21399_ _start11400_ _end11401_)
                          (let* ((_txt11403_
                                  (if (string? _t11398_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t11398_)
                                      (if (let ()
                                            (declare (not safe))
                                            (##structure-instance-of?
                                             _t11398_
                                             'std/srfi/srfi-135/kernel8#text-rtd))
                                          _t11398_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name1376_
                                           _t11398_
                                           _t21399_))))
                                 (_txt21405_
                                  (if (string? _t21399_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t21399_)
                                      (if (let ()
                                            (declare (not safe))
                                            (##structure-instance-of?
                                             _t21399_
                                             'std/srfi/srfi-135/kernel8#text-rtd))
                                          _t21399_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name1376_
                                           _t11398_
                                           _t21399_))))
                                 (_n11407_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt11403_)))
                            (if (and (exact-integer? _start11400_)
                                     (exact-integer? _end11401_)
                                     (<= '0 _start11400_ _end11401_ _n11407_))
                                (_proc1375_
                                 _txt11403_
                                 _txt21405_
                                 _start11400_
                                 _end11401_
                                 '0
                                 (std/srfi/srfi-135/kernel8#%text-length
                                  _txt21405_))
                                (std/srfi/srfi-135/kernel8#complain
                                 _name1376_
                                 _t11398_
                                 _t21399_
                                 _start11400_
                                 _end11401_))))
                        _g5691_))
                ((let () (declare (not safe)) (##fx= _g5690_ 5))
                 (apply (lambda (_t11410_
                                 _t21411_
                                 _start11412_
                                 _end11413_
                                 _start21414_)
                          (let* ((_txt11416_
                                  (if (string? _t11410_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t11410_)
                                      (if (let ()
                                            (declare (not safe))
                                            (##structure-instance-of?
                                             _t11410_
                                             'std/srfi/srfi-135/kernel8#text-rtd))
                                          _t11410_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name1376_
                                           _t11410_
                                           _t21411_))))
                                 (_txt21418_
                                  (if (string? _t21411_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t21411_)
                                      (if (let ()
                                            (declare (not safe))
                                            (##structure-instance-of?
                                             _t21411_
                                             'std/srfi/srfi-135/kernel8#text-rtd))
                                          _t21411_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name1376_
                                           _t11410_
                                           _t21411_))))
                                 (_n11420_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt11416_))
                                 (_n21422_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt21418_)))
                            (if (and (exact-integer? _start11412_)
                                     (exact-integer? _end11413_)
                                     (exact-integer? _start21414_)
                                     (<= '0 _start11412_ _end11413_ _n11420_)
                                     (<= '0 _start21414_ _n21422_))
                                (_proc1375_
                                 _txt11416_
                                 _txt21418_
                                 _start11412_
                                 _end11413_
                                 _start21414_
                                 _n21422_)
                                (std/srfi/srfi-135/kernel8#complain
                                 _name1376_
                                 _t11410_
                                 _t21411_
                                 _start11412_
                                 _end11413_
                                 _start21414_))))
                        _g5691_))
                ((let () (declare (not safe)) (##fx= _g5690_ 6))
                 (apply (lambda (_t11425_
                                 _t21426_
                                 _start11427_
                                 _end11428_
                                 _start21429_
                                 _end21430_)
                          (let* ((_txt11432_
                                  (if (string? _t11425_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t11425_)
                                      (if (let ()
                                            (declare (not safe))
                                            (##structure-instance-of?
                                             _t11425_
                                             'std/srfi/srfi-135/kernel8#text-rtd))
                                          _t11425_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name1376_
                                           _t11425_
                                           _t21426_))))
                                 (_txt21434_
                                  (if (string? _t21426_)
                                      (std/srfi/srfi-135/kernel8#%string->text
                                       _t21426_)
                                      (if (let ()
                                            (declare (not safe))
                                            (##structure-instance-of?
                                             _t21426_
                                             'std/srfi/srfi-135/kernel8#text-rtd))
                                          _t21426_
                                          (std/srfi/srfi-135/kernel8#complain
                                           _name1376_
                                           _t11425_
                                           _t21426_))))
                                 (_n11436_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt11432_))
                                 (_n21438_
                                  (std/srfi/srfi-135/kernel8#%text-length
                                   _txt21434_)))
                            (if (and (exact-integer? _start11427_)
                                     (exact-integer? _end11428_)
                                     (exact-integer? _start21429_)
                                     (exact-integer? _end21430_)
                                     (<= '0 _start11427_ _end11428_ _n11436_)
                                     (<= '0 _start21429_ _end21430_ _n21438_))
                                (_proc1375_
                                 _txt11432_
                                 _txt21434_
                                 _start11427_
                                 _end11428_
                                 _start21429_
                                 _end21430_)
                                (std/srfi/srfi-135/kernel8#complain
                                 _name1376_
                                 _t11425_
                                 _t21426_
                                 _start11427_
                                 _end11428_
                                 _start21429_
                                 _end21430_))))
                        _g5691_))
                ((let () (declare (not safe)) (##fx>= _g5690_ 7))
                 (apply (lambda (_t11441_
                                 _t21442_
                                 _start11443_
                                 _end11444_
                                 _start21445_
                                 _end21446_
                                 _oops1447_
                                 .
                                 _rest1448_)
                          (apply std/srfi/srfi-135/kernel8#complain
                                 _name1376_
                                 _t11441_
                                 _t21442_
                                 _start11443_
                                 _end11444_
                                 _start21445_
                                 _end21446_
                                 _oops1447_
                                 _rest1448_))
                        _g5691_))
                (else
                 (##raise-wrong-number-of-arguments-exception
                  'case-lambda-dispatch
                  _g5691_)))))))
  (define std/srfi/srfi-135/text#textual-prefix-length
    (std/srfi/srfi-135/text#%make-text-prefix/suffix-proc
     (lambda (_txt11368_
              _txt21369_
              _start11370_
              _end11371_
              _start21372_
              _end21373_)
       (std/srfi/srfi-135/text#%text-prefix-length
        _txt11368_
        _txt21369_
        _start11370_
        _end11371_
        _start21372_
        _end21373_))
     'textual-prefix-length))
  (define std/srfi/srfi-135/text#textual-suffix-length
    (std/srfi/srfi-135/text#%make-text-prefix/suffix-proc
     (lambda (_txt11361_
              _txt21362_
              _start11363_
              _end11364_
              _start21365_
              _end21366_)
       (std/srfi/srfi-135/text#%text-suffix-length
        _txt11361_
        _txt21362_
        _start11363_
        _end11364_
        _start21365_
        _end21366_))
     'textual-suffix-length))
  (define std/srfi/srfi-135/text#textual-prefix?
    (std/srfi/srfi-135/text#%make-text-prefix/suffix-proc
     (lambda (_txt11354_
              _txt21355_
              _start11356_
              _end11357_
              _start21358_
              _end21359_)
       (std/srfi/srfi-135/text#%text-prefix?
        _txt11354_
        _txt21355_
        _start11356_
        _end11357_
        _start21358_
        _end21359_))
     'textual-prefix?))
  (define std/srfi/srfi-135/text#textual-suffix?
    (std/srfi/srfi-135/text#%make-text-prefix/suffix-proc
     (lambda (_txt11347_
              _txt21348_
              _start11349_
              _end11350_
              _start21351_
              _end21352_)
       (std/srfi/srfi-135/text#%text-suffix?
        _txt11347_
        _txt21348_
        _start11349_
        _end11350_
        _start21351_
        _end21352_))
     'textual-suffix?))
  (define std/srfi/srfi-135/text#%text-prefix-length
    (lambda (_txt11326_
             _txt21327_
             _start11328_
             _end11329_
             _start21330_
             _end21331_)
      (let* ((_k11333_ (- _end11329_ _start11328_))
             (_k21335_ (- _end21331_ _start21330_))
             (_k1337_ (min _k11333_ _k21335_))
             (_end11339_ (+ _start11328_ _k1337_)))
        (let _loop1342_ ((_i1344_ _start11328_) (_j1345_ _start21330_))
          (if (= _i1344_ _end11339_)
              _k1337_
              (if (char=? (std/srfi/srfi-135/kernel8#%text-ref
                           _txt11326_
                           _i1344_)
                          (std/srfi/srfi-135/kernel8#%text-ref
                           _txt21327_
                           _j1345_))
                  (_loop1342_ (+ _i1344_ '1) (+ _j1345_ '1))
                  (- _i1344_ _start11328_)))))))
  (define std/srfi/srfi-135/text#%text-suffix-length
    (lambda (_txt11305_
             _txt21306_
             _start11307_
             _end11308_
             _start21309_
             _end21310_)
      (let* ((_k11312_ (- _end11308_ _start11307_))
             (_k21314_ (- _end21310_ _start21309_))
             (_k1316_ (min _k11312_ _k21314_))
             (_start11318_ (- _end11308_ _k1316_)))
        (let _loop1321_ ((_i1323_ (- _end11308_ '1))
                         (_j1324_ (- _end21310_ '1)))
          (if (< _i1323_ _start11318_)
              _k1316_
              (if (char=? (std/srfi/srfi-135/kernel8#%text-ref
                           _txt11305_
                           _i1323_)
                          (std/srfi/srfi-135/kernel8#%text-ref
                           _txt21306_
                           _j1324_))
                  (_loop1321_ (- _i1323_ '1) (- _j1324_ '1))
                  (- _end11308_ _i1323_ '1)))))))
  (define std/srfi/srfi-135/text#%text-prefix?
    (lambda (_txt11295_
             _txt21296_
             _start11297_
             _end11298_
             _start21299_
             _end21300_)
      (let ((_k11302_ (- _end11298_ _start11297_))
            (_k21303_ (- _end21300_ _start21299_)))
        (if (<= _k11302_ _k21303_)
            (= _k11302_
               (std/srfi/srfi-135/text#%text-prefix-length
                _txt11295_
                _txt21296_
                _start11297_
                _end11298_
                _start21299_
                _end21300_))
            '#f))))
  (define std/srfi/srfi-135/text#%text-suffix?
    (lambda (_txt11285_
             _txt21286_
             _start11287_
             _end11288_
             _start21289_
             _end21290_)
      (let ((_k11292_ (- _end11288_ _start11287_))
            (_k21293_ (- _end21290_ _start21289_)))
        (if (<= _k11292_ _k21293_)
            (= _k11292_
               (std/srfi/srfi-135/text#%text-suffix-length
                _txt11285_
                _txt21286_
                _start11287_
                _end11288_
                _start21289_
                _end21290_))
            '#f))))
  (define std/srfi/srfi-135/text#textual-index
    (lambda (_txt1269_ _pred1270_ . _rest1271_)
      (let ((_txt1273_
             (if (string? _txt1269_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1269_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1269_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1269_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-index
                      _txt1269_
                      _pred1270_)))))
        (let ((_start1278_ (if (null? _rest1271_) '0 (car _rest1271_)))
              (_end1279_
               (if (or (null? _rest1271_) (null? (cdr _rest1271_)))
                   (std/srfi/srfi-135/kernel8#%text-length _txt1273_)
                   (car (cdr _rest1271_)))))
          (if (and (procedure? _pred1270_)
                   (exact-integer? _start1278_)
                   (exact-integer? _end1279_)
                   (<= '0
                       _start1278_
                       _end1279_
                       (std/srfi/srfi-135/kernel8#%text-length _txt1273_)))
              (let _loop1281_ ((_i1283_ _start1278_))
                (if (= _i1283_ _end1279_)
                    '#f
                    (if (_pred1270_
                         (std/srfi/srfi-135/kernel8#%text-ref
                          _txt1273_
                          _i1283_))
                        _i1283_
                        (_loop1281_ (+ _i1283_ '1)))))
              (apply std/srfi/srfi-135/kernel8#complain
                     'textual-index
                     _txt1273_
                     _pred1270_
                     _rest1271_))))))
  (define std/srfi/srfi-135/text#textual-index-right
    (lambda (_txt1253_ _pred1254_ . _rest1255_)
      (let ((_txt1257_
             (if (string? _txt1253_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt1253_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt1253_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt1253_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-index-right
                      _txt1253_
                      _pred1254_)))))
        (let ((_start1262_ (if (null? _rest1255_) '0 (car _rest1255_)))
              (_end1263_
               (if (or (null? _rest1255_) (null? (cdr _rest1255_)))
                   (std/srfi/srfi-135/kernel8#%text-length _txt1257_)
                   (car (cdr _rest1255_)))))
          (if (and (procedure? _pred1254_)
                   (exact-integer? _start1262_)
                   (exact-integer? _end1263_)
                   (<= '0
                       _start1262_
                       _end1263_
                       (std/srfi/srfi-135/kernel8#%text-length _txt1257_)))
              (let _loop1265_ ((_i1267_ (- _end1263_ '1)))
                (if (< _i1267_ _start1262_)
                    '#f
                    (if (_pred1254_
                         (std/srfi/srfi-135/kernel8#%text-ref
                          _txt1257_
                          _i1267_))
                        _i1267_
                        (_loop1265_ (- _i1267_ '1)))))
              (apply std/srfi/srfi-135/kernel8#complain
                     'textual-index-right
                     _txt1257_
                     _pred1254_
                     _rest1255_))))))
  (define std/srfi/srfi-135/text#textual-skip
    (lambda (_txt1247_ _pred1248_ . _rest1249_)
      (apply std/srfi/srfi-135/text#textual-index
             _txt1247_
             (lambda (_x1251_) (not (_pred1248_ _x1251_)))
             _rest1249_)))
  (define std/srfi/srfi-135/text#textual-skip-right
    (lambda (_txt1241_ _pred1242_ . _rest1243_)
      (apply std/srfi/srfi-135/text#textual-index-right
             _txt1241_
             (lambda (_x1245_) (not (_pred1242_ _x1245_)))
             _rest1243_)))
  (define std/srfi/srfi-135/text#textual-contains
    (lambda (_t11214_ _t21215_ . _rest01216_)
      (let* ((_txt11218_
              (if (string? _t11214_)
                  (std/srfi/srfi-135/kernel8#%string->text _t11214_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _t11214_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _t11214_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-contains
                       _t11214_
                       _t21215_))))
             (_txt21220_
              (if (string? _t21215_)
                  (std/srfi/srfi-135/kernel8#%string->text _t21215_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _t21215_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _t21215_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-contains
                       _t11214_
                       _t21215_))))
             (_rest1222_ _rest01216_)
             (_start11224_ (if (null? _rest1222_) '0 (car _rest1222_)))
             (_rest1226_ (if (null? _rest1222_) _rest1222_ (cdr _rest1222_)))
             (_end11228_
              (if (null? _rest1226_)
                  (std/srfi/srfi-135/kernel8#%text-length _txt11218_)
                  (car _rest1226_)))
             (_rest1230_ (if (null? _rest1226_) _rest1226_ (cdr _rest1226_)))
             (_start21232_ (if (null? _rest1230_) '0 (car _rest1230_)))
             (_rest1234_ (if (null? _rest1230_) _rest1230_ (cdr _rest1230_)))
             (_end21236_
              (if (null? _rest1234_)
                  (std/srfi/srfi-135/kernel8#%text-length _txt21220_)
                  (car _rest1234_)))
             (_rest1238_ (if (null? _rest1234_) _rest1234_ (cdr _rest1234_))))
        (if (and (null? _rest1238_)
                 (exact-integer? _start11224_)
                 (exact-integer? _end11228_)
                 (exact-integer? _start21232_)
                 (exact-integer? _end21236_)
                 (<= '0
                     _start11224_
                     _end11228_
                     (std/srfi/srfi-135/kernel8#%text-length _txt11218_))
                 (<= '0
                     _start21232_
                     _end21236_
                     (std/srfi/srfi-135/kernel8#%text-length _txt21220_)))
            (std/srfi/srfi-135/text#%textual-contains
             _txt11218_
             _txt21220_
             _start11224_
             _end11228_
             _start21232_
             _end21236_)
            (apply std/srfi/srfi-135/kernel8#complain
                   'textual-contains
                   _t11214_
                   _t21215_
                   _rest01216_)))))
  (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 (_txt11198_
             _txt21199_
             _start11200_
             _end11201_
             _start21202_
             _end21203_)
      (let ((_n11205_ (- _end11201_ _start11200_))
            (_n21206_ (- _end21203_ _start21202_)))
        (if (< _n11205_ std/srfi/srfi-135/text#%threshold:short1)
            (std/srfi/srfi-135/text#%textual-contains:naive
             _txt11198_
             _txt21199_
             _start11200_
             _end11201_
             _start21202_
             _end21203_)
            (if (< (- _n11205_ _n21206_)
                   std/srfi/srfi-135/text#%threshold:longer)
                (std/srfi/srfi-135/text#%textual-contains:naive
                 _txt11198_
                 _txt21199_
                 _start11200_
                 _end11201_
                 _start21202_
                 _end21203_)
                (if (< _n21206_ std/srfi/srfi-135/text#%threshold:short2)
                    (std/srfi/srfi-135/text#%textual-contains:boyer-moore
                     _txt11198_
                     _txt21199_
                     _start11200_
                     _end11201_
                     _start21202_
                     _end21203_)
                    (if (and (> _n21206_
                                std/srfi/srfi-135/text#%threshold:rightmost)
                             (let ((_j1208_ (remainder
                                             (char->integer
                                              (std/srfi/srfi-135/kernel8#text-ref
                                               _txt21199_
                                               (- _end21203_ '1)))
                                             '128)))
                               (let _loop1210_ ((_i1212_ (- _end21203_
                                                            std/srfi/srfi-135/text#%threshold:rightmost)))
                                 (if (= _i1212_ (- _end21203_ '1))
                                     '#t
                                     (if (= _j1208_
                                            (remainder
                                             (char->integer
                                              (std/srfi/srfi-135/kernel8#text-ref
                                               _txt21199_
                                               _i1212_))
                                             '128))
                                         '#f
                                         (_loop1210_ (+ _i1212_ '1)))))))
                        (std/srfi/srfi-135/text#%textual-contains:boyer-moore
                         _txt11198_
                         _txt21199_
                         _start11200_
                         _end11201_
                         _start21202_
                         _end21203_)
                        (std/srfi/srfi-135/text#%textual-contains:rabin-karp
                         _txt11198_
                         _txt21199_
                         _start11200_
                         _end11201_
                         _start21202_
                         _end21203_))))))))
  (define std/srfi/srfi-135/text#%textual-contains:naive
    (lambda (_txt11180_
             _txt21181_
             _start11182_
             _end11183_
             _start21184_
             _end21185_)
      (let* ((_n11187_ (- _end11183_ _start11182_))
             (_n21189_ (- _end21185_ _start21184_))
             (_lim11191_ (- _end11183_ _n21189_)))
        (let _loop1194_ ((_i1196_ _start11182_))
          (if (> _i1196_ _lim11191_)
              '#f
              (if (std/srfi/srfi-135/text#textual-prefix?
                   _txt21181_
                   _txt11180_
                   _start21184_
                   _end21185_
                   _i1196_
                   _end11183_)
                  _i1196_
                  (_loop1194_ (+ _i1196_ '1))))))))
  (define std/srfi/srfi-135/text#%textual-contains:rabin-karp
    (lambda (_txt11145_
             _txt21146_
             _start11147_
             _end11148_
             _start21149_
             _end21150_)
      (letrec ((_hash1152_
                (lambda (_txt1170_ _start1171_ _end1172_)
                  (let _$loop1174_ ((_i1177_ _start1171_) (_h1178_ '0))
                    (if (= _i1177_ _end1172_)
                        _h1178_
                        (_$loop1174_
                         (+ _i1177_ '1)
                         (+ _h1178_
                            (char->integer
                             (std/srfi/srfi-135/kernel8#text-ref
                              _txt1170_
                              _i1177_)))))))))
        (let* ((_n11154_ (- _end11148_ _start11147_))
               (_n21156_ (- _end21150_ _start21149_))
               (_lim11158_ (- _end11148_ _n21156_))
               (_h11160_
                (_hash1152_
                 _txt11145_
                 _start11147_
                 (min (+ _start11147_ _n21156_) _end11148_)))
               (_h21162_ (_hash1152_ _txt21146_ _start21149_ _end21150_)))
          (let _loop1165_ ((_i1167_ _start11147_) (_h11168_ _h11160_))
            (if (> _i1167_ _lim11158_)
                '#f
                (if (and (= _h11168_ _h21162_)
                         (std/srfi/srfi-135/text#textual-prefix?
                          _txt21146_
                          _txt11145_
                          _start21149_
                          _end21150_
                          _i1167_
                          _end11148_))
                    _i1167_
                    (if (= _i1167_ _lim11158_)
                        '#f
                        (_loop1165_
                         (+ _i1167_ '1)
                         (+ (- _h11168_
                               (char->integer
                                (std/srfi/srfi-135/kernel8#text-ref
                                 _txt11145_
                                 _i1167_)))
                            (char->integer
                             (std/srfi/srfi-135/kernel8#text-ref
                              _txt11145_
                              (+ _i1167_ _n21156_)))))))))))))
  (define std/srfi/srfi-135/text#%textual-contains:boyer-moore
    (lambda (_txt11102_
             _txt21103_
             _start11104_
             _end11105_
             _start21106_
             _end21107_)
      (if (= _start21106_ _end21107_)
          _start11104_
          (let* ((_n11109_ (- _end11105_ _start11104_))
                 (_n21111_ (- _end21107_ _start21106_))
                 (_lim11113_ (- _end11105_ _n21111_))
                 (_lastchar1115_
                  (std/srfi/srfi-135/kernel8#text-ref
                   _txt21103_
                   (- _end21107_ '1)))
                 (_lastj1117_ (remainder (char->integer _lastchar1115_) '128))
                 (_table1119_ (make-vector '128 _n21111_)))
            (let _$loop1122_ ((_i1125_ '0))
              (if (>= _i1125_ (- _n21111_ '1))
                  '#!void
                  (begin
                    (let* ((_c1127_ (std/srfi/srfi-135/kernel8#text-ref
                                     _txt21103_
                                     (+ _i1125_ _start21106_)))
                           (_cp1129_ (char->integer _c1127_))
                           (_j1131_ (remainder _cp1129_ '128)))
                      (vector-set!
                       _table1119_
                       _j1131_
                       (- _n21111_ _i1125_ '1)))
                    (_$loop1122_ (+ _i1125_ '1)))))
            (let _loop1134_ ((_i1136_ _start11104_))
              (if (>= _i1136_ _lim11113_)
                  (if (and (= _i1136_ _lim11113_)
                           (std/srfi/srfi-135/text#textual-prefix?
                            _txt21103_
                            _txt11102_
                            _start21106_
                            _end21107_
                            _i1136_
                            _end11105_))
                      _i1136_
                      '#f)
                  (let* ((_c1138_ (std/srfi/srfi-135/kernel8#text-ref
                                   _txt11102_
                                   (+ _i1136_ _n21111_ '-1)))
                         (_cp1140_ (char->integer _c1138_))
                         (_j1142_ (remainder _cp1140_ '128)))
                    (if (not (char=? _c1138_ _lastchar1115_))
                        (_loop1134_
                         (+ _i1136_ (vector-ref _table1119_ _j1142_)))
                        (if (std/srfi/srfi-135/text#textual-prefix?
                             _txt21103_
                             _txt11102_
                             _start21106_
                             _end21107_
                             _i1136_
                             _end11105_)
                            _i1136_
                            (_loop1134_
                             (+ _i1136_
                                (vector-ref _table1119_ _lastj1117_))))))))))))
  (define std/srfi/srfi-135/text#textual-contains-right
    (lambda (_t11075_ _t21076_ . _rest01077_)
      (let* ((_txt11079_
              (if (string? _t11075_)
                  (std/srfi/srfi-135/kernel8#%string->text _t11075_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _t11075_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _t11075_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-contains-right
                       _t11075_
                       _t21076_))))
             (_txt21081_
              (if (string? _t21076_)
                  (std/srfi/srfi-135/kernel8#%string->text _t21076_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _t21076_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _t21076_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-contains-right
                       _t11075_
                       _t21076_))))
             (_rest1083_ _rest01077_)
             (_start11085_ (if (null? _rest1083_) '0 (car _rest1083_)))
             (_rest1087_ (if (null? _rest1083_) _rest1083_ (cdr _rest1083_)))
             (_end11089_
              (if (null? _rest1087_)
                  (std/srfi/srfi-135/kernel8#%text-length _txt11079_)
                  (car _rest1087_)))
             (_rest1091_ (if (null? _rest1087_) _rest1087_ (cdr _rest1087_)))
             (_start21093_ (if (null? _rest1091_) '0 (car _rest1091_)))
             (_rest1095_ (if (null? _rest1091_) _rest1091_ (cdr _rest1091_)))
             (_end21097_
              (if (null? _rest1095_)
                  (std/srfi/srfi-135/kernel8#%text-length _txt21081_)
                  (car _rest1095_)))
             (_rest1099_ (if (null? _rest1095_) _rest1095_ (cdr _rest1095_))))
        (if (and (null? _rest1099_)
                 (exact-integer? _start11085_)
                 (exact-integer? _end11089_)
                 (exact-integer? _start21093_)
                 (exact-integer? _end21097_)
                 (<= '0
                     _start11085_
                     _end11089_
                     (std/srfi/srfi-135/kernel8#%text-length _txt11079_))
                 (<= '0
                     _start21093_
                     _end21097_
                     (std/srfi/srfi-135/kernel8#%text-length _txt21081_)))
            (std/srfi/srfi-135/text#%textual-contains-right
             _txt11079_
             _txt21081_
             _start11085_
             _end11089_
             _start21093_
             _end21097_)
            (apply std/srfi/srfi-135/kernel8#complain
                   'textual-contains-right
                   _t11075_
                   _t21076_
                   _rest01077_)))))
  (define std/srfi/srfi-135/text#%textual-contains-right
    (lambda (_txt11065_
             _txt21066_
             _start11067_
             _end11068_
             _start21069_
             _end21070_)
      (let ((_n11072_ (- _end11068_ _start11067_))
            (_n21073_ (- _end21070_ _start21069_)))
        (if (< _n11072_ std/srfi/srfi-135/text#%threshold:short1)
            (std/srfi/srfi-135/text#%textual-contains-right:naive
             _txt11065_
             _txt21066_
             _start11067_
             _end11068_
             _start21069_
             _end21070_)
            (if (< (- _n11072_ _n21073_)
                   std/srfi/srfi-135/text#%threshold:longer)
                (std/srfi/srfi-135/text#%textual-contains-right:naive
                 _txt11065_
                 _txt21066_
                 _start11067_
                 _end11068_
                 _start21069_
                 _end21070_)
                (if (< _n21073_ std/srfi/srfi-135/text#%threshold:short2)
                    (std/srfi/srfi-135/text#%textual-contains-right:boyer-moore
                     _txt11065_
                     _txt21066_
                     _start11067_
                     _end11068_
                     _start21069_
                     _end21070_)
                    (std/srfi/srfi-135/text#%textual-contains-right:boyer-moore
                     _txt11065_
                     _txt21066_
                     _start11067_
                     _end11068_
                     _start21069_
                     _end21070_)))))))
  (define std/srfi/srfi-135/text#%textual-contains-right:naive
    (lambda (_txt11047_
             _txt21048_
             _start11049_
             _end11050_
             _start21051_
             _end21052_)
      (let* ((_n11054_ (- _end11050_ _start11049_))
             (_n21056_ (- _end21052_ _start21051_))
             (_lim11058_ (- _end11050_ _n21056_)))
        (let _loop1061_ ((_i1063_ _lim11058_))
          (if (< _i1063_ _start11049_)
              '#f
              (if (std/srfi/srfi-135/text#textual-prefix?
                   _txt21048_
                   _txt11047_
                   _start21051_
                   _end21052_
                   _i1063_
                   _end11050_)
                  _i1063_
                  (_loop1061_ (- _i1063_ '1))))))))
  (define std/srfi/srfi-135/text#%textual-contains-right:boyer-moore
    (lambda (_txt11006_
             _txt21007_
             _start11008_
             _end11009_
             _start21010_
             _end21011_)
      (if (= _start21010_ _end21011_)
          _end11009_
          (let* ((_n11013_ (- _end11009_ _start11008_))
                 (_n21015_ (- _end21011_ _start21010_))
                 (_firstchar1017_
                  (std/srfi/srfi-135/kernel8#text-ref _txt21007_ '0))
                 (_firstj1019_
                  (remainder (char->integer _firstchar1017_) '128))
                 (_table1021_ (make-vector '128 _n21015_)))
            (let _$loop1024_ ((_i1027_ (- _n21015_ '1)))
              (if (<= _i1027_ '0)
                  '#!void
                  (begin
                    (let* ((_c1029_ (std/srfi/srfi-135/kernel8#text-ref
                                     _txt21007_
                                     (+ _i1027_ _start21010_)))
                           (_cp1031_ (char->integer _c1029_))
                           (_j1033_ (remainder _cp1031_ '128)))
                      (vector-set! _table1021_ _j1033_ _i1027_))
                    (_$loop1024_ (- _i1027_ '1)))))
            (let _loop1036_ ((_i1038_ (- _end11009_ _n21015_)))
              (if (<= _i1038_ _start11008_)
                  (if (and (= _i1038_ _start11008_)
                           (std/srfi/srfi-135/text#textual-prefix?
                            _txt21007_
                            _txt11006_
                            _start21010_
                            _end21011_
                            _i1038_
                            _end11009_))
                      _i1038_
                      '#f)
                  (let* ((_c1040_ (std/srfi/srfi-135/kernel8#text-ref
                                   _txt11006_
                                   _i1038_))
                         (_cp1042_ (char->integer _c1040_))
                         (_j1044_ (remainder _cp1042_ '128)))
                    (if (not (char=? _c1040_ _firstchar1017_))
                        (_loop1036_
                         (- _i1038_ (vector-ref _table1021_ _j1044_)))
                        (if (std/srfi/srfi-135/text#textual-prefix?
                             _txt21007_
                             _txt11006_
                             _start21010_
                             _end21011_
                             _i1038_
                             _end11009_)
                            _i1038_
                            (_loop1036_
                             (- _i1038_
                                (vector-ref
                                 _table1021_
                                 _firstj1019_))))))))))))
  (define std/srfi/srfi-135/text#textual-upcase
    (lambda (_txt1004_)
      (if (string? _txt1004_)
          (std/srfi/srfi-135/kernel8#%string->text
           (std/srfi/13#string-upcase__0 _txt1004_))
          (if (let ()
                (declare (not safe))
                (##structure-instance-of?
                 _txt1004_
                 'std/srfi/srfi-135/kernel8#text-rtd))
              (std/srfi/srfi-135/text#%text-upcase _txt1004_)
              (std/srfi/srfi-135/kernel8#complain
               'textual-upcase
               _txt1004_)))))
  (define std/srfi/srfi-135/text#textual-downcase
    (lambda (_txt1002_)
      (if (string? _txt1002_)
          (std/srfi/srfi-135/kernel8#%string->text
           (std/srfi/13#string-downcase__0 _txt1002_))
          (if (let ()
                (declare (not safe))
                (##structure-instance-of?
                 _txt1002_
                 'std/srfi/srfi-135/kernel8#text-rtd))
              (std/srfi/srfi-135/text#%text-downcase
               _txt1002_
               std/srfi/13#string-downcase)
              (std/srfi/srfi-135/kernel8#complain
               'textual-downcase
               _txt1002_)))))
  (define std/srfi/srfi-135/text#textual-foldcase
    (lambda (_txt1000_)
      (if (string? _txt1000_)
          (std/srfi/srfi-135/kernel8#%string->text
           (std/srfi/13#string-downcase__0 _txt1000_))
          (if (let ()
                (declare (not safe))
                (##structure-instance-of?
                 _txt1000_
                 'std/srfi/srfi-135/kernel8#text-rtd))
              (std/srfi/srfi-135/text#%text-downcase
               _txt1000_
               std/srfi/13#string-downcase)
              (std/srfi/srfi-135/kernel8#complain
               'textual-foldcase
               _txt1000_)))))
  (define std/srfi/srfi-135/text#textual-titlecase
    (lambda (_txt998_)
      (if (string? _txt998_)
          (std/srfi/srfi-135/kernel8#%string->text
           (std/srfi/13#string-titlecase__0 _txt998_))
          (if (let ()
                (declare (not safe))
                (##structure-instance-of?
                 _txt998_
                 '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 _txt998_)))
              (std/srfi/srfi-135/kernel8#complain
               'textual-titlecase
               _txt998_)))))
  (define std/srfi/srfi-135/text#%text-upcase
    (lambda (_txt980_)
      (let ((_n982_ (std/srfi/srfi-135/kernel8#%text-length _txt980_)))
        (letrec ((_fastest985_
                  (lambda (_i994_)
                    (if (= _i994_ _n982_)
                        _txt980_
                        (let ((_c996_ (std/srfi/srfi-135/kernel8#%text-ref
                                       _txt980_
                                       _i994_)))
                          (if (char>? _c996_ '#\delete)
                              (std/srfi/srfi-135/text#textual-upcase
                               (std/srfi/srfi-135/text#textual->string__0
                                _txt980_))
                              (if (char<=? '#\a _c996_ '#\z)
                                  (_fast986_
                                   _i994_
                                   (list (std/srfi/srfi-135/kernel8#subtext
                                          _txt980_
                                          '0
                                          _i994_))
                                   '())
                                  (_fastest985_ (+ _i994_ '1))))))))
                 (_fast986_
                  (lambda (_i988_ _texts989_ _chars990_)
                    (if (= _i988_ _n982_)
                        (if (null? _chars990_)
                            (std/srfi/srfi-135/text#textual-concatenate-reverse__0
                             _texts989_)
                            (std/srfi/srfi-135/text#textual-concatenate-reverse__1
                             _texts989_
                             (std/srfi/srfi-135/text#reverse-list->text
                              _chars990_)))
                        (if (and (= '0
                                    (remainder
                                     _i988_
                                     std/srfi/srfi-135/kernel8#N))
                                 (not (null? _chars990_)))
                            (_fast986_
                             _i988_
                             (cons (std/srfi/srfi-135/text#reverse-list->text
                                    _chars990_)
                                   _texts989_)
                             '())
                            (let ((_c992_ (std/srfi/srfi-135/kernel8#%text-ref
                                           _txt980_
                                           _i988_)))
                              (if (char>? _c992_ '#\delete)
                                  (std/srfi/srfi-135/text#textual-append
                                   (std/srfi/srfi-135/text#textual-concatenate-reverse__0
                                    _texts989_)
                                   (std/srfi/srfi-135/text#reverse-list->text
                                    _chars990_)
                                   (std/srfi/srfi-135/kernel8#%string->text
                                    (std/srfi/13#string-upcase__0
                                     (std/srfi/srfi-135/kernel8#subtext
                                      _txt980_
                                      _i988_
                                      _n982_))))
                                  (if (char<=? '#\a _c992_ '#\z)
                                      (_fast986_
                                       (+ _i988_ '1)
                                       _texts989_
                                       (cons (char-upcase _c992_) _chars990_))
                                      (_fast986_
                                       (+ _i988_ '1)
                                       _texts989_
                                       (cons _c992_ _chars990_))))))))))
          (_fastest985_ '0)))))
  (define std/srfi/srfi-135/text#%text-downcase
    (lambda (_txt961_ _string-caser962_)
      (let ((_n964_ (std/srfi/srfi-135/kernel8#%text-length _txt961_)))
        (letrec ((_fastest967_
                  (lambda (_i976_)
                    (if (= _i976_ _n964_)
                        _txt961_
                        (let ((_c978_ (std/srfi/srfi-135/kernel8#%text-ref
                                       _txt961_
                                       _i976_)))
                          (if (char>? _c978_ '#\delete)
                              (std/srfi/srfi-135/text#textual-downcase
                               (std/srfi/srfi-135/text#textual->string__0
                                _txt961_))
                              (if (char<=? '#\A _c978_ '#\Z)
                                  (_fast968_
                                   _i976_
                                   (list (std/srfi/srfi-135/kernel8#subtext
                                          _txt961_
                                          '0
                                          _i976_))
                                   '())
                                  (_fastest967_ (+ _i976_ '1))))))))
                 (_fast968_
                  (lambda (_i970_ _texts971_ _chars972_)
                    (if (= _i970_ _n964_)
                        (if (null? _chars972_)
                            (std/srfi/srfi-135/text#textual-concatenate-reverse__0
                             _texts971_)
                            (std/srfi/srfi-135/text#textual-concatenate-reverse__1
                             _texts971_
                             (std/srfi/srfi-135/text#reverse-list->text
                              _chars972_)))
                        (if (and (= '0
                                    (remainder
                                     _i970_
                                     std/srfi/srfi-135/kernel8#N))
                                 (not (null? _chars972_)))
                            (_fast968_
                             _i970_
                             (cons (std/srfi/srfi-135/text#reverse-list->text
                                    _chars972_)
                                   _texts971_)
                             '())
                            (let ((_c974_ (std/srfi/srfi-135/kernel8#%text-ref
                                           _txt961_
                                           _i970_)))
                              (if (char>? _c974_ '#\delete)
                                  (std/srfi/srfi-135/text#textual-append
                                   (std/srfi/srfi-135/text#textual-concatenate-reverse__0
                                    _texts971_)
                                   (std/srfi/srfi-135/text#reverse-list->text
                                    _chars972_)
                                   (std/srfi/srfi-135/kernel8#%string->text
                                    (_string-caser962_
                                     (std/srfi/srfi-135/kernel8#subtext
                                      _txt961_
                                      _i970_
                                      _n964_))))
                                  (if (char<=? '#\A _c974_ '#\Z)
                                      (_fast968_
                                       (+ _i970_ '1)
                                       _texts971_
                                       (cons (char-downcase _c974_)
                                             _chars972_))
                                      (_fast968_
                                       (+ _i970_ '1)
                                       _texts971_
                                       (cons _c974_ _chars972_))))))))))
          (_fastest967_ '0)))))
  (define std/srfi/srfi-135/text#%string-titlecase
    (lambda (_s943_)
      (let* ((_s945_ (string-copy (std/srfi/13#string-downcase__0 _s943_)))
             (_n947_ (string-length _s945_)))
        (letrec ((_first-character-of-word!950_
                  (lambda (_i957_)
                    (if (< _i957_ _n947_)
                        (let ((_c959_ (string-ref _s945_ _i957_)))
                          (if (char-whitespace? _c959_)
                              (_first-character-of-word!950_ (+ _i957_ '1))
                              (begin
                                (string-set!
                                 _s945_
                                 _i957_
                                 (char-upcase _c959_))
                                (_subsequent-character!951_ (+ _i957_ '1)))))
                        '#!void)))
                 (_subsequent-character!951_
                  (lambda (_i953_)
                    (if (< _i953_ _n947_)
                        (let ((_c955_ (string-ref _s945_ _i953_)))
                          (if (char-whitespace? _c955_)
                              (_first-character-of-word!950_ (+ _i953_ '1))
                              (_subsequent-character!951_ (+ _i953_ '1))))
                        '#!void))))
          (_first-character-of-word!950_ '0)
          _s945_))))
  (define std/srfi/srfi-135/text#textual-append
    (lambda _texts941_
      (std/srfi/srfi-135/kernel8#textual-concatenate _texts941_)))
  (define std/srfi/srfi-135/text#textual-concatenate-reverse__0
    (lambda (_texts932_)
      (std/srfi/srfi-135/kernel8#textual-concatenate (reverse _texts932_))))
  (define std/srfi/srfi-135/text#textual-concatenate-reverse__1
    (lambda (_texts934_ _final-textual935_)
      (std/srfi/srfi-135/text#textual-concatenate-reverse__0
       (cons _final-textual935_ _texts934_))))
  (define std/srfi/srfi-135/text#textual-concatenate-reverse__2
    (lambda (_texts937_ _final-textual938_ _end939_)
      (std/srfi/srfi-135/text#textual-concatenate-reverse__1
       _texts937_
       (std/srfi/srfi-135/kernel8#subtext
        (if (string? _final-textual938_)
            (std/srfi/srfi-135/kernel8#%string->text _final-textual938_)
            (if (let ()
                  (declare (not safe))
                  (##structure-instance-of?
                   _final-textual938_
                   'std/srfi/srfi-135/kernel8#text-rtd))
                _final-textual938_
                (std/srfi/srfi-135/kernel8#complain
                 'textual-concatenate-reverse
                 _texts937_
                 _final-textual938_
                 _end939_)))
        '0
        _end939_))))
  (define std/srfi/srfi-135/text#textual-concatenate-reverse
    (lambda _g5693_
      (let ((_g5692_ (let () (declare (not safe)) (##length _g5693_))))
        (cond ((let () (declare (not safe)) (##fx= _g5692_ 1))
               (apply std/srfi/srfi-135/text#textual-concatenate-reverse__0
                      _g5693_))
              ((let () (declare (not safe)) (##fx= _g5692_ 2))
               (apply std/srfi/srfi-135/text#textual-concatenate-reverse__1
                      _g5693_))
              ((let () (declare (not safe)) (##fx= _g5692_ 3))
               (apply std/srfi/srfi-135/text#textual-concatenate-reverse__2
                      _g5693_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-concatenate-reverse
                _g5693_))))))
  (define std/srfi/srfi-135/text#textual-join__0
    (lambda (_textuals906_)
      (std/srfi/srfi-135/text#textual-join__2 _textuals906_ '" " 'infix)))
  (define std/srfi/srfi-135/text#textual-join__1
    (lambda (_textuals908_ _delimiter909_)
      (std/srfi/srfi-135/text#textual-join__2
       _textuals908_
       _delimiter909_
       'infix)))
  (define std/srfi/srfi-135/text#textual-join__2
    (lambda (_textuals911_ _delimiter912_ _grammar913_)
      (let* ((_texts917_
              (map (lambda (_t915_)
                     (if (string? _t915_)
                         (std/srfi/srfi-135/kernel8#%string->text _t915_)
                         (if (let ()
                               (declare (not safe))
                               (##structure-instance-of?
                                _t915_
                                'std/srfi/srfi-135/kernel8#text-rtd))
                             _t915_
                             (std/srfi/srfi-135/kernel8#complain
                              'textual-join
                              _textuals911_))))
                   _textuals911_))
             (_delimiter919_
              (if (string? _delimiter912_)
                  (std/srfi/srfi-135/kernel8#%string->text _delimiter912_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _delimiter912_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _delimiter912_
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-join
                       _textuals911_
                       _delimiter912_)))))
        (if (memq _grammar913_ '(infix strict-infix prefix suffix))
            (if (null? _texts917_)
                (let ((_$e922_ _grammar913_))
                  (if (eq? 'strict-infix _$e922_)
                      (std/srfi/srfi-135/kernel8#complain
                       'textual-join
                       _textuals911_
                       _delimiter919_
                       _grammar913_)
                      (std/srfi/srfi-135/text#text)))
                (let _loop925_ ((_rtxts927_ (reverse _texts917_))
                                (_texts928_
                                 (if (eq? _grammar913_ 'suffix)
                                     (list _delimiter919_)
                                     '())))
                  (if (null? _rtxts927_)
                      (let ((_texts930_
                             (if (eq? _grammar913_ 'prefix)
                                 _texts928_
                                 (cdr _texts928_))))
                        (std/srfi/srfi-135/kernel8#textual-concatenate
                         _texts930_))
                      (_loop925_
                       (cdr _rtxts927_)
                       (cons _delimiter919_
                             (cons (car _rtxts927_) _texts928_))))))
            (std/srfi/srfi-135/kernel8#complain
             'textual-join
             _textuals911_
             _delimiter919_
             _grammar913_)))))
  (define std/srfi/srfi-135/text#textual-join
    (lambda _g5695_
      (let ((_g5694_ (let () (declare (not safe)) (##length _g5695_))))
        (cond ((let () (declare (not safe)) (##fx= _g5694_ 1))
               (apply std/srfi/srfi-135/text#textual-join__0 _g5695_))
              ((let () (declare (not safe)) (##fx= _g5694_ 2))
               (apply std/srfi/srfi-135/text#textual-join__1 _g5695_))
              ((let () (declare (not safe)) (##fx= _g5694_ 3))
               (apply std/srfi/srfi-135/text#textual-join__2 _g5695_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-join
                _g5695_))))))
  (define std/srfi/srfi-135/text#textual-fold__textual-fold
    (lambda (_kons864_ _knil865_ _txt866_ _start867_ _end868_)
      (if (procedure? _kons864_)
          (let _loop870_ ((_knil872_ _knil865_) (_i873_ _start867_))
            (if (< _i873_ _end868_)
                (_loop870_
                 (_kons864_
                  (std/srfi/srfi-135/kernel8#%text-ref _txt866_ _i873_)
                  _knil872_)
                 (+ _i873_ '1))
                _knil872_))
          (std/srfi/srfi-135/kernel8#complain
           'textual-fold
           _kons864_
           _knil865_
           _txt866_
           _start867_
           _end868_))))
  (define std/srfi/srfi-135/text#textual-fold__0
    (lambda (_kons877_ _knil878_ _txt879_)
      (let ((_text881_
             (if (string? _txt879_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt879_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt879_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt879_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-fold__textual-fold
                      _kons877_
                      _knil878_
                      _txt879_)))))
        (std/srfi/srfi-135/text#textual-fold__textual-fold
         _kons877_
         _knil878_
         _text881_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text881_)))))
  (define std/srfi/srfi-135/text#textual-fold__1
    (lambda (_kons884_ _knil885_ _txt886_ _start887_)
      (let* ((_text889_
              (if (string? _txt886_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt886_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt886_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt886_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-fold__textual-fold
                       _kons884_
                       _knil885_
                       _txt886_
                       _start887_))))
             (_n891_ (std/srfi/srfi-135/kernel8#%text-length _text889_)))
        (if (and (exact-integer? _start887_) (<= '0 _start887_ _n891_))
            (std/srfi/srfi-135/text#textual-fold__textual-fold
             _kons884_
             _knil885_
             _text889_
             _start887_
             _n891_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-fold
             _kons884_
             _knil885_
             _txt886_
             _start887_)))))
  (define std/srfi/srfi-135/text#textual-fold__2
    (lambda (_kons895_ _knil896_ _txt897_ _start898_ _end899_)
      (let* ((_text901_
              (if (string? _txt897_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt897_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt897_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt897_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-fold__textual-fold
                       _kons895_
                       _knil896_
                       _txt897_
                       _start898_
                       _end899_))))
             (_n903_ (std/srfi/srfi-135/kernel8#%text-length _text901_)))
        (if (and (exact-integer? _start898_)
                 (exact-integer? _end899_)
                 (<= '0 _start898_ _end899_ _n903_))
            (std/srfi/srfi-135/text#textual-fold__textual-fold
             _kons895_
             _knil896_
             _text901_
             _start898_
             _end899_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-fold
             _kons895_
             _knil896_
             _txt897_
             _start898_
             _end899_)))))
  (define std/srfi/srfi-135/text#textual-fold
    (lambda _g5697_
      (let ((_g5696_ (let () (declare (not safe)) (##length _g5697_))))
        (cond ((let () (declare (not safe)) (##fx= _g5696_ 3))
               (apply std/srfi/srfi-135/text#textual-fold__0 _g5697_))
              ((let () (declare (not safe)) (##fx= _g5696_ 4))
               (apply std/srfi/srfi-135/text#textual-fold__1 _g5697_))
              ((let () (declare (not safe)) (##fx= _g5696_ 5))
               (apply std/srfi/srfi-135/text#textual-fold__2 _g5697_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-fold
                _g5697_))))))
  (define std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
    (lambda (_kons822_ _knil823_ _txt824_ _start825_ _end826_)
      (if (procedure? _kons822_)
          (let _loop828_ ((_knil830_ _knil823_) (_i831_ (- _end826_ '1)))
            (if (>= _i831_ _start825_)
                (_loop828_
                 (_kons822_
                  (std/srfi/srfi-135/kernel8#%text-ref _txt824_ _i831_)
                  _knil830_)
                 (- _i831_ '1))
                _knil830_))
          (std/srfi/srfi-135/kernel8#complain
           'textual-fold-right
           _kons822_
           _knil823_
           _txt824_
           _start825_
           _end826_))))
  (define std/srfi/srfi-135/text#textual-fold-right__0
    (lambda (_kons835_ _knil836_ _txt837_)
      (let ((_text839_
             (if (string? _txt837_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt837_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt837_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt837_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
                      _kons835_
                      _knil836_
                      _txt837_)))))
        (std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
         _kons835_
         _knil836_
         _text839_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text839_)))))
  (define std/srfi/srfi-135/text#textual-fold-right__1
    (lambda (_kons842_ _knil843_ _txt844_ _start845_)
      (let* ((_text847_
              (if (string? _txt844_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt844_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt844_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt844_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
                       _kons842_
                       _knil843_
                       _txt844_
                       _start845_))))
             (_n849_ (std/srfi/srfi-135/kernel8#%text-length _text847_)))
        (if (and (exact-integer? _start845_) (<= '0 _start845_ _n849_))
            (std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
             _kons842_
             _knil843_
             _text847_
             _start845_
             _n849_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-fold-right
             _kons842_
             _knil843_
             _txt844_
             _start845_)))))
  (define std/srfi/srfi-135/text#textual-fold-right__2
    (lambda (_kons853_ _knil854_ _txt855_ _start856_ _end857_)
      (let* ((_text859_
              (if (string? _txt855_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt855_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt855_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt855_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
                       _kons853_
                       _knil854_
                       _txt855_
                       _start856_
                       _end857_))))
             (_n861_ (std/srfi/srfi-135/kernel8#%text-length _text859_)))
        (if (and (exact-integer? _start856_)
                 (exact-integer? _end857_)
                 (<= '0 _start856_ _end857_ _n861_))
            (std/srfi/srfi-135/text#textual-fold-right__textual-fold-right
             _kons853_
             _knil854_
             _text859_
             _start856_
             _end857_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-fold-right
             _kons853_
             _knil854_
             _txt855_
             _start856_
             _end857_)))))
  (define std/srfi/srfi-135/text#textual-fold-right
    (lambda _g5699_
      (let ((_g5698_ (let () (declare (not safe)) (##length _g5699_))))
        (cond ((let () (declare (not safe)) (##fx= _g5698_ 3))
               (apply std/srfi/srfi-135/text#textual-fold-right__0 _g5699_))
              ((let () (declare (not safe)) (##fx= _g5698_ 4))
               (apply std/srfi/srfi-135/text#textual-fold-right__1 _g5699_))
              ((let () (declare (not safe)) (##fx= _g5698_ 5))
               (apply std/srfi/srfi-135/text#textual-fold-right__2 _g5699_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-fold-right
                _g5699_))))))
  (define std/srfi/srfi-135/text#textual-map__1
    (lambda (_proc817_ _txt1818_ _txt2819_ . _rest820_)
      (std/srfi/srfi-135/text#%textual-mapn
       _proc817_
       (cons _txt1818_ (cons _txt2819_ _rest820_)))))
  (define std/srfi/srfi-135/text#textual-map
    (lambda _g5701_
      (let ((_g5700_ (let () (declare (not safe)) (##length _g5701_))))
        (cond ((let () (declare (not safe)) (##fx= _g5700_ 2))
               (apply std/srfi/srfi-135/text#%textual-map1 _g5701_))
              ((let () (declare (not safe)) (##fx>= _g5700_ 3))
               (apply std/srfi/srfi-135/text#textual-map__1 _g5701_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-map
                _g5701_))))))
  (define std/srfi/srfi-135/text#%textual-map1
    (lambda (_proc798_ _txt799_)
      (let ((_txt801_
             (if (string? _txt799_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt799_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt799_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt799_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-map
                      _proc798_
                      _txt799_)))))
        (if (procedure? _proc798_)
            (let ((_n803_ (std/srfi/srfi-135/kernel8#%text-length _txt801_)))
              (let _loop805_ ((_i807_ '0)
                              (_pieces808_ '())
                              (_chars809_ '())
                              (_k810_ '0))
                (if (= _i807_ _n803_)
                    (std/srfi/srfi-135/kernel8#textual-concatenate
                     (reverse (std/srfi/srfi-135/text#%text-map-pieces
                               _pieces808_
                               _chars809_)))
                    (if (>= _k810_ std/srfi/srfi-135/kernel8#N)
                        (_loop805_
                         _i807_
                         (std/srfi/srfi-135/text#%text-map-pieces
                          _pieces808_
                          _chars809_)
                         '()
                         (remainder _k810_ std/srfi/srfi-135/kernel8#N))
                        (let ((_x812_ (_proc798_
                                       (std/srfi/srfi-135/kernel8#%text-ref
                                        _txt801_
                                        _i807_))))
                          (_loop805_
                           (+ _i807_ '1)
                           _pieces808_
                           (cons _x812_ _chars809_)
                           (+ _k810_
                              (if (char? _x812_)
                                  '1
                                  (if (string? _x812_)
                                      (string-length _x812_)
                                      (if (let ()
                                            (declare (not safe))
                                            (##structure-instance-of?
                                             _x812_
                                             'std/srfi/srfi-135/kernel8#text-rtd))
                                          (std/srfi/srfi-135/kernel8#%text-length
                                           _x812_)
                                          (std/srfi/srfi-135/text#%textual-map-bad-result
                                           _proc798_
                                           _x812_)))))))))))
            (std/srfi/srfi-135/kernel8#complain
             'textual-map
             _proc798_
             _txt801_)))))
  (define std/srfi/srfi-135/text#%textual-mapn
    (lambda (_proc779_ _textuals780_)
      (if (procedure? _proc779_)
          (let* ((_texts784_
                  (map (lambda (_txt782_)
                         (if (string? _txt782_)
                             (std/srfi/srfi-135/kernel8#%string->text _txt782_)
                             (if (let ()
                                   (declare (not safe))
                                   (##structure-instance-of?
                                    _txt782_
                                    'std/srfi/srfi-135/kernel8#text-rtd))
                                 _txt782_
                                 (std/srfi/srfi-135/kernel8#complain
                                  'textual-map
                                  _textuals780_))))
                       _textuals780_))
                 (_n786_ (apply min
                                (map std/srfi/srfi-135/kernel8#%text-length
                                     _texts784_))))
            (let _loop789_ ((_i791_ '0)
                            (_pieces792_ '())
                            (_chars793_ '())
                            (_k794_ '0))
              (if (= _i791_ _n786_)
                  (std/srfi/srfi-135/kernel8#textual-concatenate
                   (reverse (std/srfi/srfi-135/text#%text-map-pieces
                             _pieces792_
                             _chars793_)))
                  (if (>= _k794_ std/srfi/srfi-135/kernel8#N)
                      (_loop789_
                       _i791_
                       (std/srfi/srfi-135/text#%text-map-pieces
                        _pieces792_
                        _chars793_)
                       '()
                       (remainder _k794_ std/srfi/srfi-135/kernel8#N))
                      (let ((_x796_ (apply _proc779_
                                           (std/srfi/srfi-135/text#%fetch-all
                                            _texts784_
                                            _i791_))))
                        (_loop789_
                         (+ _i791_ '1)
                         _pieces792_
                         (cons _x796_ _chars793_)
                         (+ _k794_
                            (if (char? _x796_)
                                '1
                                (if (string? _x796_)
                                    (string-length _x796_)
                                    (if (let ()
                                          (declare (not safe))
                                          (##structure-instance-of?
                                           _x796_
                                           'std/srfi/srfi-135/kernel8#text-rtd))
                                        (std/srfi/srfi-135/kernel8#%text-length
                                         _x796_)
                                        (std/srfi/srfi-135/text#%textual-map-bad-result
                                         _proc779_
                                         _x796_)))))))))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-map
           _proc779_
           _textuals780_))))
  (define std/srfi/srfi-135/text#%textual-map-bad-result
    (lambda (_proc776_ _x777_)
      (error '"textual-map: proc returned non-character" _x777_)))
  (define std/srfi/srfi-135/text#%text-map-pieces
    (lambda (_texts751_ _stuff752_)
      (let _loop754_ ((_revstuff756_ _stuff752_) (_stuff757_ '()) (_n758_ '0))
        (if (null? _revstuff756_)
            (let ((_s760_ (make-string _n758_)))
              (let _inner-loop762_ ((_stuff764_ _stuff757_) (_i765_ '0))
                (if (null? _stuff764_)
                    (cons (std/srfi/srfi-135/kernel8#%string->text _s760_)
                          _texts751_)
                    (let ((_x767_ (car _stuff764_)))
                      (if (char? _x767_)
                          (begin
                            (string-set! _s760_ _i765_ _x767_)
                            (_inner-loop762_ (cdr _stuff764_) (+ _i765_ '1)))
                          (if (string? _x767_)
                              (begin
                                (std/srfi/srfi-135/etc#string-copy!
                                 _s760_
                                 _i765_
                                 _x767_)
                                (_inner-loop762_
                                 (cdr _stuff764_)
                                 (+ _i765_ (string-length _x767_))))
                              (begin
                                (std/srfi/srfi-135/etc#string-copy!
                                 _s760_
                                 _i765_
                                 (std/srfi/srfi-135/text#textual->string__0
                                  _x767_))
                                (_inner-loop762_
                                 (cdr _stuff764_)
                                 (+ _i765_
                                    (std/srfi/srfi-135/kernel8#text-length
                                     _x767_))))))))))
            (let* ((_x769_ (car _revstuff756_))
                   (_revstuff771_ (cdr _revstuff756_))
                   (_stuff773_ (cons _x769_ _stuff757_)))
              (_loop754_
               _revstuff771_
               _stuff773_
               (+ _n758_
                  (if (char? _x769_)
                      '1
                      (if (string? _x769_)
                          (string-length _x769_)
                          (std/srfi/srfi-135/kernel8#text-length
                           _x769_))))))))))
  (define std/srfi/srfi-135/text#textual-for-each__1
    (lambda (_proc746_ _txt1747_ _txt2748_ . _rest749_)
      (std/srfi/srfi-135/text#%textual-for-eachn
       _proc746_
       (cons _txt1747_ (cons _txt2748_ _rest749_)))))
  (define std/srfi/srfi-135/text#textual-for-each
    (lambda _g5703_
      (let ((_g5702_ (let () (declare (not safe)) (##length _g5703_))))
        (cond ((let () (declare (not safe)) (##fx= _g5702_ 2))
               (apply std/srfi/srfi-135/text#%textual-for-each1 _g5703_))
              ((let () (declare (not safe)) (##fx>= _g5702_ 3))
               (apply std/srfi/srfi-135/text#textual-for-each__1 _g5703_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-for-each
                _g5703_))))))
  (define std/srfi/srfi-135/text#%textual-for-each1
    (lambda (_proc732_ _txt733_)
      (let ((_txt735_
             (if (string? _txt733_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt733_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt733_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt733_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-for-each
                      _proc732_
                      _txt733_)))))
        (if (procedure? _proc732_)
            (let ((_n737_ (std/srfi/srfi-135/kernel8#%text-length _txt735_)))
              (let _loop739_ ((_i741_ '0))
                (if (< _i741_ _n737_)
                    (begin
                      (_proc732_
                       (std/srfi/srfi-135/kernel8#%text-ref _txt735_ _i741_))
                      (_loop739_ (+ _i741_ '1)))
                    '#!void)))
            (std/srfi/srfi-135/kernel8#complain
             'textual-for-each
             _proc732_
             _txt735_)))))
  (define std/srfi/srfi-135/text#%textual-for-eachn
    (lambda (_proc718_ _textuals719_)
      (if (procedure? _proc718_)
          (let* ((_texts723_
                  (map (lambda (_txt721_)
                         (if (string? _txt721_)
                             (std/srfi/srfi-135/kernel8#%string->text _txt721_)
                             (if (let ()
                                   (declare (not safe))
                                   (##structure-instance-of?
                                    _txt721_
                                    'std/srfi/srfi-135/kernel8#text-rtd))
                                 _txt721_
                                 (std/srfi/srfi-135/kernel8#complain
                                  'textual-map
                                  _textuals719_))))
                       _textuals719_))
                 (_n725_ (apply min
                                (map std/srfi/srfi-135/kernel8#%text-length
                                     _texts723_))))
            (let _loop728_ ((_i730_ '0))
              (if (< _i730_ _n725_)
                  (begin
                    (apply _proc718_
                           (std/srfi/srfi-135/text#%fetch-all
                            _texts723_
                            _i730_))
                    (_loop728_ (+ _i730_ '1)))
                  '#!void)))
          (std/srfi/srfi-135/kernel8#complain
           'textual-for-each
           _proc718_
           _textuals719_))))
  (define std/srfi/srfi-135/text#%fetch-all
    (lambda (_texts715_ _i716_)
      (if (null? _texts715_)
          '()
          (cons (std/srfi/srfi-135/kernel8#%text-ref (car _texts715_) _i716_)
                (std/srfi/srfi-135/text#%fetch-all (cdr _texts715_) _i716_)))))
  (define std/srfi/srfi-135/text#textual-map-index__textual-map-index
    (lambda (_proc671_ _txt672_ _start673_ _end674_)
      (if (procedure? _proc671_)
          (let ((_n676_ _end674_))
            (let _loop678_ ((_i680_ _start673_)
                            (_pieces681_ '())
                            (_chars682_ '())
                            (_k683_ '0))
              (if (= _i680_ _n676_)
                  (std/srfi/srfi-135/kernel8#textual-concatenate
                   (reverse (std/srfi/srfi-135/text#%text-map-pieces
                             _pieces681_
                             _chars682_)))
                  (if (>= _k683_ std/srfi/srfi-135/kernel8#N)
                      (_loop678_
                       _i680_
                       (std/srfi/srfi-135/text#%text-map-pieces
                        _pieces681_
                        _chars682_)
                       '()
                       (remainder _k683_ std/srfi/srfi-135/kernel8#N))
                      (let ((_x685_ (_proc671_ _i680_)))
                        (_loop678_
                         (+ _i680_ '1)
                         _pieces681_
                         (cons _x685_ _chars682_)
                         (+ _k683_
                            (if (char? _x685_)
                                '1
                                (if (string? _x685_)
                                    (string-length _x685_)
                                    (if (let ()
                                          (declare (not safe))
                                          (##structure-instance-of?
                                           _x685_
                                           'std/srfi/srfi-135/kernel8#text-rtd))
                                        (std/srfi/srfi-135/kernel8#%text-length
                                         _x685_)
                                        (std/srfi/srfi-135/text#%textual-map-bad-result
                                         _proc671_
                                         _x685_)))))))))))
          (std/srfi/srfi-135/kernel8#complain
           'textual-map-index
           _proc671_
           _txt672_))))
  (define std/srfi/srfi-135/text#textual-map-index__0
    (lambda (_proc689_ _txt690_)
      (let ((_text692_
             (if (string? _txt690_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt690_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt690_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt690_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-map-index__textual-map-index
                      _proc689_
                      _txt690_)))))
        (std/srfi/srfi-135/text#textual-map-index__textual-map-index
         _proc689_
         _text692_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text692_)))))
  (define std/srfi/srfi-135/text#textual-map-index__1
    (lambda (_proc695_ _txt696_ _start697_)
      (let* ((_text699_
              (if (string? _txt696_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt696_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt696_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt696_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-map-index__textual-map-index
                       _proc695_
                       _txt696_
                       _start697_))))
             (_n701_ (std/srfi/srfi-135/kernel8#%text-length _text699_)))
        (if (and (exact-integer? _start697_) (<= '0 _start697_ _n701_))
            (std/srfi/srfi-135/text#textual-map-index__textual-map-index
             _proc695_
             _text699_
             _start697_
             _n701_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-map-index
             _proc695_
             _txt696_
             _start697_)))))
  (define std/srfi/srfi-135/text#textual-map-index__2
    (lambda (_proc705_ _txt706_ _start707_ _end708_)
      (let* ((_text710_
              (if (string? _txt706_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt706_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt706_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt706_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-map-index__textual-map-index
                       _proc705_
                       _txt706_
                       _start707_
                       _end708_))))
             (_n712_ (std/srfi/srfi-135/kernel8#%text-length _text710_)))
        (if (and (exact-integer? _start707_)
                 (exact-integer? _end708_)
                 (<= '0 _start707_ _end708_ _n712_))
            (std/srfi/srfi-135/text#textual-map-index__textual-map-index
             _proc705_
             _text710_
             _start707_
             _end708_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-map-index
             _proc705_
             _txt706_
             _start707_
             _end708_)))))
  (define std/srfi/srfi-135/text#textual-map-index
    (lambda _g5705_
      (let ((_g5704_ (let () (declare (not safe)) (##length _g5705_))))
        (cond ((let () (declare (not safe)) (##fx= _g5704_ 2))
               (apply std/srfi/srfi-135/text#textual-map-index__0 _g5705_))
              ((let () (declare (not safe)) (##fx= _g5704_ 3))
               (apply std/srfi/srfi-135/text#textual-map-index__1 _g5705_))
              ((let () (declare (not safe)) (##fx= _g5704_ 4))
               (apply std/srfi/srfi-135/text#textual-map-index__2 _g5705_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-map-index
                _g5705_))))))
  (define std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
    (lambda (_proc632_ _txt633_ _start634_ _end635_)
      (if (procedure? _proc632_)
          (let ((_n637_ _end635_))
            (let _loop639_ ((_i641_ _start634_))
              (if (< _i641_ _n637_)
                  (begin (_proc632_ _i641_) (_loop639_ (+ _i641_ '1)))
                  '#!void)))
          (std/srfi/srfi-135/kernel8#complain
           'textual-for-each-index
           _proc632_
           _txt633_))))
  (define std/srfi/srfi-135/text#textual-for-each-index__0
    (lambda (_proc645_ _txt646_)
      (let ((_text648_
             (if (string? _txt646_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt646_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt646_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt646_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
                      _proc645_
                      _txt646_)))))
        (std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
         _proc645_
         _text648_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text648_)))))
  (define std/srfi/srfi-135/text#textual-for-each-index__1
    (lambda (_proc651_ _txt652_ _start653_)
      (let* ((_text655_
              (if (string? _txt652_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt652_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt652_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt652_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
                       _proc651_
                       _txt652_
                       _start653_))))
             (_n657_ (std/srfi/srfi-135/kernel8#%text-length _text655_)))
        (if (and (exact-integer? _start653_) (<= '0 _start653_ _n657_))
            (std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
             _proc651_
             _text655_
             _start653_
             _n657_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-for-each-index
             _proc651_
             _txt652_
             _start653_)))))
  (define std/srfi/srfi-135/text#textual-for-each-index__2
    (lambda (_proc661_ _txt662_ _start663_ _end664_)
      (let* ((_text666_
              (if (string? _txt662_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt662_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt662_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt662_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
                       _proc661_
                       _txt662_
                       _start663_
                       _end664_))))
             (_n668_ (std/srfi/srfi-135/kernel8#%text-length _text666_)))
        (if (and (exact-integer? _start663_)
                 (exact-integer? _end664_)
                 (<= '0 _start663_ _end664_ _n668_))
            (std/srfi/srfi-135/text#textual-for-each-index__textual-for-each-index
             _proc661_
             _text666_
             _start663_
             _end664_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-for-each-index
             _proc661_
             _txt662_
             _start663_
             _end664_)))))
  (define std/srfi/srfi-135/text#textual-for-each-index
    (lambda _g5707_
      (let ((_g5706_ (let () (declare (not safe)) (##length _g5707_))))
        (cond ((let () (declare (not safe)) (##fx= _g5706_ 2))
               (apply std/srfi/srfi-135/text#textual-for-each-index__0
                      _g5707_))
              ((let () (declare (not safe)) (##fx= _g5706_ 3))
               (apply std/srfi/srfi-135/text#textual-for-each-index__1
                      _g5707_))
              ((let () (declare (not safe)) (##fx= _g5706_ 4))
               (apply std/srfi/srfi-135/text#textual-for-each-index__2
                      _g5707_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-for-each-index
                _g5707_))))))
  (define std/srfi/srfi-135/text#textual-count
    (lambda (_txt611_ _pred612_ . _rest613_)
      (let ((_txt615_
             (if (string? _txt611_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt611_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt611_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt611_
                     (std/srfi/srfi-135/kernel8#complain
                      'textual-count
                      _txt611_
                      _pred612_)))))
        (let ((_start620_ (if (null? _rest613_) '0 (car _rest613_)))
              (_end621_
               (if (or (null? _rest613_) (null? (cdr _rest613_)))
                   (std/srfi/srfi-135/kernel8#%text-length _txt615_)
                   (car (cdr _rest613_)))))
          (if (and (procedure? _pred612_)
                   (or (null? _rest613_)
                       (null? (cdr _rest613_))
                       (null? (cdr (cdr _rest613_))))
                   (exact-integer? _start620_)
                   (exact-integer? _end621_)
                   (<= '0
                       _start620_
                       _end621_
                       (std/srfi/srfi-135/kernel8#%text-length _txt615_)))
              (std/srfi/srfi-135/text#textual-fold__2
               (lambda (_c629_ _n630_)
                 (if (_pred612_ _c629_) (+ _n630_ '1) _n630_))
               '0
               _txt615_
               _start620_
               _end621_)
              (std/srfi/srfi-135/kernel8#complain
               'textual-count
               _txt615_
               _pred612_
               _start620_
               _end621_))))))
  (define std/srfi/srfi-135/text#textual-filter__textual-filter
    (lambda (_pred576_ _txt577_ _start578_ _end579_)
      (if (procedure? _pred576_)
          (std/srfi/srfi-135/text#%textual-map1
           (lambda (_c581_) (if (_pred576_ _c581_) _c581_ '""))
           (std/srfi/srfi-135/kernel8#subtext _txt577_ _start578_ _end579_))
          (std/srfi/srfi-135/kernel8#complain
           'textual-filter
           _pred576_
           _txt577_
           _start578_
           _end579_))))
  (define std/srfi/srfi-135/text#textual-filter__0
    (lambda (_pred585_ _txt586_)
      (let ((_text588_
             (if (string? _txt586_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt586_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt586_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt586_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-filter__textual-filter
                      _pred585_
                      _txt586_)))))
        (std/srfi/srfi-135/text#textual-filter__textual-filter
         _pred585_
         _text588_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text588_)))))
  (define std/srfi/srfi-135/text#textual-filter__1
    (lambda (_pred591_ _txt592_ _start593_)
      (let* ((_text595_
              (if (string? _txt592_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt592_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt592_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt592_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-filter__textual-filter
                       _pred591_
                       _txt592_
                       _start593_))))
             (_n597_ (std/srfi/srfi-135/kernel8#%text-length _text595_)))
        (if (and (exact-integer? _start593_) (<= '0 _start593_ _n597_))
            (std/srfi/srfi-135/text#textual-filter__textual-filter
             _pred591_
             _text595_
             _start593_
             _n597_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-filter
             _pred591_
             _txt592_
             _start593_)))))
  (define std/srfi/srfi-135/text#textual-filter__2
    (lambda (_pred601_ _txt602_ _start603_ _end604_)
      (let* ((_text606_
              (if (string? _txt602_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt602_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt602_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt602_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-filter__textual-filter
                       _pred601_
                       _txt602_
                       _start603_
                       _end604_))))
             (_n608_ (std/srfi/srfi-135/kernel8#%text-length _text606_)))
        (if (and (exact-integer? _start603_)
                 (exact-integer? _end604_)
                 (<= '0 _start603_ _end604_ _n608_))
            (std/srfi/srfi-135/text#textual-filter__textual-filter
             _pred601_
             _text606_
             _start603_
             _end604_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-filter
             _pred601_
             _txt602_
             _start603_
             _end604_)))))
  (define std/srfi/srfi-135/text#textual-filter
    (lambda _g5709_
      (let ((_g5708_ (let () (declare (not safe)) (##length _g5709_))))
        (cond ((let () (declare (not safe)) (##fx= _g5708_ 2))
               (apply std/srfi/srfi-135/text#textual-filter__0 _g5709_))
              ((let () (declare (not safe)) (##fx= _g5708_ 3))
               (apply std/srfi/srfi-135/text#textual-filter__1 _g5709_))
              ((let () (declare (not safe)) (##fx= _g5708_ 4))
               (apply std/srfi/srfi-135/text#textual-filter__2 _g5709_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-filter
                _g5709_))))))
  (define std/srfi/srfi-135/text#textual-remove__textual-remove
    (lambda (_pred541_ _txt542_ _start543_ _end544_)
      (std/srfi/srfi-135/text#textual-filter__2
       (lambda (_c546_) (not (_pred541_ _c546_)))
       _txt542_
       _start543_
       _end544_)))
  (define std/srfi/srfi-135/text#textual-remove__0
    (lambda (_pred550_ _txt551_)
      (let ((_text553_
             (if (string? _txt551_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt551_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt551_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt551_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-remove__textual-remove
                      _pred550_
                      _txt551_)))))
        (std/srfi/srfi-135/text#textual-remove__textual-remove
         _pred550_
         _text553_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text553_)))))
  (define std/srfi/srfi-135/text#textual-remove__1
    (lambda (_pred556_ _txt557_ _start558_)
      (let* ((_text560_
              (if (string? _txt557_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt557_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt557_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt557_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-remove__textual-remove
                       _pred556_
                       _txt557_
                       _start558_))))
             (_n562_ (std/srfi/srfi-135/kernel8#%text-length _text560_)))
        (if (and (exact-integer? _start558_) (<= '0 _start558_ _n562_))
            (std/srfi/srfi-135/text#textual-remove__textual-remove
             _pred556_
             _text560_
             _start558_
             _n562_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-remove
             _pred556_
             _txt557_
             _start558_)))))
  (define std/srfi/srfi-135/text#textual-remove__2
    (lambda (_pred566_ _txt567_ _start568_ _end569_)
      (let* ((_text571_
              (if (string? _txt567_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt567_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt567_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt567_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-remove__textual-remove
                       _pred566_
                       _txt567_
                       _start568_
                       _end569_))))
             (_n573_ (std/srfi/srfi-135/kernel8#%text-length _text571_)))
        (if (and (exact-integer? _start568_)
                 (exact-integer? _end569_)
                 (<= '0 _start568_ _end569_ _n573_))
            (std/srfi/srfi-135/text#textual-remove__textual-remove
             _pred566_
             _text571_
             _start568_
             _end569_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-remove
             _pred566_
             _txt567_
             _start568_
             _end569_)))))
  (define std/srfi/srfi-135/text#textual-remove
    (lambda _g5711_
      (let ((_g5710_ (let () (declare (not safe)) (##length _g5711_))))
        (cond ((let () (declare (not safe)) (##fx= _g5710_ 2))
               (apply std/srfi/srfi-135/text#textual-remove__0 _g5711_))
              ((let () (declare (not safe)) (##fx= _g5710_ 3))
               (apply std/srfi/srfi-135/text#textual-remove__1 _g5711_))
              ((let () (declare (not safe)) (##fx= _g5710_ 4))
               (apply std/srfi/srfi-135/text#textual-remove__2 _g5711_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-remove
                _g5711_))))))
  (define std/srfi/srfi-135/text#textual-reverse__textual-reverse
    (lambda (_txt502_ _start503_ _end504_)
      (let* ((_n506_ (- _end504_ _start503_)) (_s508_ (make-string _n506_)))
        (let _$loop511_ ((_i514_ _start503_))
          (if (= _i514_ _end504_)
              (std/srfi/srfi-135/kernel8#%string->text _s508_)
              (begin
                (string-set!
                 _s508_
                 (- _n506_ (- _i514_ _start503_) '1)
                 (std/srfi/srfi-135/kernel8#%text-ref _txt502_ _i514_))
                (_$loop511_ (+ _i514_ '1))))))))
  (define std/srfi/srfi-135/text#textual-reverse__0
    (lambda (_txt518_)
      (let ((_text520_
             (if (string? _txt518_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt518_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt518_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt518_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/text#textual-reverse__textual-reverse
                      _txt518_)))))
        (std/srfi/srfi-135/text#textual-reverse__textual-reverse
         _text520_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text520_)))))
  (define std/srfi/srfi-135/text#textual-reverse__1
    (lambda (_txt523_ _start524_)
      (let* ((_text526_
              (if (string? _txt523_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt523_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt523_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt523_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-reverse__textual-reverse
                       _txt523_
                       _start524_))))
             (_n528_ (std/srfi/srfi-135/kernel8#%text-length _text526_)))
        (if (and (exact-integer? _start524_) (<= '0 _start524_ _n528_))
            (std/srfi/srfi-135/text#textual-reverse__textual-reverse
             _text526_
             _start524_
             _n528_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-reverse
             _txt523_
             _start524_)))))
  (define std/srfi/srfi-135/text#textual-reverse__2
    (lambda (_txt532_ _start533_ _end534_)
      (let* ((_text536_
              (if (string? _txt532_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt532_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt532_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt532_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/text#textual-reverse__textual-reverse
                       _txt532_
                       _start533_
                       _end534_))))
             (_n538_ (std/srfi/srfi-135/kernel8#%text-length _text536_)))
        (if (and (exact-integer? _start533_)
                 (exact-integer? _end534_)
                 (<= '0 _start533_ _end534_ _n538_))
            (std/srfi/srfi-135/text#textual-reverse__textual-reverse
             _text536_
             _start533_
             _end534_)
            (std/srfi/srfi-135/kernel8#complain
             'textual-reverse
             _txt532_
             _start533_
             _end534_)))))
  (define std/srfi/srfi-135/text#textual-reverse
    (lambda _g5713_
      (let ((_g5712_ (let () (declare (not safe)) (##length _g5713_))))
        (cond ((let () (declare (not safe)) (##fx= _g5712_ 1))
               (apply std/srfi/srfi-135/text#textual-reverse__0 _g5713_))
              ((let () (declare (not safe)) (##fx= _g5712_ 2))
               (apply std/srfi/srfi-135/text#textual-reverse__1 _g5713_))
              ((let () (declare (not safe)) (##fx= _g5712_ 3))
               (apply std/srfi/srfi-135/text#textual-reverse__2 _g5713_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-reverse
                _g5713_))))))
  (define std/srfi/srfi-135/text#textual-replicate__0
    (lambda (_s462_ _from463_ _to464_ _start465_ _end466_)
      (let ((_s468_ (if (string? _s462_)
                        (std/srfi/srfi-135/kernel8#%string->text _s462_)
                        (if (let ()
                              (declare (not safe))
                              (##structure-instance-of?
                               _s462_
                               'std/srfi/srfi-135/kernel8#text-rtd))
                            _s462_
                            (std/srfi/srfi-135/kernel8#complain
                             'textual-replicate
                             _s462_
                             _from463_
                             _to464_
                             _start465_
                             _end466_)))))
        (std/srfi/srfi-135/text#textual-replicate__2
         (std/srfi/srfi-135/kernel8#subtext _s468_ _start465_ _end466_)
         _from463_
         _to464_))))
  (define std/srfi/srfi-135/text#textual-replicate__1
    (lambda (_s470_ _from471_ _to472_ _start473_)
      (let ((_s475_ (if (string? _s470_)
                        (std/srfi/srfi-135/kernel8#%string->text _s470_)
                        (if (let ()
                              (declare (not safe))
                              (##structure-instance-of?
                               _s470_
                               'std/srfi/srfi-135/kernel8#text-rtd))
                            _s470_
                            (std/srfi/srfi-135/kernel8#complain
                             'textual-replicate
                             _s470_
                             _from471_
                             _to472_
                             _start473_)))))
        (std/srfi/srfi-135/text#textual-replicate__2
         (std/srfi/srfi-135/kernel8#subtext
          _s475_
          _start473_
          (std/srfi/srfi-135/text#textual-length _s475_))
         _from471_
         _to472_))))
  (define std/srfi/srfi-135/text#textual-replicate__2
    (lambda (_s0477_ _from478_ _to479_)
      (let* ((_s481_ (if (string? _s0477_)
                         (std/srfi/srfi-135/kernel8#%string->text _s0477_)
                         (if (let ()
                               (declare (not safe))
                               (##structure-instance-of?
                                _s0477_
                                'std/srfi/srfi-135/kernel8#text-rtd))
                             _s0477_
                             (std/srfi/srfi-135/kernel8#complain
                              'textual-replicate
                              _s0477_
                              _from478_
                              _to479_))))
             (_n483_ (- _to479_ _from478_))
             (_len485_ (std/srfi/srfi-135/kernel8#%text-length _s481_)))
        (if (= _n483_ '0)
            '""
            (if (or (< _n483_ '0) (= _len485_ '0))
                (std/srfi/srfi-135/kernel8#complain
                 'textual-replicate
                 _s481_
                 _from478_
                 _to479_)
                (let* ((_from491_
                        (std/srfi/srfi-135/etc#mod _from478_ _len485_))
                       (_to493_ (+ _from491_ _n483_)))
                  (let _$loop496_ ((_replicates499_ '())
                                   (_replicates-length500_ '0))
                    (if (>= _replicates-length500_ _to493_)
                        (std/srfi/srfi-135/kernel8#subtext
                         (apply std/srfi/srfi-135/text#textual-append
                                _replicates499_)
                         _from491_
                         _to493_)
                        (_$loop496_
                         (cons _s481_ _replicates499_)
                         (+ _replicates-length500_ _len485_))))))))))
  (define std/srfi/srfi-135/text#textual-replicate
    (lambda _g5715_
      (let ((_g5714_ (let () (declare (not safe)) (##length _g5715_))))
        (cond ((let () (declare (not safe)) (##fx= _g5714_ 5))
               (apply std/srfi/srfi-135/text#textual-replicate__0 _g5715_))
              ((let () (declare (not safe)) (##fx= _g5714_ 4))
               (apply std/srfi/srfi-135/text#textual-replicate__1 _g5715_))
              ((let () (declare (not safe)) (##fx= _g5714_ 3))
               (apply std/srfi/srfi-135/text#textual-replicate__2 _g5715_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-replicate
                _g5715_))))))
  (define std/srfi/srfi-135/text#textual-split__0
    (lambda (_s416_ _delimiter417_ _grammar418_ _limit419_ _start420_ _end421_)
      (std/srfi/srfi-135/text#textual-split__4
       (std/srfi/srfi-135/text#subtextual _s416_ _start420_ _end421_)
       _delimiter417_
       _grammar418_
       _limit419_)))
  (define std/srfi/srfi-135/text#textual-split__1
    (lambda (_s423_ _delimiter424_ _grammar425_ _limit426_ _start427_)
      (std/srfi/srfi-135/text#textual-split__4
       (std/srfi/srfi-135/text#subtextual
        _s423_
        _start427_
        (std/srfi/srfi-135/text#textual-length _s423_))
       _delimiter424_
       _grammar425_
       _limit426_)))
  (define std/srfi/srfi-135/text#textual-split__2
    (lambda (_s429_ _delimiter430_)
      (std/srfi/srfi-135/text#textual-split__4
       _s429_
       _delimiter430_
       'infix
       '#f)))
  (define std/srfi/srfi-135/text#textual-split__3
    (lambda (_s432_ _delimiter433_ _grammar434_)
      (std/srfi/srfi-135/text#textual-split__4
       _s432_
       _delimiter433_
       _grammar434_
       '#f)))
  (define std/srfi/srfi-135/text#textual-split__4
    (lambda (_s0436_ _delimiter437_ _grammar438_ _limit439_)
      (letrec ((_bad-arguments441_
                (lambda ()
                  (std/srfi/srfi-135/kernel8#complain
                   'textual-split
                   _s0436_
                   _delimiter437_
                   _grammar438_
                   _limit439_))))
        (let* ((_s443_ (if (string? _s0436_)
                           (std/srfi/srfi-135/kernel8#%string->text _s0436_)
                           (if (let ()
                                 (declare (not safe))
                                 (##structure-instance-of?
                                  _s0436_
                                  'std/srfi/srfi-135/kernel8#text-rtd))
                               _s0436_
                               (std/srfi/srfi-135/kernel8#complain
                                'textual-split
                                _s0436_
                                _delimiter437_
                                _grammar438_
                                _limit439_))))
               (_delimiter445_
                (if (string? _delimiter437_)
                    (std/srfi/srfi-135/kernel8#%string->text _delimiter437_)
                    (if (let ()
                          (declare (not safe))
                          (##structure-instance-of?
                           _delimiter437_
                           'std/srfi/srfi-135/kernel8#text-rtd))
                        _delimiter437_
                        (std/srfi/srfi-135/kernel8#complain
                         'textual-split
                         _s0436_
                         _delimiter437_
                         _grammar438_
                         _limit439_))))
               (_limit450_
                (let ((_$e447_ _limit439_))
                  (if _$e447_
                      _$e447_
                      (std/srfi/srfi-135/kernel8#%text-length _s443_))))
               (_splits452_
                (if (= '0
                       (std/srfi/srfi-135/kernel8#%text-length _delimiter445_))
                    (std/srfi/srfi-135/text#%text-split-into-characters
                     _s443_
                     _limit450_)
                    (std/srfi/srfi-135/text#%text-split-using-word
                     _s443_
                     _delimiter445_
                     _limit450_))))
          (let ((_$e455_ _grammar438_))
            (if (or (eq? 'infix _$e455_) (eq? 'strict-infix _$e455_))
                (if (= '0 (std/srfi/srfi-135/kernel8#%text-length _s443_))
                    (if (eq? _grammar438_ 'infix) '() (_bad-arguments441_))
                    _splits452_)
                (if (eq? 'prefix _$e455_)
                    (if (and (pair? _splits452_)
                             (= '0
                                (std/srfi/srfi-135/kernel8#%text-length
                                 (car _splits452_))))
                        (cdr _splits452_)
                        _splits452_)
                    (if (eq? 'suffix _$e455_)
                        (if (and (pair? _splits452_)
                                 (= '0
                                    (std/srfi/srfi-135/kernel8#%text-length
                                     (car (std/srfi/srfi-135/etc#last-pair
                                           _splits452_)))))
                            (reverse (cdr (reverse _splits452_)))
                            _splits452_)
                        (_bad-arguments441_)))))))))
  (define std/srfi/srfi-135/text#textual-split
    (lambda _g5717_
      (let ((_g5716_ (let () (declare (not safe)) (##length _g5717_))))
        (cond ((let () (declare (not safe)) (##fx= _g5716_ 6))
               (apply std/srfi/srfi-135/text#textual-split__0 _g5717_))
              ((let () (declare (not safe)) (##fx= _g5716_ 5))
               (apply std/srfi/srfi-135/text#textual-split__1 _g5717_))
              ((let () (declare (not safe)) (##fx= _g5716_ 2))
               (apply std/srfi/srfi-135/text#textual-split__2 _g5717_))
              ((let () (declare (not safe)) (##fx= _g5716_ 3))
               (apply std/srfi/srfi-135/text#textual-split__3 _g5717_))
              ((let () (declare (not safe)) (##fx= _g5716_ 4))
               (apply std/srfi/srfi-135/text#textual-split__4 _g5717_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/text#textual-split
                _g5717_))))))
  (define std/srfi/srfi-135/text#%text-split-into-characters
    (lambda (_s411_ _limit412_)
      (let ((_n414_ (std/srfi/srfi-135/kernel8#%text-length _s411_)))
        (if (> _n414_ (+ _limit412_ '1))
            (append (std/srfi/srfi-135/text#%text-split-into-characters
                     (std/srfi/srfi-135/kernel8#subtext _s411_ '0 _limit412_)
                     _limit412_)
                    (list (std/srfi/srfi-135/kernel8#subtext
                           _s411_
                           _limit412_
                           _n414_)))
            (map std/srfi/srfi-135/text#text
                 (std/srfi/srfi-135/text#textual->list__0 _s411_))))))
  (define std/srfi/srfi-135/text#%text-split-using-word
    (lambda (_txt399_ _sep400_ _limit401_)
      (let _loop403_ ((_i405_ '0) (_limit406_ _limit401_) (_texts407_ '()))
        (if (= '0 _limit406_)
            (reverse (cons (std/srfi/srfi-135/kernel8#subtext
                            _txt399_
                            _i405_
                            (std/srfi/srfi-135/kernel8#%text-length _txt399_))
                           _texts407_))
            (let ((_i2409_ (std/srfi/srfi-135/text#textual-contains
                            _txt399_
                            _sep400_
                            _i405_)))
              (if _i2409_
                  (_loop403_
                   (+ _i2409_
                      (std/srfi/srfi-135/kernel8#%text-length _sep400_))
                   (- _limit406_ '1)
                   (cons (std/srfi/srfi-135/kernel8#subtext
                          _txt399_
                          _i405_
                          _i2409_)
                         _texts407_))
                  (_loop403_ _i405_ '0 _texts407_))))))))
