(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/121#any
    (lambda (_pred738_ _ls739_)
      (if (null? (cdr _ls739_))
          (_pred738_ (car _ls739_))
          ((lambda (_x741_)
             (if _x741_ _x741_ (std/srfi/121#any _pred738_ (cdr _ls739_))))
           (_pred738_ (car _ls739_))))))
  (define std/srfi/121#every
    (lambda (_pred735_ _ls736_)
      (if (null? (cdr _ls736_))
          (_pred735_ (car _ls736_))
          (if (_pred735_ (car _ls736_))
              (std/srfi/121#every _pred735_ (cdr _ls736_))
              '#f))))
  (define std/srfi/121#generator
    (lambda _args730_
      (lambda ()
        (if (null? _args730_)
            (eof-object)
            (let ((_next733_ (car _args730_)))
              (set! _args730_ (cdr _args730_))
              _next733_)))))
  (define std/srfi/121#make-iota-generator__0
    (lambda (_count721_) (std/srfi/121#make-iota _count721_ '0 '1)))
  (define std/srfi/121#make-iota-generator__1
    (lambda (_count723_ _start724_)
      (std/srfi/121#make-iota _count723_ _start724_ '1)))
  (define std/srfi/121#make-iota-generator
    (lambda _g4342_
      (let ((_g4341_ (let () (declare (not safe)) (##length _g4342_))))
        (cond ((let () (declare (not safe)) (##fx= _g4341_ 1))
               (apply std/srfi/121#make-iota-generator__0 _g4342_))
              ((let () (declare (not safe)) (##fx= _g4341_ 2))
               (apply std/srfi/121#make-iota-generator__1 _g4342_))
              ((let () (declare (not safe)) (##fx= _g4341_ 3))
               (apply std/srfi/121#make-iota _g4342_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#make-iota-generator
                _g4342_))))))
  (define std/srfi/121#make-iota
    (lambda (_count714_ _start715_ _step716_)
      (lambda ()
        (if (<= _count714_ '0)
            (eof-object)
            (let ((_result719_ _start715_))
              (set! _count714_ (- _count714_ '1))
              (set! _start715_ (+ _start715_ _step716_))
              _result719_)))))
  (define std/srfi/121#make-range-generator__0
    (lambda (_start702_ _end703_)
      (std/srfi/121#make-range-generator__2 _start702_ _end703_ '1)))
  (define std/srfi/121#make-range-generator__2
    (lambda (_start707_ _end708_ _step709_)
      (set! _start707_ (- (+ _start707_ _step709_) _step709_))
      (lambda ()
        (if (< _start707_ _end708_)
            (let ((_v712_ _start707_))
              (set! _start707_ (+ _start707_ _step709_))
              _v712_)
            (eof-object)))))
  (define std/srfi/121#make-range-generator
    (lambda _g4344_
      (let ((_g4343_ (let () (declare (not safe)) (##length _g4344_))))
        (cond ((let () (declare (not safe)) (##fx= _g4343_ 2))
               (apply std/srfi/121#make-range-generator__0 _g4344_))
              ((let () (declare (not safe)) (##fx= _g4343_ 1))
               (apply std/srfi/121#make-infinite-range-generator _g4344_))
              ((let () (declare (not safe)) (##fx= _g4343_ 3))
               (apply std/srfi/121#make-range-generator__2 _g4344_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#make-range-generator
                _g4344_))))))
  (define std/srfi/121#make-infinite-range-generator
    (lambda (_start697_)
      (lambda ()
        (let ((_result700_ _start697_))
          (set! _start697_ (+ _start697_ '1))
          _result700_))))
  (define std/srfi/121#make-coroutine-generator
    (lambda (_proc682_)
      (letrec* ((_return684_ '#f)
                (_resume685_ '#f)
                (_yield686_
                 (lambda (_v693_)
                   (call-with-current-continuation
                    (lambda (_r695_)
                      (set! _resume685_ _r695_)
                      (_return684_ _v693_))))))
        (lambda ()
          (call-with-current-continuation
           (lambda (_cc689_)
             (set! _return684_ _cc689_)
             (if _resume685_
                 (_resume685_ (if '#f '#f '#!void))
                 (begin
                   (_proc682_ _yield686_)
                   (set! _resume685_
                         (lambda (_v691_) (_return684_ (eof-object))))
                   (_return684_ (eof-object))))))))))
  (define std/srfi/121#list->generator
    (lambda (_lst677_)
      (lambda ()
        (if (null? _lst677_)
            (eof-object)
            (let ((_next680_ (car _lst677_)))
              (set! _lst677_ (cdr _lst677_))
              _next680_)))))
  (define std/srfi/121#vector->generator__0
    (lambda (_vec665_)
      (std/srfi/121#vector->generator__2
       _vec665_
       '0
       (vector-length _vec665_))))
  (define std/srfi/121#vector->generator__1
    (lambda (_vec667_ _start668_)
      (std/srfi/121#vector->generator__2
       _vec667_
       _start668_
       (vector-length _vec667_))))
  (define std/srfi/121#vector->generator__2
    (lambda (_vec670_ _start671_ _end672_)
      (lambda ()
        (if (>= _start671_ _end672_)
            (eof-object)
            (let ((_next675_ (vector-ref _vec670_ _start671_)))
              (set! _start671_ (+ _start671_ '1))
              _next675_)))))
  (define std/srfi/121#vector->generator
    (lambda _g4346_
      (let ((_g4345_ (let () (declare (not safe)) (##length _g4346_))))
        (cond ((let () (declare (not safe)) (##fx= _g4345_ 1))
               (apply std/srfi/121#vector->generator__0 _g4346_))
              ((let () (declare (not safe)) (##fx= _g4345_ 2))
               (apply std/srfi/121#vector->generator__1 _g4346_))
              ((let () (declare (not safe)) (##fx= _g4345_ 3))
               (apply std/srfi/121#vector->generator__2 _g4346_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#vector->generator
                _g4346_))))))
  (define std/srfi/121#reverse-vector->generator__0
    (lambda (_vec653_)
      (std/srfi/121#reverse-vector->generator__2
       _vec653_
       '0
       (vector-length _vec653_))))
  (define std/srfi/121#reverse-vector->generator__1
    (lambda (_vec655_ _start656_)
      (std/srfi/121#reverse-vector->generator__2
       _vec655_
       _start656_
       (vector-length _vec655_))))
  (define std/srfi/121#reverse-vector->generator__2
    (lambda (_vec658_ _start659_ _end660_)
      (lambda ()
        (if (>= _start659_ _end660_)
            (eof-object)
            (let ((_next663_ (vector-ref _vec658_ (- _end660_ '1))))
              (set! _end660_ (- _end660_ '1))
              _next663_)))))
  (define std/srfi/121#reverse-vector->generator
    (lambda _g4348_
      (let ((_g4347_ (let () (declare (not safe)) (##length _g4348_))))
        (cond ((let () (declare (not safe)) (##fx= _g4347_ 1))
               (apply std/srfi/121#reverse-vector->generator__0 _g4348_))
              ((let () (declare (not safe)) (##fx= _g4347_ 2))
               (apply std/srfi/121#reverse-vector->generator__1 _g4348_))
              ((let () (declare (not safe)) (##fx= _g4347_ 3))
               (apply std/srfi/121#reverse-vector->generator__2 _g4348_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#reverse-vector->generator
                _g4348_))))))
  (define std/srfi/121#string->generator__0
    (lambda (_str641_)
      (std/srfi/121#string->generator__2
       _str641_
       '0
       (string-length _str641_))))
  (define std/srfi/121#string->generator__1
    (lambda (_str643_ _start644_)
      (std/srfi/121#string->generator__2
       _str643_
       _start644_
       (string-length _str643_))))
  (define std/srfi/121#string->generator__2
    (lambda (_str646_ _start647_ _end648_)
      (lambda ()
        (if (>= _start647_ _end648_)
            (eof-object)
            (let ((_next651_ (string-ref _str646_ _start647_)))
              (set! _start647_ (+ _start647_ '1))
              _next651_)))))
  (define std/srfi/121#string->generator
    (lambda _g4350_
      (let ((_g4349_ (let () (declare (not safe)) (##length _g4350_))))
        (cond ((let () (declare (not safe)) (##fx= _g4349_ 1))
               (apply std/srfi/121#string->generator__0 _g4350_))
              ((let () (declare (not safe)) (##fx= _g4349_ 2))
               (apply std/srfi/121#string->generator__1 _g4350_))
              ((let () (declare (not safe)) (##fx= _g4349_ 3))
               (apply std/srfi/121#string->generator__2 _g4350_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#string->generator
                _g4350_))))))
  (define std/srfi/121#bytevector->generator__0
    (lambda (_str629_)
      (std/srfi/121#bytevector->generator__2
       _str629_
       '0
       (u8vector-length _str629_))))
  (define std/srfi/121#bytevector->generator__1
    (lambda (_str631_ _start632_)
      (std/srfi/121#bytevector->generator__2
       _str631_
       _start632_
       (u8vector-length _str631_))))
  (define std/srfi/121#bytevector->generator__2
    (lambda (_str634_ _start635_ _end636_)
      (lambda ()
        (if (>= _start635_ _end636_)
            (eof-object)
            (let ((_next639_ (u8vector-ref _str634_ _start635_)))
              (set! _start635_ (+ _start635_ '1))
              _next639_)))))
  (define std/srfi/121#bytevector->generator
    (lambda _g4352_
      (let ((_g4351_ (let () (declare (not safe)) (##length _g4352_))))
        (cond ((let () (declare (not safe)) (##fx= _g4351_ 1))
               (apply std/srfi/121#bytevector->generator__0 _g4352_))
              ((let () (declare (not safe)) (##fx= _g4351_ 2))
               (apply std/srfi/121#bytevector->generator__1 _g4352_))
              ((let () (declare (not safe)) (##fx= _g4351_ 3))
               (apply std/srfi/121#bytevector->generator__2 _g4352_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#bytevector->generator
                _g4352_))))))
  (define std/srfi/121#make-for-each-generator
    (lambda (_for-each624_ _obj625_)
      (std/srfi/121#make-coroutine-generator
       (lambda (_yield627_) (_for-each624_ _yield627_ _obj625_)))))
  (define std/srfi/121#make-unfold-generator
    (lambda (_stop?613_ _mapper614_ _successor615_ _seed616_)
      (std/srfi/121#make-coroutine-generator
       (lambda (_yield618_)
         (let _loop620_ ((_s622_ _seed616_))
           (if (_stop?613_ _s622_)
               (if '#f '#f '#!void)
               (begin
                 (_yield618_ (_mapper614_ _s622_))
                 (_loop620_ (_successor615_ _s622_)))))))))
  (define std/srfi/121#gcons*
    (lambda _args608_
      (lambda ()
        (if (null? _args608_)
            (eof-object)
            (if (= (length _args608_) '1)
                ((car _args608_))
                (let ((_v611_ (car _args608_)))
                  (set! _args608_ (cdr _args608_))
                  _v611_))))))
  (define std/srfi/121#gappend
    (lambda _args601_
      (lambda ()
        (if (null? _args601_)
            (eof-object)
            (let _loop604_ ((_v606_ ((car _args601_))))
              (if (eof-object? _v606_)
                  (begin
                    (set! _args601_ (cdr _args601_))
                    (if (null? _args601_)
                        (eof-object)
                        (_loop604_ ((car _args601_)))))
                  _v606_))))))
  (define std/srfi/121#gcombine
    (lambda (_proc588_ _seed589_ . _gens590_)
      (lambda ()
        (letrec* ((_items593_ (map (lambda (_x599_) (_x599_)) _gens590_)))
          (if (std/srfi/121#any eof-object? _items593_)
              (eof-object)
              (let ()
                (letrec* ((_g4353_ (let ((_g4354_ (apply _proc588_
                                                         (append _items593_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (list _seed589_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (let ((_g4355_ (let ()
                                                      (declare (not safe))
                                                      (if (##values? _g4354_)
                                                          (##vector-length
                                                           _g4354_)
                                                          1))))
                                       (if (not (let ()
                                                  (declare (not safe))
                                                  (##fx= _g4355_ 2)))
                                           (error "Context expects 2 values"
                                                  _g4355_)))
                                     _g4354_))
                          (_value596_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _g4353_ 0)))
                          (_newseed597_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _g4353_ 1))))
                  (begin (set! _seed589_ _newseed597_) _value596_))))))))
  (define std/srfi/121#gfilter
    (lambda (_pred576_ _gen577_)
      (lambda ()
        (let _loop580_ ()
          (let ((_next583_ (_gen577_)))
            (if (or (eof-object? _next583_) (_pred576_ _next583_))
                _next583_
                (_loop580_)))))))
  (define std/srfi/121#gremove
    (lambda (_pred571_ _gen572_)
      (std/srfi/121#gfilter
       (lambda (_v574_) (not (_pred571_ _v574_)))
       _gen572_)))
  (define std/srfi/121#gtake__0
    (lambda (_gen557_ _k558_)
      (std/srfi/121#gtake__1 _gen557_ _k558_ (eof-object))))
  (define std/srfi/121#gtake__1
    (lambda (_gen560_ _k561_ _padding562_)
      (std/srfi/121#make-coroutine-generator
       (lambda (_yield564_)
         (if (> _k561_ '0)
             (let _loop566_ ((_i568_ '0) (_v569_ (_gen560_)))
               (if (eof-object? _v569_)
                   (_yield564_ _padding562_)
                   (_yield564_ _v569_))
               (if (< (+ '1 _i568_) _k561_)
                   (_loop566_ (+ '1 _i568_) (_gen560_))
                   (eof-object)))
             (eof-object))))))
  (define std/srfi/121#gtake
    (lambda _g4357_
      (let ((_g4356_ (let () (declare (not safe)) (##length _g4357_))))
        (cond ((let () (declare (not safe)) (##fx= _g4356_ 2))
               (apply std/srfi/121#gtake__0 _g4357_))
              ((let () (declare (not safe)) (##fx= _g4356_ 3))
               (apply std/srfi/121#gtake__1 _g4357_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#gtake
                _g4357_))))))
  (define std/srfi/121#gdrop
    (lambda (_gen549_ _k550_)
      (lambda ()
        (let _$loop553_ ()
          (if (<= _k550_ '0)
              '#!void
              (begin (set! _k550_ (- _k550_ '1)) (_gen549_) (_$loop553_))))
        (_gen549_))))
  (define std/srfi/121#gdrop-while
    (lambda (_pred538_ _gen539_)
      (letrec* ((_found541_ '#f))
        (lambda ()
          (let _loop544_ ()
            (let ((_val547_ (_gen539_)))
              (if _found541_
                  _val547_
                  (if (and (not (eof-object? _val547_)) (_pred538_ _val547_))
                      (_loop544_)
                      (begin (set! _found541_ '#t) _val547_)))))))))
  (define std/srfi/121#gtake-while
    (lambda (_pred532_ _gen533_)
      (lambda ()
        (let ((_next536_ (_gen533_)))
          (if (eof-object? _next536_)
              _next536_
              (if (_pred532_ _next536_)
                  _next536_
                  (begin
                    (set! _gen533_ (std/srfi/121#generator))
                    (_gen533_))))))))
  (define std/srfi/121#gdelete__0
    (lambda (_item520_ _gen521_)
      (std/srfi/121#gdelete__1 _item520_ _gen521_ equal?)))
  (define std/srfi/121#gdelete__1
    (lambda (_item523_ _gen524_ _==525_)
      (lambda ()
        (let _loop528_ ((_v530_ (_gen524_)))
          (if (eof-object? _v530_)
              (eof-object)
              (if (_==525_ _item523_ _v530_)
                  (_loop528_ (_gen524_))
                  _v530_))))))
  (define std/srfi/121#gdelete
    (lambda _g4359_
      (let ((_g4358_ (let () (declare (not safe)) (##length _g4359_))))
        (cond ((let () (declare (not safe)) (##fx= _g4358_ 2))
               (apply std/srfi/121#gdelete__0 _g4359_))
              ((let () (declare (not safe)) (##fx= _g4358_ 3))
               (apply std/srfi/121#gdelete__1 _g4359_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#gdelete
                _g4359_))))))
  (define std/srfi/121#gdelete-neighbor-dups__0
    (lambda (_gen507_)
      (std/srfi/121#gdelete-neighbor-dups__1 _gen507_ equal?)))
  (define std/srfi/121#gdelete-neighbor-dups__1
    (lambda (_gen509_ _==510_)
      (letrec* ((_firsttime512_ '#t) (_prev513_ '#f))
        (lambda ()
          (if _firsttime512_
              (begin
                (set! _firsttime512_ '#f)
                (set! _prev513_ (_gen509_))
                _prev513_)
              (let _loop516_ ((_v518_ (_gen509_)))
                (if (eof-object? _v518_)
                    _v518_
                    (if (_==510_ _prev513_ _v518_)
                        (_loop516_ (_gen509_))
                        (begin (set! _prev513_ _v518_) _v518_)))))))))
  (define std/srfi/121#gdelete-neighbor-dups
    (lambda _g4361_
      (let ((_g4360_ (let () (declare (not safe)) (##length _g4361_))))
        (cond ((let () (declare (not safe)) (##fx= _g4360_ 1))
               (apply std/srfi/121#gdelete-neighbor-dups__0 _g4361_))
              ((let () (declare (not safe)) (##fx= _g4360_ 2))
               (apply std/srfi/121#gdelete-neighbor-dups__1 _g4361_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#gdelete-neighbor-dups
                _g4361_))))))
  (define std/srfi/121#gindex
    (lambda (_value-gen492_ _index-gen493_)
      (let ((_done?495_ '#f) (_count496_ '0))
        (lambda ()
          (if _done?495_
              (eof-object)
              (let _loop499_ ((_value501_ (_value-gen492_))
                              (_index502_ (_index-gen493_)))
                (if (or (eof-object? _value501_) (eof-object? _index502_))
                    (begin (set! _done?495_ '#t) (eof-object))
                    (if (= _index502_ _count496_)
                        (begin (set! _count496_ (+ _count496_ '1)) _value501_)
                        (begin
                          (set! _count496_ (+ _count496_ '1))
                          (_loop499_ (_value-gen492_) _index502_))))))))))
  (define std/srfi/121#gselect
    (lambda (_value-gen478_ _truth-gen479_)
      (let ((_done?481_ '#f))
        (lambda ()
          (if _done?481_
              (eof-object)
              (let _loop484_ ((_value486_ (_value-gen478_))
                              (_truth487_ (_truth-gen479_)))
                (if (or (eof-object? _value486_) (eof-object? _truth487_))
                    (begin (set! _done?481_ '#t) (eof-object))
                    (if _truth487_
                        _value486_
                        (_loop484_ (_value-gen478_) (_truth-gen479_))))))))))
  (define std/srfi/121#generator->list__0
    (lambda (_gen473_ _n474_)
      (std/srfi/121#generator->list__1
       (std/srfi/121#gtake__0 _gen473_ _n474_))))
  (define std/srfi/121#generator->list__1
    (lambda (_gen476_)
      (reverse (std/srfi/121#generator->reverse-list__1 _gen476_))))
  (define std/srfi/121#generator->list
    (lambda _g4363_
      (let ((_g4362_ (let () (declare (not safe)) (##length _g4363_))))
        (cond ((let () (declare (not safe)) (##fx= _g4362_ 2))
               (apply std/srfi/121#generator->list__0 _g4363_))
              ((let () (declare (not safe)) (##fx= _g4362_ 1))
               (apply std/srfi/121#generator->list__1 _g4363_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#generator->list
                _g4363_))))))
  (define std/srfi/121#generator->reverse-list__0
    (lambda (_gen468_ _n469_)
      (std/srfi/121#generator->reverse-list__1
       (std/srfi/121#gtake__0 _gen468_ _n469_))))
  (define std/srfi/121#generator->reverse-list__1
    (lambda (_gen471_) (std/srfi/121#generator-fold cons '() _gen471_)))
  (define std/srfi/121#generator->reverse-list
    (lambda _g4365_
      (let ((_g4364_ (let () (declare (not safe)) (##length _g4365_))))
        (cond ((let () (declare (not safe)) (##fx= _g4364_ 2))
               (apply std/srfi/121#generator->reverse-list__0 _g4365_))
              ((let () (declare (not safe)) (##fx= _g4364_ 1))
               (apply std/srfi/121#generator->reverse-list__1 _g4365_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#generator->reverse-list
                _g4365_))))))
  (define std/srfi/121#generator->vector__0
    (lambda (_gen463_)
      (list->vector (std/srfi/121#generator->list__1 _gen463_))))
  (define std/srfi/121#generator->vector__1
    (lambda (_gen465_ _n466_)
      (list->vector (std/srfi/121#generator->list__0 _gen465_ _n466_))))
  (define std/srfi/121#generator->vector
    (lambda _g4367_
      (let ((_g4366_ (let () (declare (not safe)) (##length _g4367_))))
        (cond ((let () (declare (not safe)) (##fx= _g4366_ 1))
               (apply std/srfi/121#generator->vector__0 _g4367_))
              ((let () (declare (not safe)) (##fx= _g4366_ 2))
               (apply std/srfi/121#generator->vector__1 _g4367_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#generator->vector
                _g4367_))))))
  (define std/srfi/121#generator->vector!
    (lambda (_vector453_ _at454_ _gen455_)
      (let _loop457_ ((_value459_ (_gen455_))
                      (_count460_ '0)
                      (_at461_ _at454_))
        (if (eof-object? _value459_)
            _count460_
            (if (>= _at461_ (vector-length _vector453_))
                _count460_
                (begin
                  (vector-set! _vector453_ _at461_ _value459_)
                  (_loop457_ (_gen455_) (+ _count460_ '1) (+ _at461_ '1))))))))
  (define std/srfi/121#generator->string__0
    (lambda (_gen448_)
      (list->string (std/srfi/121#generator->list__1 _gen448_))))
  (define std/srfi/121#generator->string__1
    (lambda (_gen450_ _n451_)
      (list->string (std/srfi/121#generator->list__0 _gen450_ _n451_))))
  (define std/srfi/121#generator->string
    (lambda _g4369_
      (let ((_g4368_ (let () (declare (not safe)) (##length _g4369_))))
        (cond ((let () (declare (not safe)) (##fx= _g4368_ 1))
               (apply std/srfi/121#generator->string__0 _g4369_))
              ((let () (declare (not safe)) (##fx= _g4368_ 2))
               (apply std/srfi/121#generator->string__1 _g4369_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/121#generator->string
                _g4369_))))))
  (define std/srfi/121#generator-fold
    (lambda (_f436_ _seed437_ . _gs438_)
      (letrec ((_inner-fold440_
                (lambda (_seed442_)
                  (let ((_vs446_ (map (lambda (_g444_) (_g444_)) _gs438_)))
                    (if (std/srfi/121#any eof-object? _vs446_)
                        _seed442_
                        (_inner-fold440_
                         (apply _f436_ (append _vs446_ (list _seed442_)))))))))
        (_inner-fold440_ _seed437_))))
  (define std/srfi/121#generator-for-each
    (lambda (_f426_ . _gs427_)
      (let _loop429_ ()
        (let ((_vs434_ (map (lambda (_g432_) (_g432_)) _gs427_)))
          (if (std/srfi/121#any eof-object? _vs434_)
              (if '#f '#f '#!void)
              (begin (apply _f426_ _vs434_) (_loop429_)))))))
  (define std/srfi/121#generator-find
    (lambda (_pred416_ _g417_)
      (let _loop419_ ((_v421_ (_g417_)))
        (if (or (_pred416_ _v421_) (eof-object? _v421_))
            _v421_
            (_loop419_ (_g417_))))))
  (define std/srfi/121#generator-count
    (lambda (_pred410_ _g411_)
      (std/srfi/121#generator-fold
       (lambda (_v413_ _n414_) (if (_pred410_ _v413_) (+ '1 _n414_) _n414_))
       '0
       _g411_)))
  (define std/srfi/121#generator-any
    (lambda (_pred403_ _g404_)
      (let _loop406_ ((_v408_ (_g404_)))
        (if (eof-object? _v408_)
            '#f
            (if (_pred403_ _v408_) '#t (_loop406_ (_g404_)))))))
  (define std/srfi/121#generator-every
    (lambda (_pred396_ _g397_)
      (let _loop399_ ((_v401_ (_g397_)))
        (if (eof-object? _v401_)
            '#t
            (if (_pred396_ _v401_) (_loop399_ (_g397_)) '#f)))))
  (define std/srfi/121#generator-unfold
    (lambda (_g388_ _unfold389_ . _args390_)
      (apply _unfold389_
             eof-object?
             (lambda (_x392_) _x392_)
             (lambda (_x394_) (_g388_))
             (_g388_)
             _args390_))))
