(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/127#any-null?
    (lambda (_list539_)
      (if (null? _list539_)
          '#f
          (if (null? (car _list539_))
              '#t
              (std/srfi/127#any-null? (cdr _list539_))))))
  (define std/srfi/127#gappend
    (lambda _args532_
      (lambda ()
        (if (null? _args532_)
            (eof-object)
            (let _loop535_ ((_v537_ ((car _args532_))))
              (if (eof-object? _v537_)
                  (begin
                    (set! _args532_ (cdr _args532_))
                    (if (null? _args532_)
                        (eof-object)
                        (_loop535_ ((car _args532_)))))
                  _v537_))))))
  (define std/srfi/127#generator->lseq
    (lambda (_gen528_)
      (let ((_value530_ (_gen528_)))
        (if (eof-object? _value530_) '() (cons _value530_ _gen528_)))))
  (define std/srfi/127#lseq-car (lambda (_lseq526_) (car _lseq526_)))
  (define std/srfi/127#lseq-first (lambda (_lseq524_) (car _lseq524_)))
  (define std/srfi/127#lseq-cdr
    (lambda (_lseq518_)
      (if (procedure? (cdr _lseq518_))
          (let ((_obj520_ ((cdr _lseq518_))))
            (if (eof-object? _obj520_)
                (begin (set-cdr! _lseq518_ '()) '())
                (let ((_result522_ (cons _obj520_ (cdr _lseq518_))))
                  (set-cdr! _lseq518_ _result522_)
                  _result522_)))
          (cdr _lseq518_))))
  (define std/srfi/127#lseq-rest
    (lambda (_lseq516_) (std/srfi/127#lseq-cdr _lseq516_)))
  (define std/srfi/127#lseq?
    (lambda (_obj514_)
      (if (null? _obj514_)
          '#t
          (if (not (pair? _obj514_))
              '#f
              (if (procedure? (cdr _obj514_))
                  '#t
                  (std/srfi/127#lseq? (cdr _obj514_)))))))
  (define std/srfi/127#lseq=?
    (lambda (_=507_ _lseq1508_ _lseq2509_)
      (if (and (null? _lseq1508_) (null? _lseq2509_))
          '#t
          (if (or (null? _lseq1508_) (null? _lseq2509_))
              '#f
              (if (_=507_ (car _lseq1508_) (car _lseq2509_))
                  (std/srfi/127#lseq=?
                   _=507_
                   (std/srfi/127#lseq-cdr _lseq1508_)
                   (std/srfi/127#lseq-cdr _lseq2509_))
                  '#f)))))
  (define std/srfi/127#lseq-take
    (lambda (_lseq501_ _i502_)
      (std/srfi/127#generator->lseq
       (lambda ()
         (if (= _i502_ '0)
             (eof-object)
             (let ((_result505_ (car _lseq501_)))
               (set! _lseq501_ (std/srfi/127#lseq-cdr _lseq501_))
               (set! _i502_ (- _i502_ '1))
               _result505_))))))
  (define std/srfi/127#lseq-drop
    (lambda (_lseq493_ _i494_)
      (let _loop496_ ((_i498_ _i494_) (_lseq499_ _lseq493_))
        (if (= _i498_ '0)
            _lseq499_
            (_loop496_ (- _i498_ '1) (std/srfi/127#lseq-cdr _lseq499_))))))
  (define std/srfi/127#lseq-ref
    (lambda (_lseq490_ _i491_)
      (car (std/srfi/127#lseq-drop _lseq490_ _i491_))))
  (define std/srfi/127#lseq-realize
    (lambda (_lseq484_)
      (let _loop486_ ((_next488_ _lseq484_))
        (if (null? _next488_)
            _lseq484_
            (_loop486_ (std/srfi/127#lseq-cdr _next488_))))))
  (define std/srfi/127#lseq-length
    (lambda (_lseq482_) (length (std/srfi/127#lseq-realize _lseq482_))))
  (define std/srfi/127#lseq->generator
    (lambda (_lseq477_)
      (lambda ()
        (if (null? _lseq477_)
            (eof-object)
            (let ((_result480_ (car _lseq477_)))
              (set! _lseq477_ (std/srfi/127#lseq-cdr _lseq477_))
              _result480_)))))
  (define std/srfi/127#lseq-append
    (lambda _lseqs475_
      (std/srfi/127#generator->lseq
       (apply std/srfi/127#gappend
              (map std/srfi/127#lseq->generator _lseqs475_)))))
  (define std/srfi/127#safe-lseq-cdr
    (lambda (_obj473_)
      (if (null? _obj473_) _obj473_ (std/srfi/127#lseq-cdr _obj473_))))
  (define std/srfi/127#lseq-map
    (lambda (_proc467_ . _lseqs468_)
      (std/srfi/127#generator->lseq
       (lambda ()
         (if (std/srfi/127#any-null? _lseqs468_)
             (eof-object)
             (let ((_result471_
                    (apply _proc467_ (map std/srfi/127#lseq-car _lseqs468_))))
               (set! _lseqs468_ (map std/srfi/127#safe-lseq-cdr _lseqs468_))
               _result471_))))))
  (define std/srfi/127#lseq-zip
    (lambda _lseqs465_ (apply std/srfi/127#lseq-map list _lseqs465_)))
  (define std/srfi/127#lseq-for-each
    (lambda (_proc462_ . _lseqs463_)
      (apply for-each _proc462_ (map std/srfi/127#lseq-realize _lseqs463_))))
  (define std/srfi/127#lseq-filter
    (lambda (_pred452_ _lseq453_)
      (std/srfi/127#generator->lseq
       (lambda ()
         (let _loop456_ ((_lseq1458_ _lseq453_))
           (if (null? _lseq1458_)
               (eof-object)
               (let ((_result460_ (car _lseq1458_)))
                 (if (_pred452_ _result460_)
                     (begin
                       (set! _lseq453_ (std/srfi/127#lseq-cdr _lseq1458_))
                       _result460_)
                     (_loop456_ (std/srfi/127#lseq-cdr _lseq1458_))))))))))
  (define std/srfi/127#lseq-remove
    (lambda (_pred447_ _lseq448_)
      (std/srfi/127#lseq-filter
       (lambda (_x450_) (not (_pred447_ _x450_)))
       _lseq448_)))
  (define std/srfi/127#lseq-find
    (lambda (_pred444_ _lseq445_)
      (if (null? _lseq445_)
          '#f
          (if (_pred444_ (car _lseq445_))
              (car _lseq445_)
              (std/srfi/127#lseq-find
               _pred444_
               (std/srfi/127#lseq-cdr _lseq445_))))))
  (define std/srfi/127#lseq-find-tail
    (lambda (_pred441_ _lseq442_)
      (if (null? _lseq442_)
          '#f
          (if (_pred441_ (car _lseq442_))
              _lseq442_
              (std/srfi/127#lseq-find-tail
               _pred441_
               (std/srfi/127#lseq-cdr _lseq442_))))))
  (define std/srfi/127#lseq-take-while
    (lambda (_pred435_ _lseq436_)
      (std/srfi/127#generator->lseq
       (lambda ()
         (if (not (_pred435_ (car _lseq436_)))
             (eof-object)
             (let ((_result439_ (car _lseq436_)))
               (set! _lseq436_ (std/srfi/127#lseq-cdr _lseq436_))
               _result439_))))))
  (define std/srfi/127#lseq-drop-while
    (lambda (_pred428_ _lseq429_)
      (let _loop431_ ((_lseq433_ _lseq429_))
        (if (not (_pred428_ (car _lseq433_)))
            _lseq433_
            (_loop431_ (std/srfi/127#lseq-cdr _lseq433_))))))
  (define std/srfi/127#lseq-any
    (lambda (_pred419_ . _lseqs420_)
      (let _loop422_ ((_lseqs424_ _lseqs420_))
        (if (std/srfi/127#any-null? _lseqs424_)
            '#f
            (let ((_result426_
                   (apply _pred419_ (map std/srfi/127#lseq-car _lseqs424_))))
              (if _result426_
                  _result426_
                  (_loop422_ (map std/srfi/127#lseq-cdr _lseqs424_))))))))
  (define std/srfi/127#lseq-every
    (lambda (_pred409_ . _lseqs410_)
      (let _loop412_ ((_lseqs414_ _lseqs410_) (_last-result415_ '#t))
        (if (std/srfi/127#any-null? _lseqs414_)
            _last-result415_
            (let ((_result417_
                   (apply _pred409_ (map std/srfi/127#lseq-car _lseqs414_))))
              (if _result417_
                  (_loop412_
                   (map std/srfi/127#lseq-cdr _lseqs414_)
                   _result417_)
                  '#f))))))
  (define std/srfi/127#lseq-index
    (lambda (_pred401_ . _lseqs402_)
      (let _loop404_ ((_lseqs406_ _lseqs402_) (_n407_ '0))
        (if (std/srfi/127#any-null? _lseqs406_)
            '#f
            (if (apply _pred401_ (map std/srfi/127#lseq-car _lseqs406_))
                _n407_
                (_loop404_
                 (map std/srfi/127#safe-lseq-cdr _lseqs406_)
                 (+ _n407_ '1)))))))
  (define std/srfi/127#lseq-member__0
    (lambda (_x394_ _lseq395_)
      (std/srfi/127#lseq-member__1 _x394_ _lseq395_ equal?)))
  (define std/srfi/127#lseq-member__1
    (lambda (_x397_ _lseq398_ _=399_)
      (if (null? _lseq398_)
          '#f
          (if (_=399_ _x397_ (car _lseq398_))
              _lseq398_
              (std/srfi/127#lseq-member__1
               _x397_
               (std/srfi/127#lseq-cdr _lseq398_)
               _=399_)))))
  (define std/srfi/127#lseq-member
    (lambda _g4140_
      (let ((_g4139_ (let () (declare (not safe)) (##length _g4140_))))
        (cond ((let () (declare (not safe)) (##fx= _g4139_ 2))
               (apply std/srfi/127#lseq-member__0 _g4140_))
              ((let () (declare (not safe)) (##fx= _g4139_ 3))
               (apply std/srfi/127#lseq-member__1 _g4140_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/127#lseq-member
                _g4140_))))))
  (define std/srfi/127#lseq-memv
    (lambda (_x391_ _lseq392_)
      (std/srfi/127#lseq-member__1 _x391_ _lseq392_ eqv?)))
  (define std/srfi/127#lseq-memq
    (lambda (_x388_ _lseq389_)
      (std/srfi/127#lseq-member__1 _x388_ _lseq389_ eq?))))
