(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/121#any
    (lambda (_pred89222_ _ls89223_)
      (if (null? (cdr _ls89223_))
          (_pred89222_ (car _ls89223_))
          ((lambda (_x89225_)
             (if _x89225_
                 _x89225_
                 (std/srfi/121#any _pred89222_ (cdr _ls89223_))))
           (_pred89222_ (car _ls89223_))))))
  (define std/srfi/121#every
    (lambda (_pred89219_ _ls89220_)
      (if (null? (cdr _ls89220_))
          (_pred89219_ (car _ls89220_))
          (if (_pred89219_ (car _ls89220_))
              (std/srfi/121#every _pred89219_ (cdr _ls89220_))
              '#f))))
  (define std/srfi/121#generator
    (lambda _args89214_
      (lambda ()
        (if (null? _args89214_)
            (eof-object)
            (let ((_next89217_ (car _args89214_)))
              (set! _args89214_ (cdr _args89214_))
              _next89217_)))))
  (define std/srfi/121#make-iota-generator__0
    (lambda (_count89205_) (std/srfi/121#make-iota _count89205_ '0 '1)))
  (define std/srfi/121#make-iota-generator__1
    (lambda (_count89207_ _start89208_)
      (std/srfi/121#make-iota _count89207_ _start89208_ '1)))
  (define std/srfi/121#make-iota-generator
    (lambda _g89227_
      (let ((_g89226_ (length _g89227_)))
        (cond ((##fx= _g89226_ 1)
               (apply std/srfi/121#make-iota-generator__0 _g89227_))
              ((##fx= _g89226_ 2)
               (apply std/srfi/121#make-iota-generator__1 _g89227_))
              ((##fx= _g89226_ 3) (apply std/srfi/121#make-iota _g89227_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#make-iota-generator
                _g89227_))))))
  (define std/srfi/121#make-iota
    (lambda (_count89198_ _start89199_ _step89200_)
      (lambda ()
        (if (<= _count89198_ '0)
            (eof-object)
            (let ((_result89203_ _start89199_))
              (set! _count89198_ (- _count89198_ '1))
              (set! _start89199_ (+ _start89199_ _step89200_))
              _result89203_)))))
  (define std/srfi/121#make-range-generator__0
    (lambda (_start89186_ _end89187_)
      (std/srfi/121#make-range-generator__2 _start89186_ _end89187_ '1)))
  (define std/srfi/121#make-range-generator__2
    (lambda (_start89191_ _end89192_ _step89193_)
      (set! _start89191_ (- (+ _start89191_ _step89193_) _step89193_))
      (lambda ()
        (if (< _start89191_ _end89192_)
            (let ((_v89196_ _start89191_))
              (set! _start89191_ (+ _start89191_ _step89193_))
              _v89196_)
            (eof-object)))))
  (define std/srfi/121#make-range-generator
    (lambda _g89229_
      (let ((_g89228_ (length _g89229_)))
        (cond ((##fx= _g89228_ 2)
               (apply std/srfi/121#make-range-generator__0 _g89229_))
              ((##fx= _g89228_ 1)
               (apply std/srfi/121#make-infinite-range-generator _g89229_))
              ((##fx= _g89228_ 3)
               (apply std/srfi/121#make-range-generator__2 _g89229_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#make-range-generator
                _g89229_))))))
  (define std/srfi/121#make-infinite-range-generator
    (lambda (_start89181_)
      (lambda ()
        (let ((_result89184_ _start89181_))
          (set! _start89181_ (+ _start89181_ '1))
          _result89184_))))
  (define std/srfi/121#make-coroutine-generator
    (lambda (_proc89166_)
      (letrec* ((_return89168_ '#f)
                (_resume89169_ '#f)
                (_yield89170_
                 (lambda (_v89177_)
                   (call-with-current-continuation
                    (lambda (_r89179_)
                      (set! _resume89169_ _r89179_)
                      (_return89168_ _v89177_))))))
        (lambda ()
          (call-with-current-continuation
           (lambda (_cc89173_)
             (set! _return89168_ _cc89173_)
             (if _resume89169_
                 (_resume89169_ (if '#f '#f '#!void))
                 (begin
                   (_proc89166_ _yield89170_)
                   (set! _resume89169_
                         (lambda (_v89175_) (_return89168_ (eof-object))))
                   (_return89168_ (eof-object))))))))))
  (define std/srfi/121#list->generator
    (lambda (_lst89161_)
      (lambda ()
        (if (null? _lst89161_)
            (eof-object)
            (let ((_next89164_ (car _lst89161_)))
              (set! _lst89161_ (cdr _lst89161_))
              _next89164_)))))
  (define std/srfi/121#vector->generator__0
    (lambda (_vec89149_)
      (std/srfi/121#vector->generator__2
       _vec89149_
       '0
       (vector-length _vec89149_))))
  (define std/srfi/121#vector->generator__1
    (lambda (_vec89151_ _start89152_)
      (std/srfi/121#vector->generator__2
       _vec89151_
       _start89152_
       (vector-length _vec89151_))))
  (define std/srfi/121#vector->generator__2
    (lambda (_vec89154_ _start89155_ _end89156_)
      (lambda ()
        (if (>= _start89155_ _end89156_)
            (eof-object)
            (let ((_next89159_ (vector-ref _vec89154_ _start89155_)))
              (set! _start89155_ (+ _start89155_ '1))
              _next89159_)))))
  (define std/srfi/121#vector->generator
    (lambda _g89231_
      (let ((_g89230_ (length _g89231_)))
        (cond ((##fx= _g89230_ 1)
               (apply std/srfi/121#vector->generator__0 _g89231_))
              ((##fx= _g89230_ 2)
               (apply std/srfi/121#vector->generator__1 _g89231_))
              ((##fx= _g89230_ 3)
               (apply std/srfi/121#vector->generator__2 _g89231_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#vector->generator
                _g89231_))))))
  (define std/srfi/121#reverse-vector->generator__0
    (lambda (_vec89137_)
      (std/srfi/121#reverse-vector->generator__2
       _vec89137_
       '0
       (vector-length _vec89137_))))
  (define std/srfi/121#reverse-vector->generator__1
    (lambda (_vec89139_ _start89140_)
      (std/srfi/121#reverse-vector->generator__2
       _vec89139_
       _start89140_
       (vector-length _vec89139_))))
  (define std/srfi/121#reverse-vector->generator__2
    (lambda (_vec89142_ _start89143_ _end89144_)
      (lambda ()
        (if (>= _start89143_ _end89144_)
            (eof-object)
            (let ((_next89147_ (vector-ref _vec89142_ (- _end89144_ '1))))
              (set! _end89144_ (- _end89144_ '1))
              _next89147_)))))
  (define std/srfi/121#reverse-vector->generator
    (lambda _g89233_
      (let ((_g89232_ (length _g89233_)))
        (cond ((##fx= _g89232_ 1)
               (apply std/srfi/121#reverse-vector->generator__0 _g89233_))
              ((##fx= _g89232_ 2)
               (apply std/srfi/121#reverse-vector->generator__1 _g89233_))
              ((##fx= _g89232_ 3)
               (apply std/srfi/121#reverse-vector->generator__2 _g89233_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#reverse-vector->generator
                _g89233_))))))
  (define std/srfi/121#string->generator__0
    (lambda (_str89125_)
      (std/srfi/121#string->generator__2
       _str89125_
       '0
       (string-length _str89125_))))
  (define std/srfi/121#string->generator__1
    (lambda (_str89127_ _start89128_)
      (std/srfi/121#string->generator__2
       _str89127_
       _start89128_
       (string-length _str89127_))))
  (define std/srfi/121#string->generator__2
    (lambda (_str89130_ _start89131_ _end89132_)
      (lambda ()
        (if (>= _start89131_ _end89132_)
            (eof-object)
            (let ((_next89135_ (string-ref _str89130_ _start89131_)))
              (set! _start89131_ (+ _start89131_ '1))
              _next89135_)))))
  (define std/srfi/121#string->generator
    (lambda _g89235_
      (let ((_g89234_ (length _g89235_)))
        (cond ((##fx= _g89234_ 1)
               (apply std/srfi/121#string->generator__0 _g89235_))
              ((##fx= _g89234_ 2)
               (apply std/srfi/121#string->generator__1 _g89235_))
              ((##fx= _g89234_ 3)
               (apply std/srfi/121#string->generator__2 _g89235_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#string->generator
                _g89235_))))))
  (define std/srfi/121#bytevector->generator__0
    (lambda (_str89113_)
      (std/srfi/121#bytevector->generator__2
       _str89113_
       '0
       (u8vector-length _str89113_))))
  (define std/srfi/121#bytevector->generator__1
    (lambda (_str89115_ _start89116_)
      (std/srfi/121#bytevector->generator__2
       _str89115_
       _start89116_
       (u8vector-length _str89115_))))
  (define std/srfi/121#bytevector->generator__2
    (lambda (_str89118_ _start89119_ _end89120_)
      (lambda ()
        (if (>= _start89119_ _end89120_)
            (eof-object)
            (let ((_next89123_ (u8vector-ref _str89118_ _start89119_)))
              (set! _start89119_ (+ _start89119_ '1))
              _next89123_)))))
  (define std/srfi/121#bytevector->generator
    (lambda _g89237_
      (let ((_g89236_ (length _g89237_)))
        (cond ((##fx= _g89236_ 1)
               (apply std/srfi/121#bytevector->generator__0 _g89237_))
              ((##fx= _g89236_ 2)
               (apply std/srfi/121#bytevector->generator__1 _g89237_))
              ((##fx= _g89236_ 3)
               (apply std/srfi/121#bytevector->generator__2 _g89237_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#bytevector->generator
                _g89237_))))))
  (define std/srfi/121#make-for-each-generator
    (lambda (_for-each89108_ _obj89109_)
      (std/srfi/121#make-coroutine-generator
       (lambda (_yield89111_) (_for-each89108_ _yield89111_ _obj89109_)))))
  (define std/srfi/121#make-unfold-generator
    (lambda (_stop?89097_ _mapper89098_ _successor89099_ _seed89100_)
      (std/srfi/121#make-coroutine-generator
       (lambda (_yield89102_)
         (let _loop89104_ ((_s89106_ _seed89100_))
           (if (_stop?89097_ _s89106_)
               (if '#f '#f '#!void)
               (begin
                 (_yield89102_ (_mapper89098_ _s89106_))
                 (_loop89104_ (_successor89099_ _s89106_)))))))))
  (define std/srfi/121#gcons*
    (lambda _args89092_
      (lambda ()
        (if (null? _args89092_)
            (eof-object)
            (if (= (length _args89092_) '1)
                ((car _args89092_))
                (let ((_v89095_ (car _args89092_)))
                  (set! _args89092_ (cdr _args89092_))
                  _v89095_))))))
  (define std/srfi/121#gappend
    (lambda _args89085_
      (lambda ()
        (if (null? _args89085_)
            (eof-object)
            (let _loop89088_ ((_v89090_ ((car _args89085_))))
              (if (eof-object? _v89090_)
                  (begin
                    (set! _args89085_ (cdr _args89085_))
                    (if (null? _args89085_)
                        (eof-object)
                        (_loop89088_ ((car _args89085_)))))
                  _v89090_))))))
  (define std/srfi/121#gcombine
    (lambda (_proc89072_ _seed89073_ . _gens89074_)
      (lambda ()
        (letrec* ((_items89077_
                   (map (lambda (_x89083_) (_x89083_)) _gens89074_)))
          (if (std/srfi/121#any eof-object? _items89077_)
              (eof-object)
              (let ()
                (letrec* ((_g89238_
                           (let ((_g89239_
                                  (apply _proc89072_
                                         (append _items89077_
                                                 (list _seed89073_)))))
                             (let ((_g89240_
                                    (if (##values? _g89239_)
                                        (##vector-length _g89239_)
                                        1)))
                               (if (not (##fx= _g89240_ 2))
                                   (error "Context expects 2 values"
                                          _g89240_)))
                             _g89239_))
                          (_value89080_ (##vector-ref _g89238_ 0))
                          (_newseed89081_ (##vector-ref _g89238_ 1)))
                  (begin (set! _seed89073_ _newseed89081_) _value89080_))))))))
  (define std/srfi/121#gfilter
    (lambda (_pred89060_ _gen89061_)
      (lambda ()
        (let _loop89064_ ()
          (let ((_next89067_ (_gen89061_)))
            (if (or (eof-object? _next89067_) (_pred89060_ _next89067_))
                _next89067_
                (_loop89064_)))))))
  (define std/srfi/121#gremove
    (lambda (_pred89055_ _gen89056_)
      (std/srfi/121#gfilter
       (lambda (_v89058_) (not (_pred89055_ _v89058_)))
       _gen89056_)))
  (define std/srfi/121#gtake__0
    (lambda (_gen89041_ _k89042_)
      (std/srfi/121#gtake__1 _gen89041_ _k89042_ (eof-object))))
  (define std/srfi/121#gtake__1
    (lambda (_gen89044_ _k89045_ _padding89046_)
      (std/srfi/121#make-coroutine-generator
       (lambda (_yield89048_)
         (if (> _k89045_ '0)
             (let _loop89050_ ((_i89052_ '0) (_v89053_ (_gen89044_)))
               (if (eof-object? _v89053_)
                   (_yield89048_ _padding89046_)
                   (_yield89048_ _v89053_))
               (if (< (+ '1 _i89052_) _k89045_)
                   (_loop89050_ (+ '1 _i89052_) (_gen89044_))
                   (eof-object)))
             (eof-object))))))
  (define std/srfi/121#gtake
    (lambda _g89242_
      (let ((_g89241_ (length _g89242_)))
        (cond ((##fx= _g89241_ 2) (apply std/srfi/121#gtake__0 _g89242_))
              ((##fx= _g89241_ 3) (apply std/srfi/121#gtake__1 _g89242_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#gtake
                _g89242_))))))
  (define std/srfi/121#gdrop
    (lambda (_gen89033_ _k89034_)
      (lambda ()
        (let _$loop89037_ ()
          (if (<= _k89034_ '0)
              '#!void
              (begin
                (set! _k89034_ (- _k89034_ '1))
                (_gen89033_)
                (_$loop89037_))))
        (_gen89033_))))
  (define std/srfi/121#gdrop-while
    (lambda (_pred89022_ _gen89023_)
      (letrec* ((_found89025_ '#f))
        (lambda ()
          (let _loop89028_ ()
            (let ((_val89031_ (_gen89023_)))
              (if _found89025_
                  _val89031_
                  (if (and (not (eof-object? _val89031_))
                           (_pred89022_ _val89031_))
                      (_loop89028_)
                      (begin (set! _found89025_ '#t) _val89031_)))))))))
  (define std/srfi/121#gtake-while
    (lambda (_pred89016_ _gen89017_)
      (lambda ()
        (let ((_next89020_ (_gen89017_)))
          (if (eof-object? _next89020_)
              _next89020_
              (if (_pred89016_ _next89020_)
                  _next89020_
                  (begin
                    (set! _gen89017_ (std/srfi/121#generator))
                    (_gen89017_))))))))
  (define std/srfi/121#gdelete__0
    (lambda (_item89004_ _gen89005_)
      (std/srfi/121#gdelete__1 _item89004_ _gen89005_ equal?)))
  (define std/srfi/121#gdelete__1
    (lambda (_item89007_ _gen89008_ _==89009_)
      (lambda ()
        (let _loop89012_ ((_v89014_ (_gen89008_)))
          (if (eof-object? _v89014_)
              (eof-object)
              (if (_==89009_ _item89007_ _v89014_)
                  (_loop89012_ (_gen89008_))
                  _v89014_))))))
  (define std/srfi/121#gdelete
    (lambda _g89244_
      (let ((_g89243_ (length _g89244_)))
        (cond ((##fx= _g89243_ 2) (apply std/srfi/121#gdelete__0 _g89244_))
              ((##fx= _g89243_ 3) (apply std/srfi/121#gdelete__1 _g89244_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#gdelete
                _g89244_))))))
  (define std/srfi/121#gdelete-neighbor-dups__0
    (lambda (_gen88991_)
      (std/srfi/121#gdelete-neighbor-dups__1 _gen88991_ equal?)))
  (define std/srfi/121#gdelete-neighbor-dups__1
    (lambda (_gen88993_ _==88994_)
      (letrec* ((_firsttime88996_ '#t) (_prev88997_ '#f))
        (lambda ()
          (if _firsttime88996_
              (begin
                (set! _firsttime88996_ '#f)
                (set! _prev88997_ (_gen88993_))
                _prev88997_)
              (let _loop89000_ ((_v89002_ (_gen88993_)))
                (if (eof-object? _v89002_)
                    _v89002_
                    (if (_==88994_ _prev88997_ _v89002_)
                        (_loop89000_ (_gen88993_))
                        (begin (set! _prev88997_ _v89002_) _v89002_)))))))))
  (define std/srfi/121#gdelete-neighbor-dups
    (lambda _g89246_
      (let ((_g89245_ (length _g89246_)))
        (cond ((##fx= _g89245_ 1)
               (apply std/srfi/121#gdelete-neighbor-dups__0 _g89246_))
              ((##fx= _g89245_ 2)
               (apply std/srfi/121#gdelete-neighbor-dups__1 _g89246_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#gdelete-neighbor-dups
                _g89246_))))))
  (define std/srfi/121#gindex
    (lambda (_value-gen88976_ _index-gen88977_)
      (let ((_done?88979_ '#f) (_count88980_ '0))
        (lambda ()
          (if _done?88979_
              (eof-object)
              (let _loop88983_ ((_value88985_ (_value-gen88976_))
                                (_index88986_ (_index-gen88977_)))
                (if (or (eof-object? _value88985_) (eof-object? _index88986_))
                    (begin (set! _done?88979_ '#t) (eof-object))
                    (if (= _index88986_ _count88980_)
                        (begin
                          (set! _count88980_ (+ _count88980_ '1))
                          _value88985_)
                        (begin
                          (set! _count88980_ (+ _count88980_ '1))
                          (_loop88983_
                           (_value-gen88976_)
                           _index88986_))))))))))
  (define std/srfi/121#gselect
    (lambda (_value-gen88962_ _truth-gen88963_)
      (let ((_done?88965_ '#f))
        (lambda ()
          (if _done?88965_
              (eof-object)
              (let _loop88968_ ((_value88970_ (_value-gen88962_))
                                (_truth88971_ (_truth-gen88963_)))
                (if (or (eof-object? _value88970_) (eof-object? _truth88971_))
                    (begin (set! _done?88965_ '#t) (eof-object))
                    (if _truth88971_
                        _value88970_
                        (_loop88968_
                         (_value-gen88962_)
                         (_truth-gen88963_))))))))))
  (define std/srfi/121#generator->list__0
    (lambda (_gen88957_ _n88958_)
      (std/srfi/121#generator->list__1
       (std/srfi/121#gtake__0 _gen88957_ _n88958_))))
  (define std/srfi/121#generator->list__1
    (lambda (_gen88960_)
      (reverse (std/srfi/121#generator->reverse-list__1 _gen88960_))))
  (define std/srfi/121#generator->list
    (lambda _g89248_
      (let ((_g89247_ (length _g89248_)))
        (cond ((##fx= _g89247_ 2)
               (apply std/srfi/121#generator->list__0 _g89248_))
              ((##fx= _g89247_ 1)
               (apply std/srfi/121#generator->list__1 _g89248_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#generator->list
                _g89248_))))))
  (define std/srfi/121#generator->reverse-list__0
    (lambda (_gen88952_ _n88953_)
      (std/srfi/121#generator->reverse-list__1
       (std/srfi/121#gtake__0 _gen88952_ _n88953_))))
  (define std/srfi/121#generator->reverse-list__1
    (lambda (_gen88955_) (std/srfi/121#generator-fold cons '() _gen88955_)))
  (define std/srfi/121#generator->reverse-list
    (lambda _g89250_
      (let ((_g89249_ (length _g89250_)))
        (cond ((##fx= _g89249_ 2)
               (apply std/srfi/121#generator->reverse-list__0 _g89250_))
              ((##fx= _g89249_ 1)
               (apply std/srfi/121#generator->reverse-list__1 _g89250_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#generator->reverse-list
                _g89250_))))))
  (define std/srfi/121#generator->vector__0
    (lambda (_gen88947_)
      (list->vector (std/srfi/121#generator->list__1 _gen88947_))))
  (define std/srfi/121#generator->vector__1
    (lambda (_gen88949_ _n88950_)
      (list->vector (std/srfi/121#generator->list__0 _gen88949_ _n88950_))))
  (define std/srfi/121#generator->vector
    (lambda _g89252_
      (let ((_g89251_ (length _g89252_)))
        (cond ((##fx= _g89251_ 1)
               (apply std/srfi/121#generator->vector__0 _g89252_))
              ((##fx= _g89251_ 2)
               (apply std/srfi/121#generator->vector__1 _g89252_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#generator->vector
                _g89252_))))))
  (define std/srfi/121#generator->vector!
    (lambda (_vector88937_ _at88938_ _gen88939_)
      (let _loop88941_ ((_value88943_ (_gen88939_))
                        (_count88944_ '0)
                        (_at88945_ _at88938_))
        (if (eof-object? _value88943_)
            _count88944_
            (if (>= _at88945_ (vector-length _vector88937_))
                _count88944_
                (begin
                  (vector-set! _vector88937_ _at88945_ _value88943_)
                  (_loop88941_
                   (_gen88939_)
                   (+ _count88944_ '1)
                   (+ _at88945_ '1))))))))
  (define std/srfi/121#generator->string__0
    (lambda (_gen88932_)
      (list->string (std/srfi/121#generator->list__1 _gen88932_))))
  (define std/srfi/121#generator->string__1
    (lambda (_gen88934_ _n88935_)
      (list->string (std/srfi/121#generator->list__0 _gen88934_ _n88935_))))
  (define std/srfi/121#generator->string
    (lambda _g89254_
      (let ((_g89253_ (length _g89254_)))
        (cond ((##fx= _g89253_ 1)
               (apply std/srfi/121#generator->string__0 _g89254_))
              ((##fx= _g89253_ 2)
               (apply std/srfi/121#generator->string__1 _g89254_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#generator->string
                _g89254_))))))
  (define std/srfi/121#generator-fold
    (lambda (_f88920_ _seed88921_ . _gs88922_)
      (letrec ((_inner-fold88924_
                (lambda (_seed88926_)
                  (let ((_vs88930_
                         (map (lambda (_g88928_) (_g88928_)) _gs88922_)))
                    (if (std/srfi/121#any eof-object? _vs88930_)
                        _seed88926_
                        (_inner-fold88924_
                         (apply _f88920_
                                (append _vs88930_ (list _seed88926_)))))))))
        (_inner-fold88924_ _seed88921_))))
  (define std/srfi/121#generator-for-each
    (lambda (_f88910_ . _gs88911_)
      (let _loop88913_ ()
        (let ((_vs88918_ (map (lambda (_g88916_) (_g88916_)) _gs88911_)))
          (if (std/srfi/121#any eof-object? _vs88918_)
              (if '#f '#f '#!void)
              (begin (apply _f88910_ _vs88918_) (_loop88913_)))))))
  (define std/srfi/121#generator-find
    (lambda (_pred88900_ _g88901_)
      (let _loop88903_ ((_v88905_ (_g88901_)))
        (if (or (_pred88900_ _v88905_) (eof-object? _v88905_))
            _v88905_
            (_loop88903_ (_g88901_))))))
  (define std/srfi/121#generator-count
    (lambda (_pred88894_ _g88895_)
      (std/srfi/121#generator-fold
       (lambda (_v88897_ _n88898_)
         (if (_pred88894_ _v88897_) (+ '1 _n88898_) _n88898_))
       '0
       _g88895_)))
  (define std/srfi/121#generator-any
    (lambda (_pred88887_ _g88888_)
      (let _loop88890_ ((_v88892_ (_g88888_)))
        (if (eof-object? _v88892_)
            '#f
            (if (_pred88887_ _v88892_) '#t (_loop88890_ (_g88888_)))))))
  (define std/srfi/121#generator-every
    (lambda (_pred88880_ _g88881_)
      (let _loop88883_ ((_v88885_ (_g88881_)))
        (if (eof-object? _v88885_)
            '#t
            (if (_pred88880_ _v88885_) (_loop88883_ (_g88881_)) '#f)))))
  (define std/srfi/121#generator-unfold
    (lambda (_g88872_ _unfold88873_ . _args88874_)
      (apply _unfold88873_
             eof-object?
             (lambda (_x88876_) _x88876_)
             (lambda (_x88878_) (_g88872_))
             (_g88872_)
             _args88874_))))
