(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/127#any-null?
    (lambda (_list89580_)
      (if (null? _list89580_)
          '#f
          (if (null? (car _list89580_))
              '#t
              (std/srfi/127#any-null? (cdr _list89580_))))))
  (define std/srfi/127#gappend
    (lambda _args89573_
      (lambda ()
        (if (null? _args89573_)
            (eof-object)
            (let _loop89576_ ((_v89578_ ((car _args89573_))))
              (if (eof-object? _v89578_)
                  (begin
                    (set! _args89573_ (cdr _args89573_))
                    (if (null? _args89573_)
                        (eof-object)
                        (_loop89576_ ((car _args89573_)))))
                  _v89578_))))))
  (define std/srfi/127#generator->lseq
    (lambda (_gen89569_)
      (let ((_value89571_ (_gen89569_)))
        (if (eof-object? _value89571_) '() (cons _value89571_ _gen89569_)))))
  (define std/srfi/127#lseq-car (lambda (_lseq89567_) (car _lseq89567_)))
  (define std/srfi/127#lseq-first (lambda (_lseq89565_) (car _lseq89565_)))
  (define std/srfi/127#lseq-cdr
    (lambda (_lseq89559_)
      (if (procedure? (cdr _lseq89559_))
          (let ((_obj89561_ ((cdr _lseq89559_))))
            (if (eof-object? _obj89561_)
                (begin (set-cdr! _lseq89559_ '()) '())
                (let ((_result89563_ (cons _obj89561_ (cdr _lseq89559_))))
                  (set-cdr! _lseq89559_ _result89563_)
                  _result89563_)))
          (cdr _lseq89559_))))
  (define std/srfi/127#lseq-rest
    (lambda (_lseq89557_) (std/srfi/127#lseq-cdr _lseq89557_)))
  (define std/srfi/127#lseq?
    (lambda (_obj89555_)
      (if (null? _obj89555_)
          '#t
          (if (not (pair? _obj89555_))
              '#f
              (if (procedure? (cdr _obj89555_))
                  '#t
                  (std/srfi/127#lseq? (cdr _obj89555_)))))))
  (define std/srfi/127#lseq=?
    (lambda (_=89548_ _lseq189549_ _lseq289550_)
      (if (and (null? _lseq189549_) (null? _lseq289550_))
          '#t
          (if (or (null? _lseq189549_) (null? _lseq289550_))
              '#f
              (if (_=89548_ (car _lseq189549_) (car _lseq289550_))
                  (std/srfi/127#lseq=?
                   _=89548_
                   (std/srfi/127#lseq-cdr _lseq189549_)
                   (std/srfi/127#lseq-cdr _lseq289550_))
                  '#f)))))
  (define std/srfi/127#lseq-take
    (lambda (_lseq89542_ _i89543_)
      (std/srfi/127#generator->lseq
       (lambda ()
         (if (= _i89543_ '0)
             (eof-object)
             (let ((_result89546_ (car _lseq89542_)))
               (set! _lseq89542_ (std/srfi/127#lseq-cdr _lseq89542_))
               (set! _i89543_ (- _i89543_ '1))
               _result89546_))))))
  (define std/srfi/127#lseq-drop
    (lambda (_lseq89534_ _i89535_)
      (let _loop89537_ ((_i89539_ _i89535_) (_lseq89540_ _lseq89534_))
        (if (= _i89539_ '0)
            _lseq89540_
            (_loop89537_
             (- _i89539_ '1)
             (std/srfi/127#lseq-cdr _lseq89540_))))))
  (define std/srfi/127#lseq-ref
    (lambda (_lseq89531_ _i89532_)
      (car (std/srfi/127#lseq-drop _lseq89531_ _i89532_))))
  (define std/srfi/127#lseq-realize
    (lambda (_lseq89525_)
      (let _loop89527_ ((_next89529_ _lseq89525_))
        (if (null? _next89529_)
            _lseq89525_
            (_loop89527_ (std/srfi/127#lseq-cdr _next89529_))))))
  (define std/srfi/127#lseq-length
    (lambda (_lseq89523_) (length (std/srfi/127#lseq-realize _lseq89523_))))
  (define std/srfi/127#lseq->generator
    (lambda (_lseq89518_)
      (lambda ()
        (if (null? _lseq89518_)
            (eof-object)
            (let ((_result89521_ (car _lseq89518_)))
              (set! _lseq89518_ (std/srfi/127#lseq-cdr _lseq89518_))
              _result89521_)))))
  (define std/srfi/127#lseq-append
    (lambda _lseqs89516_
      (std/srfi/127#generator->lseq
       (apply std/srfi/127#gappend
              (map std/srfi/127#lseq->generator _lseqs89516_)))))
  (define std/srfi/127#safe-lseq-cdr
    (lambda (_obj89514_)
      (if (null? _obj89514_) _obj89514_ (std/srfi/127#lseq-cdr _obj89514_))))
  (define std/srfi/127#lseq-map
    (lambda (_proc89508_ . _lseqs89509_)
      (std/srfi/127#generator->lseq
       (lambda ()
         (if (std/srfi/127#any-null? _lseqs89509_)
             (eof-object)
             (let ((_result89512_
                    (apply _proc89508_
                           (map std/srfi/127#lseq-car _lseqs89509_))))
               (set! _lseqs89509_
                     (map std/srfi/127#safe-lseq-cdr _lseqs89509_))
               _result89512_))))))
  (define std/srfi/127#lseq-zip
    (lambda _lseqs89506_ (apply std/srfi/127#lseq-map list _lseqs89506_)))
  (define std/srfi/127#lseq-for-each
    (lambda (_proc89503_ . _lseqs89504_)
      (apply for-each
             _proc89503_
             (map std/srfi/127#lseq-realize _lseqs89504_))))
  (define std/srfi/127#lseq-filter
    (lambda (_pred89493_ _lseq89494_)
      (std/srfi/127#generator->lseq
       (lambda ()
         (let _loop89497_ ((_lseq189499_ _lseq89494_))
           (if (null? _lseq189499_)
               (eof-object)
               (let ((_result89501_ (car _lseq189499_)))
                 (if (_pred89493_ _result89501_)
                     (begin
                       (set! _lseq89494_ (std/srfi/127#lseq-cdr _lseq189499_))
                       _result89501_)
                     (_loop89497_ (std/srfi/127#lseq-cdr _lseq189499_))))))))))
  (define std/srfi/127#lseq-remove
    (lambda (_pred89488_ _lseq89489_)
      (std/srfi/127#lseq-filter
       (lambda (_x89491_) (not (_pred89488_ _x89491_)))
       _lseq89489_)))
  (define std/srfi/127#lseq-find
    (lambda (_pred89485_ _lseq89486_)
      (if (null? _lseq89486_)
          '#f
          (if (_pred89485_ (car _lseq89486_))
              (car _lseq89486_)
              (std/srfi/127#lseq-find
               _pred89485_
               (std/srfi/127#lseq-cdr _lseq89486_))))))
  (define std/srfi/127#lseq-find-tail
    (lambda (_pred89482_ _lseq89483_)
      (if (null? _lseq89483_)
          '#f
          (if (_pred89482_ (car _lseq89483_))
              _lseq89483_
              (std/srfi/127#lseq-find-tail
               _pred89482_
               (std/srfi/127#lseq-cdr _lseq89483_))))))
  (define std/srfi/127#lseq-take-while
    (lambda (_pred89476_ _lseq89477_)
      (std/srfi/127#generator->lseq
       (lambda ()
         (if (not (_pred89476_ (car _lseq89477_)))
             (eof-object)
             (let ((_result89480_ (car _lseq89477_)))
               (set! _lseq89477_ (std/srfi/127#lseq-cdr _lseq89477_))
               _result89480_))))))
  (define std/srfi/127#lseq-drop-while
    (lambda (_pred89469_ _lseq89470_)
      (let _loop89472_ ((_lseq89474_ _lseq89470_))
        (if (not (_pred89469_ (car _lseq89474_)))
            _lseq89474_
            (_loop89472_ (std/srfi/127#lseq-cdr _lseq89474_))))))
  (define std/srfi/127#lseq-any
    (lambda (_pred89460_ . _lseqs89461_)
      (let _loop89463_ ((_lseqs89465_ _lseqs89461_))
        (if (std/srfi/127#any-null? _lseqs89465_)
            '#f
            (let ((_result89467_
                   (apply _pred89460_
                          (map std/srfi/127#lseq-car _lseqs89465_))))
              (if _result89467_
                  _result89467_
                  (_loop89463_ (map std/srfi/127#lseq-cdr _lseqs89465_))))))))
  (define std/srfi/127#lseq-every
    (lambda (_pred89450_ . _lseqs89451_)
      (let _loop89453_ ((_lseqs89455_ _lseqs89451_) (_last-result89456_ '#t))
        (if (std/srfi/127#any-null? _lseqs89455_)
            _last-result89456_
            (let ((_result89458_
                   (apply _pred89450_
                          (map std/srfi/127#lseq-car _lseqs89455_))))
              (if _result89458_
                  (_loop89453_
                   (map std/srfi/127#lseq-cdr _lseqs89455_)
                   _result89458_)
                  '#f))))))
  (define std/srfi/127#lseq-index
    (lambda (_pred89442_ . _lseqs89443_)
      (let _loop89445_ ((_lseqs89447_ _lseqs89443_) (_n89448_ '0))
        (if (std/srfi/127#any-null? _lseqs89447_)
            '#f
            (if (apply _pred89442_ (map std/srfi/127#lseq-car _lseqs89447_))
                _n89448_
                (_loop89445_
                 (map std/srfi/127#safe-lseq-cdr _lseqs89447_)
                 (+ _n89448_ '1)))))))
  (define std/srfi/127#lseq-member__0
    (lambda (_x89435_ _lseq89436_)
      (std/srfi/127#lseq-member__1 _x89435_ _lseq89436_ equal?)))
  (define std/srfi/127#lseq-member__1
    (lambda (_x89438_ _lseq89439_ _=89440_)
      (if (null? _lseq89439_)
          '#f
          (if (_=89440_ _x89438_ (car _lseq89439_))
              _lseq89439_
              (std/srfi/127#lseq-member__1
               _x89438_
               (std/srfi/127#lseq-cdr _lseq89439_)
               _=89440_)))))
  (define std/srfi/127#lseq-member
    (lambda _g89582_
      (let ((_g89581_ (length _g89582_)))
        (cond ((##fx= _g89581_ 2) (apply std/srfi/127#lseq-member__0 _g89582_))
              ((##fx= _g89581_ 3) (apply std/srfi/127#lseq-member__1 _g89582_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/127#lseq-member
                _g89582_))))))
  (define std/srfi/127#lseq-memv
    (lambda (_x89432_ _lseq89433_)
      (std/srfi/127#lseq-member__1 _x89432_ _lseq89433_ eqv?)))
  (define std/srfi/127#lseq-memq
    (lambda (_x89429_ _lseq89430_)
      (std/srfi/127#lseq-member__1 _x89429_ _lseq89430_ eq?))))
