(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/160/c64#c64vector-unfold
    (lambda (_f1808_ _len1810_ _seed1812_)
      (declare (not safe))
      (begin
        (if (procedure? _f1808_)
            '#!void
            (error '"Bad argument; expected procedure" _f1808_))
        (let ((_v1816_ (let ((__obj5429
                              (make-object
                               std/srfi/160/cvector#c64vector::t
                               '1)))
                         (std/srfi/160/cvector#c64vector:::init!__0
                          __obj5429
                          _len1810_)
                         __obj5429)))
          (let _lp1819_ ((_i1822_ '0) (_state1824_ _seed1812_))
            (if (fx< _i1822_ _len1810_)
                (let ((_g5446_ (_f1808_ _i1822_ _state1824_)))
                  (begin
                    (let ((_g5447_ (if (##values? _g5446_)
                                       (##vector-length _g5446_)
                                       1)))
                      (if (not (##fx= _g5447_ 2))
                          (error "Context expects 2 values" _g5447_)))
                    (let ((_x1827_ (##vector-ref _g5446_ 0))
                          (_state1829_ (##vector-ref _g5446_ 1)))
                      (begin
                        (if (std/srfi/160/base#c64? _x1827_)
                            '#!void
                            (error '"Bad generated value" _x1827_))
                        (std/srfi/160/cvector#c64vector-set!
                         _v1816_
                         _i1822_
                         _x1827_)
                        (_lp1819_ (fx+ _i1822_ '1) _state1829_)))))
                _v1816_))))))
  (define std/srfi/160/c64#c64vector-unfold-right
    (lambda (_f1785_ _len1787_ _seed1789_)
      (declare (not safe))
      (begin
        (if (procedure? _f1785_)
            '#!void
            (error '"Bad argument; expected procedure" _f1785_))
        (let ((_v1793_ (let ((__obj5430
                              (make-object
                               std/srfi/160/cvector#c64vector::t
                               '1)))
                         (std/srfi/160/cvector#c64vector:::init!__0
                          __obj5430
                          _len1787_)
                         __obj5430)))
          (let _lp1796_ ((_i1799_ (fx- _len1787_ '1)) (_state1801_ _seed1789_))
            (if (fx>= _i1799_ '0)
                (let ((_g5448_ (_f1785_ _i1799_ _state1801_)))
                  (begin
                    (let ((_g5449_ (if (##values? _g5448_)
                                       (##vector-length _g5448_)
                                       1)))
                      (if (not (##fx= _g5449_ 2))
                          (error "Context expects 2 values" _g5449_)))
                    (let ((_x1804_ (##vector-ref _g5448_ 0))
                          (_state1806_ (##vector-ref _g5448_ 1)))
                      (begin
                        (if (std/srfi/160/base#c64? _x1804_)
                            '#!void
                            (error '"Bad generated value" _x1804_))
                        (std/srfi/160/cvector#c64vector-set!
                         _v1793_
                         _i1799_
                         _x1804_)
                        (_lp1796_ (fx- _i1799_ '1) _state1806_)))))
                _v1793_))))))
  (define std/srfi/160/c64#c64vector-copy__%
    (lambda (_vec1757_ _start1759_ _end1761_)
      (let ((_v1764_ (let ((__obj5431
                            (make-object
                             std/srfi/160/cvector#c64vector::t
                             '1)))
                       (std/srfi/160/cvector#c64vector:::init!__0
                        __obj5431
                        (fx- _end1761_ _start1759_))
                       __obj5431)))
        (std/srfi/160/c64#c64vector-copy!
         _v1764_
         '0
         _vec1757_
         _start1759_
         _end1761_)
        _v1764_)))
  (define std/srfi/160/c64#c64vector-copy__0
    (lambda (_vec1770_)
      (let* ((_start1772_ '0)
             (_end1774_ (std/srfi/160/cvector#c64vector-length _vec1770_)))
        (std/srfi/160/c64#c64vector-copy__% _vec1770_ _start1772_ _end1774_))))
  (define std/srfi/160/c64#c64vector-copy__1
    (lambda (_vec1776_ _start1777_)
      (let ((_end1779_ (std/srfi/160/cvector#c64vector-length _vec1776_)))
        (std/srfi/160/c64#c64vector-copy__% _vec1776_ _start1777_ _end1779_))))
  (define std/srfi/160/c64#c64vector-copy
    (lambda _g5451_
      (let ((_g5450_ (let () (declare (not safe)) (##length _g5451_))))
        (cond ((let () (declare (not safe)) (##fx= _g5450_ 1))
               (apply std/srfi/160/c64#c64vector-copy__0 _g5451_))
              ((let () (declare (not safe)) (##fx= _g5450_ 2))
               (apply std/srfi/160/c64#c64vector-copy__1 _g5451_))
              ((let () (declare (not safe)) (##fx= _g5450_ 3))
               (apply std/srfi/160/c64#c64vector-copy__% _g5451_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-copy
                _g5451_))))))
  (define std/srfi/160/c64#c64vector-copy!
    (lambda (_to1736_ _at1738_ _from1740_ _start1742_ _end1744_)
      (declare (not safe))
      (begin
        (if (##structure-direct-instance-of?
             _to1736_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _to1736_))
        (if (##structure-direct-instance-of?
             _from1740_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _from1740_))
        (if (and (fixnum? _at1738_)
                 (fx<= '0
                       _at1738_
                       (fx- (std/srfi/160/cvector#c64vector-length _at1738_)
                            '1)))
            '#!void
            (error '"Index out of range" _to1736_ _at1738_))
        (if (and (fixnum? _start1742_)
                 (fx<= '0
                       _start1742_
                       (fx- (std/srfi/160/cvector#c64vector-length _from1740_)
                            '1)))
            '#!void
            (error '"Index out of range" _from1740_ _start1742_))
        (if (and (fixnum? _end1744_)
                 (fx<= _start1742_
                       _end1744_
                       (std/srfi/160/cvector#c64vector-length _from1740_)))
            '#!void
            (error '"Index out of range" _from1740_ _end1744_))
        (if (fx<= (fx- _end1744_ _start1742_)
                  (fx- (std/srfi/160/cvector#c64vector-length _to1736_)
                       _at1738_))
            '#!void
            (error '"Destination area too small"
                   _to1736_
                   _at1738_
                   _from1740_
                   _start1742_
                   _end1744_))
        (let _lp1748_ ((_i1751_ _start1742_) (_j1753_ _at1738_))
          (if (fx< _i1751_ _end1744_)
              (begin
                (std/srfi/160/cvector#c64vector-set!
                 _to1736_
                 _j1753_
                 (std/srfi/160/cvector#c64vector-ref _from1740_ _i1751_))
                (_lp1748_ (fx+ _i1751_ '1) (fx+ _j1753_ '1)))
              '#!void)))))
  (define std/srfi/160/c64#c64vector-reverse-copy__%
    (lambda (_vec1708_ _start1710_ _end1712_)
      (let ((_v1715_ (let ((__obj5432
                            (make-object
                             std/srfi/160/cvector#c64vector::t
                             '1)))
                       (std/srfi/160/cvector#c64vector:::init!__0
                        __obj5432
                        (fx- _end1712_ _start1710_))
                       __obj5432)))
        (std/srfi/160/c64#c64vector-reverse-copy!
         _v1715_
         '0
         _vec1708_
         _start1710_
         _end1712_)
        _v1715_)))
  (define std/srfi/160/c64#c64vector-reverse-copy__0
    (lambda (_vec1721_)
      (let* ((_start1723_ '0)
             (_end1725_ (std/srfi/160/cvector#c64vector-length _vec1721_)))
        (std/srfi/160/c64#c64vector-reverse-copy__%
         _vec1721_
         _start1723_
         _end1725_))))
  (define std/srfi/160/c64#c64vector-reverse-copy__1
    (lambda (_vec1727_ _start1728_)
      (let ((_end1730_ (std/srfi/160/cvector#c64vector-length _vec1727_)))
        (std/srfi/160/c64#c64vector-reverse-copy__%
         _vec1727_
         _start1728_
         _end1730_))))
  (define std/srfi/160/c64#c64vector-reverse-copy
    (lambda _g5453_
      (let ((_g5452_ (let () (declare (not safe)) (##length _g5453_))))
        (cond ((let () (declare (not safe)) (##fx= _g5452_ 1))
               (apply std/srfi/160/c64#c64vector-reverse-copy__0 _g5453_))
              ((let () (declare (not safe)) (##fx= _g5452_ 2))
               (apply std/srfi/160/c64#c64vector-reverse-copy__1 _g5453_))
              ((let () (declare (not safe)) (##fx= _g5452_ 3))
               (apply std/srfi/160/c64#c64vector-reverse-copy__% _g5453_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-reverse-copy
                _g5453_))))))
  (define std/srfi/160/c64#c64vector-reverse-copy!
    (lambda (_to1687_ _at1689_ _from1691_ _start1693_ _end1695_)
      (declare (not safe))
      (begin
        (if (##structure-direct-instance-of?
             _to1687_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _to1687_))
        (if (##structure-direct-instance-of?
             _from1691_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _from1691_))
        (if (and (fixnum? _at1689_)
                 (fx<= '0
                       _at1689_
                       (fx- (std/srfi/160/cvector#c64vector-length _at1689_)
                            '1)))
            '#!void
            (error '"Index out of range" _to1687_ _at1689_))
        (if (and (fixnum? _start1693_)
                 (fx<= '0
                       _start1693_
                       (fx- (std/srfi/160/cvector#c64vector-length _from1691_)
                            '1)))
            '#!void
            (error '"Index out of range" _from1691_ _start1693_))
        (if (and (fixnum? _end1695_)
                 (fx<= _start1693_
                       _end1695_
                       (std/srfi/160/cvector#c64vector-length _from1691_)))
            '#!void
            (error '"Index out of range" _from1691_ _end1695_))
        (if (fx<= (fx- _end1695_ _start1693_)
                  (fx- (std/srfi/160/cvector#c64vector-length _to1687_)
                       _at1689_))
            '#!void
            (error '"Destination area too small"
                   _to1687_
                   _at1689_
                   _from1691_
                   _start1693_
                   _end1695_))
        (let _lp1699_ ((_i1702_ (fx- _end1695_ '1)) (_j1704_ _at1689_))
          (if (fx>= _i1702_ _start1693_)
              (begin
                (std/srfi/160/cvector#c64vector-set!
                 _to1687_
                 _j1704_
                 (std/srfi/160/cvector#c64vector-ref _from1691_ _i1702_))
                (_lp1699_ (fx- _i1702_ '1) (fx+ _j1704_ '1)))
              '#!void)))))
  (define std/srfi/160/c64#c64vector-append
    (lambda _args1684_ (std/srfi/160/c64#c64vector-concatenate _args1684_)))
  (define std/srfi/160/c64#c64vector-concatenate
    (lambda (_lst1624_)
      (let* ((_len1632_
              (foldl1 (lambda (_v1627_ _r1629_)
                        (fx+ (std/srfi/160/cvector#c64vector-length _v1627_)
                             _r1629_))
                      '0
                      _lst1624_))
             (_v1635_ (let ((__obj5433
                             (make-object
                              std/srfi/160/cvector#c64vector::t
                              '1)))
                        (std/srfi/160/cvector#c64vector:::init!__0
                         __obj5433
                         _len1632_)
                        __obj5433)))
        (declare (not safe))
        (let _lp1639_ ((_rest1642_ _lst1624_) (_at1644_ '0))
          (let* ((_rest16461654_ _rest1642_)
                 (_else16481662_ (lambda () _v1635_))
                 (_K16501672_
                  (lambda (_rest1665_ _u1666_)
                    (let ((_ulen1669_
                           (std/srfi/160/cvector#c64vector-length _u1666_)))
                      (std/srfi/160/c64#c64vector-copy!
                       _v1635_
                       _at1644_
                       _u1666_
                       '0
                       _ulen1669_)
                      (_lp1639_ _rest1665_ (fx+ _at1644_ _ulen1669_))))))
            (if (##pair? _rest16461654_)
                (let ((_hd16511675_ (##car _rest16461654_))
                      (_tl16521677_ (##cdr _rest16461654_)))
                  (let* ((_u1680_ _hd16511675_) (_rest1682_ _tl16521677_))
                    (_K16501672_ _rest1682_ _u1680_)))
                (_else16481662_)))))))
  (define std/srfi/160/c64#c64vector-append-subvectors
    (lambda _args1496_
      (let* ((_len1557_
              (let _lp1499_ ((_rest1502_ _args1496_) (_r1504_ '0))
                (let* ((_rest15061518_ _rest1502_)
                       (_else15081526_ (lambda () _r1504_))
                       (_K15101535_
                        (lambda (_rest1529_ _end1530_ _start1532_)
                          (_lp1499_
                           _rest1529_
                           (fx+ _r1504_ (fx- _end1530_ _start1532_))))))
                  (if (let () (declare (not safe)) (##pair? _rest15061518_))
                      (let ((_tl15121538_
                             (let ()
                               (declare (not safe))
                               (##cdr _rest15061518_))))
                        (if (let ()
                              (declare (not safe))
                              (##pair? _tl15121538_))
                            (let ((_hd15131541_
                                   (let ()
                                     (declare (not safe))
                                     (##car _tl15121538_)))
                                  (_tl15141543_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _tl15121538_))))
                              (let ((_start1546_ _hd15131541_))
                                (if (let ()
                                      (declare (not safe))
                                      (##pair? _tl15141543_))
                                    (let ((_hd15151548_
                                           (let ()
                                             (declare (not safe))
                                             (##car _tl15141543_)))
                                          (_tl15161550_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _tl15141543_))))
                                      (let* ((_end1553_ _hd15151548_)
                                             (_rest1555_ _tl15161550_))
                                        (_K15101535_
                                         _rest1555_
                                         _end1553_
                                         _start1546_)))
                                    (_else15081526_))))
                            (_else15081526_)))
                      (_else15081526_)))))
             (_v1560_ (let ((__obj5434
                             (make-object
                              std/srfi/160/cvector#c64vector::t
                              '1)))
                        (std/srfi/160/cvector#c64vector:::init!__0
                         __obj5434
                         _len1557_)
                        __obj5434)))
        (let _lp1564_ ((_rest1566_ _args1496_) (_at1567_ '0))
          (let* ((_rest15691581_ _rest1566_)
                 (_else15711589_ (lambda () _v1560_))
                 (_K15731598_
                  (lambda (_rest1592_ _end1593_ _start1594_ _u1595_)
                    (std/srfi/160/c64#c64vector-copy!
                     _v1560_
                     _at1567_
                     _u1595_
                     _start1594_
                     _end1593_)
                    (_lp1564_
                     _rest1592_
                     (fx+ _at1567_ (fx- _end1593_ _start1594_))))))
            (if (let () (declare (not safe)) (##pair? _rest15691581_))
                (let ((_hd15741601_
                       (let () (declare (not safe)) (##car _rest15691581_)))
                      (_tl15751603_
                       (let () (declare (not safe)) (##cdr _rest15691581_))))
                  (let ((_u1606_ _hd15741601_))
                    (if (let () (declare (not safe)) (##pair? _tl15751603_))
                        (let ((_hd15761608_
                               (let ()
                                 (declare (not safe))
                                 (##car _tl15751603_)))
                              (_tl15771610_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _tl15751603_))))
                          (let ((_start1613_ _hd15761608_))
                            (if (let ()
                                  (declare (not safe))
                                  (##pair? _tl15771610_))
                                (let ((_hd15781615_
                                       (let ()
                                         (declare (not safe))
                                         (##car _tl15771610_)))
                                      (_tl15791617_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _tl15771610_))))
                                  (let* ((_end1620_ _hd15781615_)
                                         (_rest1622_ _tl15791617_))
                                    (_K15731598_
                                     _rest1622_
                                     _end1620_
                                     _start1613_
                                     _u1606_)))
                                (_else15711589_))))
                        (_else15711589_))))
                (_else15711589_)))))))
  (define std/srfi/160/c64#c64vector-empty?
    (lambda (_v1493_)
      (fxzero? (std/srfi/160/cvector#c64vector-length _v1493_))))
  (define std/srfi/160/c64#c64vector=
    (lambda (_v1435_ . _args1437_)
      (declare (not safe))
      (begin
        (if (##structure-direct-instance-of?
             _v1435_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _v1435_))
        (let ((_vlen1441_ (std/srfi/160/cvector#c64vector-length _v1435_)))
          (let _lp1444_ ((_rest1447_ _args1437_))
            (let* ((_rest14491457_ _rest1447_)
                   (_else14511465_ (lambda () '#t))
                   (_K14531481_
                    (lambda (_rest1468_ _u1469_)
                      (if (##structure-direct-instance-of?
                           _u1469_
                           'std/srfi/160/cvector#c64vector::t)
                          '#!void
                          (error '"Bad argument" _u1469_))
                      (let ((_ulen1472_
                             (std/srfi/160/cvector#c64vector-length _u1469_)))
                        (if (fx= _vlen1441_ _ulen1472_)
                            (let _cmp1475_ ((_i1478_ '0))
                              (if (fx< _i1478_ _vlen1441_)
                                  (if (= (std/srfi/160/cvector#c64vector-ref
                                          _v1435_
                                          _i1478_)
                                         (std/srfi/160/cvector#c64vector-ref
                                          _u1469_
                                          _i1478_))
                                      (_cmp1475_ (fx+ _i1478_ '1))
                                      '#f)
                                  (_lp1444_ _rest1468_)))
                            '#f)))))
              (if (##pair? _rest14491457_)
                  (let ((_hd14541484_ (##car _rest14491457_))
                        (_tl14551486_ (##cdr _rest14491457_)))
                    (let* ((_u1489_ _hd14541484_) (_rest1491_ _tl14551486_))
                      (_K14531481_ _rest1491_ _u1489_)))
                  (_else14511465_))))))))
  (define std/srfi/160/c64#c64vector-take
    (lambda (_v1427_ _n1429_)
      (let ((_u1432_ (let ((__obj5435
                            (make-object
                             std/srfi/160/cvector#c64vector::t
                             '1)))
                       (std/srfi/160/cvector#c64vector:::init!__0
                        __obj5435
                        _n1429_)
                       __obj5435)))
        (std/srfi/160/c64#c64vector-copy! _u1432_ '0 _v1427_ '0 _n1429_)
        _u1432_)))
  (define std/srfi/160/c64#c64vector-take-right
    (lambda (_v1412_ _n1414_)
      (let* ((_vlen1417_ (std/srfi/160/cvector#c64vector-length _v1412_))
             (_ulen1420_ (fx- _vlen1417_ _n1414_))
             (_u1423_ (let ((__obj5436
                             (make-object
                              std/srfi/160/cvector#c64vector::t
                              '1)))
                        (std/srfi/160/cvector#c64vector:::init!__0
                         __obj5436
                         _ulen1420_)
                        __obj5436)))
        (std/srfi/160/c64#c64vector-copy!
         _u1423_
         '0
         _v1412_
         _n1414_
         _vlen1417_)
        _u1423_)))
  (define std/srfi/160/c64#c64vector-drop
    (lambda (_v1397_ _n1399_)
      (let* ((_vlen1402_ (std/srfi/160/cvector#c64vector-length _v1397_))
             (_ulen1405_ (fx- _vlen1402_ _n1399_))
             (_u1408_ (let ((__obj5437
                             (make-object
                              std/srfi/160/cvector#c64vector::t
                              '1)))
                        (std/srfi/160/cvector#c64vector:::init!__0
                         __obj5437
                         _ulen1405_)
                        __obj5437)))
        (std/srfi/160/c64#c64vector-copy!
         _u1408_
         '0
         _v1397_
         _n1399_
         _vlen1402_)
        _u1408_)))
  (define std/srfi/160/c64#c64vector-drop-right
    (lambda (_v1382_ _n1384_)
      (let* ((_vlen1387_ (std/srfi/160/cvector#c64vector-length _v1382_))
             (_ulen1390_ (fx- _vlen1387_ _n1384_))
             (_u1393_ (let ((__obj5438
                             (make-object
                              std/srfi/160/cvector#c64vector::t
                              '1)))
                        (std/srfi/160/cvector#c64vector:::init!__0
                         __obj5438
                         _ulen1390_)
                        __obj5438)))
        (std/srfi/160/c64#c64vector-copy! _u1393_ '0 _v1382_ '0 _ulen1390_)
        _u1393_)))
  (define std/srfi/160/c64#c64vector-segment
    (lambda (_v1364_ _n1366_)
      (let _lp1369_ ((_i1372_ '0)
                     (_rest1374_
                      (std/srfi/160/cvector#c64vector-length _v1364_))
                     (_r1376_ '()))
        (if (fx> _r1376_ '0)
            (let ((_size1379_ (fxmin _n1366_ _rest1374_)))
              (_lp1369_
               (fx+ _i1372_ _size1379_)
               (fx- _rest1374_ _size1379_)
               (cons (std/srfi/160/c64#c64vector-copy__%
                      _v1364_
                      _i1372_
                      (fx+ _i1372_ _size1379_))
                     _r1376_)))
            (reverse _r1376_)))))
  (define std/srfi/160/c64#c64vector-fold__0
    (lambda (_kons1324_ _knil1326_ _v1328_)
      (if (procedure? _kons1324_)
          '#!void
          (error '"Bad argument; expected procedure" _kons1324_))
      (let ((_end1331_ (std/srfi/160/cvector#c64vector-length _v1328_)))
        (declare (not safe))
        (let _lp1335_ ((_i1338_ '0) (_r1340_ _knil1326_))
          (if (fx< _i1338_ _end1331_)
              (_lp1335_
               (fx+ _i1338_ '1)
               (_kons1324_
                _r1340_
                (std/srfi/160/cvector#c64vector-ref _v1328_ _i1338_)))
              _r1340_)))))
  (define std/srfi/160/c64#c64vector-fold__1
    (lambda (_kons1343_ _knil1344_ _v1345_ . _vs1346_)
      (if (procedure? _kons1343_)
          '#!void
          (error '"Bad argument; expected procedure" _kons1343_))
      (let* ((_vs1349_ (cons _v1345_ _vs1346_))
             (_end1351_
              (apply fxmin
                     (map std/srfi/160/cvector#c64vector-length _vs1349_))))
        (declare (not safe))
        (let _lp1355_ ((_i1357_ '0) (_r1358_ _knil1344_))
          (if (fx< _i1357_ _end1351_)
              (_lp1355_
               (fx+ _i1357_ '1)
               (apply _kons1343_
                      _r1358_
                      (map (lambda (_g13591361_)
                             (std/srfi/160/cvector#c64vector-ref
                              _g13591361_
                              _i1357_))
                           _vs1349_)))
              _r1358_)))))
  (define std/srfi/160/c64#c64vector-fold
    (lambda _g5455_
      (let ((_g5454_ (let () (declare (not safe)) (##length _g5455_))))
        (cond ((let () (declare (not safe)) (##fx= _g5454_ 3))
               (apply std/srfi/160/c64#c64vector-fold__0 _g5455_))
              ((let () (declare (not safe)) (##fx>= _g5454_ 3))
               (apply std/srfi/160/c64#c64vector-fold__1 _g5455_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-fold
                _g5455_))))))
  (define std/srfi/160/c64#c64vector-fold-right__0
    (lambda (_kons1284_ _knil1286_ _v1288_)
      (if (procedure? _kons1284_)
          '#!void
          (error '"Bad argument; expected procedure" _kons1284_))
      (let ((_last1291_
             (fx- (std/srfi/160/cvector#c64vector-length _v1288_) '1)))
        (declare (not safe))
        (let _lp1295_ ((_i1298_ _last1291_) (_r1300_ _knil1286_))
          (if (fx>= _i1298_ '0)
              (_lp1295_
               (fx- _i1298_ '1)
               (_kons1284_
                _r1300_
                (std/srfi/160/cvector#c64vector-ref _v1288_ _i1298_)))
              _r1300_)))))
  (define std/srfi/160/c64#c64vector-fold-right__1
    (lambda (_kons1303_ _knil1304_ _v1305_ . _vs1306_)
      (if (procedure? _kons1303_)
          '#!void
          (error '"Bad argument; expected procedure" _kons1303_))
      (let* ((_vs1309_ (cons _v1305_ _vs1306_))
             (_last1311_
              (fx- (apply min
                          (map std/srfi/160/cvector#c64vector-length _vs1309_))
                   '1)))
        (declare (not safe))
        (let _lp1315_ ((_i1317_ _last1311_) (_r1318_ _knil1304_))
          (if (fx>= _i1317_ '0)
              (_lp1315_
               (fx- _i1317_ '1)
               (apply _kons1303_
                      _r1318_
                      (map (lambda (_g13191321_)
                             (std/srfi/160/cvector#c64vector-ref
                              _g13191321_
                              _i1317_))
                           _vs1309_)))
              _r1318_)))))
  (define std/srfi/160/c64#c64vector-fold-right
    (lambda _g5457_
      (let ((_g5456_ (let () (declare (not safe)) (##length _g5457_))))
        (cond ((let () (declare (not safe)) (##fx= _g5456_ 3))
               (apply std/srfi/160/c64#c64vector-fold-right__0 _g5457_))
              ((let () (declare (not safe)) (##fx>= _g5456_ 3))
               (apply std/srfi/160/c64#c64vector-fold-right__1 _g5457_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-fold-right
                _g5457_))))))
  (define std/srfi/160/c64#c64vector-map__0
    (lambda (_f1244_ _v1246_)
      (if (procedure? _f1244_)
          '#!void
          (error '"Bad argument; expected procedure" _f1244_))
      (let* ((_len1249_ (std/srfi/160/cvector#c64vector-length _v1246_))
             (_u1252_ (let ((__obj5439
                             (make-object
                              std/srfi/160/cvector#c64vector::t
                              '1)))
                        (std/srfi/160/cvector#c64vector:::init!__0
                         __obj5439
                         _len1249_)
                        __obj5439)))
        (declare (not safe))
        (let _lp1257_ ((_i1260_ '0))
          (if (fx< _i1260_ _len1249_)
              (begin
                (std/srfi/160/cvector#c64vector-set!
                 _u1252_
                 _i1260_
                 (std/srfi/160/cvector#c64vector-ref _v1246_ _i1260_))
                (_lp1257_ (fx+ _i1260_ '1)))
              _u1252_)))))
  (define std/srfi/160/c64#c64vector-map__1
    (lambda (_f1263_ _v1264_ . _vs1265_)
      (if (procedure? _f1263_)
          '#!void
          (error '"Bad argument; expected procedure" _f1263_))
      (let* ((_vs1268_ (cons _v1264_ _vs1265_))
             (_len1270_
              (apply fxmin
                     (map std/srfi/160/cvector#c64vector-length _vs1268_)))
             (_u1272_ (let ((__obj5440
                             (make-object
                              std/srfi/160/cvector#c64vector::t
                              '1)))
                        (std/srfi/160/cvector#c64vector:::init!__0
                         __obj5440
                         _len1270_)
                        __obj5440)))
        (declare (not safe))
        (let _lp1276_ ((_i1278_ '0))
          (if (fx< _i1278_ _len1270_)
              (begin
                (std/srfi/160/cvector#c64vector-set!
                 _u1272_
                 _i1278_
                 (apply _f1263_
                        (map (lambda (_g12791281_)
                               (std/srfi/160/cvector#c64vector-ref
                                _g12791281_
                                _i1278_))
                             _vs1268_)))
                (_lp1276_ (fx+ _i1278_ '1)))
              _u1272_)))))
  (define std/srfi/160/c64#c64vector-map
    (lambda _g5459_
      (let ((_g5458_ (let () (declare (not safe)) (##length _g5459_))))
        (cond ((let () (declare (not safe)) (##fx= _g5458_ 2))
               (apply std/srfi/160/c64#c64vector-map__0 _g5459_))
              ((let () (declare (not safe)) (##fx>= _g5458_ 2))
               (apply std/srfi/160/c64#c64vector-map__1 _g5459_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-map
                _g5459_))))))
  (define std/srfi/160/c64#c64vector-map!__0
    (lambda (_f1210_ _v1212_)
      (if (procedure? _f1210_)
          '#!void
          (error '"Bad argument; expected procedure" _f1210_))
      (let ((_len1215_ (std/srfi/160/cvector#c64vector-length _v1212_)))
        (declare (not safe))
        (let _lp1219_ ((_i1222_ '0))
          (if (fx< _i1222_ _len1215_)
              (begin
                (std/srfi/160/cvector#c64vector-set!
                 _v1212_
                 _i1222_
                 (_f1210_ (std/srfi/160/cvector#c64vector-ref
                           _v1212_
                           _i1222_)))
                (_lp1219_ (fx+ _i1222_ '1)))
              _v1212_)))))
  (define std/srfi/160/c64#c64vector-map!__1
    (lambda (_f1225_ _v1226_ . _vs1227_)
      (if (procedure? _f1225_)
          '#!void
          (error '"Bad argument; expected procedure" _f1225_))
      (let* ((_vs1230_ (cons _v1226_ _vs1227_))
             (_len1232_
              (apply fxmin
                     (map std/srfi/160/cvector#c64vector-length _vs1230_))))
        (declare (not safe))
        (let _lp1236_ ((_i1238_ '0))
          (if (fx< _i1238_ _len1232_)
              (begin
                (std/srfi/160/cvector#c64vector-set!
                 _v1226_
                 _i1238_
                 (apply _f1225_
                        (map (lambda (_g12391241_)
                               (std/srfi/160/cvector#c64vector-ref
                                _g12391241_
                                _i1238_))
                             _vs1230_)))
                (_lp1236_ (fx+ _i1238_ '1)))
              _v1226_)))))
  (define std/srfi/160/c64#c64vector-map!
    (lambda _g5461_
      (let ((_g5460_ (let () (declare (not safe)) (##length _g5461_))))
        (cond ((let () (declare (not safe)) (##fx= _g5460_ 2))
               (apply std/srfi/160/c64#c64vector-map!__0 _g5461_))
              ((let () (declare (not safe)) (##fx>= _g5460_ 2))
               (apply std/srfi/160/c64#c64vector-map!__1 _g5461_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-map!
                _g5461_))))))
  (define std/srfi/160/c64#c64vector-for-each__0
    (lambda (_f1176_ _v1178_)
      (if (procedure? _f1176_)
          '#!void
          (error '"Bad argument; expected procedure" _f1176_))
      (let ((_len1181_ (std/srfi/160/cvector#c64vector-length _v1178_)))
        (declare (not safe))
        (let _lp1185_ ((_i1188_ '0))
          (if (fx< _i1188_ _len1181_)
              (begin
                (_f1176_ (std/srfi/160/cvector#c64vector-ref _v1178_ _i1188_))
                (_lp1185_ (fx+ _i1188_ '1)))
              '#!void)))))
  (define std/srfi/160/c64#c64vector-for-each__1
    (lambda (_f1191_ _v1192_ . _vs1193_)
      (let* ((_vs1196_ (cons _v1192_ _vs1193_))
             (_len1198_
              (apply fxmin
                     (map std/srfi/160/cvector#c64vector-length _vs1196_))))
        (declare (not safe))
        (let _lp1202_ ((_i1204_ '0))
          (if (fx< _i1204_ _len1198_)
              (begin
                (apply _f1191_
                       (map (lambda (_g12051207_)
                              (std/srfi/160/cvector#c64vector-ref
                               _g12051207_
                               _i1204_))
                            _vs1196_))
                (_lp1202_ (fx+ _i1204_ '1)))
              '#!void)))))
  (define std/srfi/160/c64#c64vector-for-each
    (lambda _g5463_
      (let ((_g5462_ (let () (declare (not safe)) (##length _g5463_))))
        (cond ((let () (declare (not safe)) (##fx= _g5462_ 2))
               (apply std/srfi/160/c64#c64vector-for-each__0 _g5463_))
              ((let () (declare (not safe)) (##fx>= _g5462_ 2))
               (apply std/srfi/160/c64#c64vector-for-each__1 _g5463_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-for-each
                _g5463_))))))
  (define std/srfi/160/c64#c64vector-count__0
    (lambda (_pred1139_ _v1141_)
      (if (procedure? _pred1139_)
          '#!void
          (error '"Bad argument; expected procedure" _pred1139_))
      (let ((_end1144_ (std/srfi/160/cvector#c64vector-length _v1141_)))
        (declare (not safe))
        (let _lp1148_ ((_i1151_ '0) (_r1153_ '0))
          (if (fx< _i1151_ _end1144_)
              (if (_pred1139_
                   (std/srfi/160/cvector#c64vector-ref _v1141_ _i1151_))
                  (_lp1148_ (fx+ _i1151_ '1) (fx+ _r1153_ '1))
                  (_lp1148_ (fx+ _i1151_ '1) _r1153_))
              _r1153_)))))
  (define std/srfi/160/c64#c64vector-count__1
    (lambda (_pred1156_ _v1157_ . _vs1158_)
      (if (procedure? _pred1156_)
          '#!void
          (error '"Bad argument; expected procedure" _pred1156_))
      (let* ((_vs1161_ (cons _v1157_ _vs1158_))
             (_end1163_
              (apply fxmin
                     (map std/srfi/160/cvector#c64vector-length _vs1161_))))
        (declare (not safe))
        (let _lp1167_ ((_i1169_ '0) (_r1170_ '0))
          (if (fx< _i1169_ _end1163_)
              (if (apply _pred1156_
                         (map (lambda (_g11711173_)
                                (std/srfi/160/cvector#c64vector-ref
                                 _g11711173_
                                 _i1169_))
                              _vs1161_))
                  (_lp1167_ (fx+ _i1169_ '1) (fx+ _r1170_ '1))
                  (_lp1167_ (fx+ _i1169_ '1) _r1170_))
              _r1170_)))))
  (define std/srfi/160/c64#c64vector-count
    (lambda _g5465_
      (let ((_g5464_ (let () (declare (not safe)) (##length _g5465_))))
        (cond ((let () (declare (not safe)) (##fx= _g5464_ 2))
               (apply std/srfi/160/c64#c64vector-count__0 _g5465_))
              ((let () (declare (not safe)) (##fx>= _g5464_ 2))
               (apply std/srfi/160/c64#c64vector-count__1 _g5465_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-count
                _g5465_))))))
  (define std/srfi/160/c64#c64vector-cumulate
    (lambda (_f1114_ _knil1116_ _v1118_)
      (if (procedure? _f1114_)
          '#!void
          (error '"Bad argument; expected procedure" _f1114_))
      (let* ((_len1121_ (std/srfi/160/cvector#c64vector-length _v1118_))
             (_r1124_ (let ((__obj5441
                             (make-object
                              std/srfi/160/cvector#c64vector::t
                              '1)))
                        (std/srfi/160/cvector#c64vector:::init!__0
                         __obj5441
                         _len1121_)
                        __obj5441)))
        (declare (not safe))
        (let _lp1129_ ((_i1132_ '0) (_r1134_ _knil1116_))
          (if (fx< _i1132_ _len1121_)
              (let ((_next1136_
                     (_f1114_ _r1134_
                              (std/srfi/160/cvector#c64vector-ref
                               _v1118_
                               _i1132_))))
                (std/srfi/160/cvector#c64vector-set!
                 _v1118_
                 _i1132_
                 _next1136_)
                (_lp1129_ (fx+ _i1132_ '1) _next1136_))
              _v1118_)))))
  (define std/srfi/160/c64#c64vector-take-while
    (lambda (_pred1097_ _v1099_)
      (let* ((_len1102_ (std/srfi/160/cvector#c64vector-length _v1099_))
             (_idx1105_
              (std/srfi/160/c64#c64vector-skip__0 _pred1097_ _v1099_))
             (_idx1111_
              (let ((_$e1108_ _idx1105_)) (if _$e1108_ _$e1108_ _len1102_))))
        (std/srfi/160/c64#c64vector-copy__% _v1099_ '0 _idx1111_))))
  (define std/srfi/160/c64#c64vector-take-while-right
    (lambda (_pred1083_ _v1085_)
      (let* ((_len1088_ (std/srfi/160/cvector#c64vector-length _v1085_))
             (_idx1091_
              (std/srfi/160/c64#c64vector-skip-right__0 _pred1083_ _v1085_))
             (_idx1094_ (if _idx1091_ (fx+ _idx1091_ '1) '0)))
        (std/srfi/160/c64#c64vector-copy__% _v1085_ _idx1094_ _len1088_))))
  (define std/srfi/160/c64#c64vector-drop-while
    (lambda (_pred1066_ _v1068_)
      (let* ((_len1071_ (std/srfi/160/cvector#c64vector-length _v1068_))
             (_idx1074_
              (std/srfi/160/c64#c64vector-skip__0 _pred1066_ _v1068_))
             (_idx1080_
              (let ((_$e1077_ _idx1074_)) (if _$e1077_ _$e1077_ _len1071_))))
        (std/srfi/160/c64#c64vector-copy__% _v1068_ _idx1080_ _len1071_))))
  (define std/srfi/160/c64#c64vector-drop-while-right
    (lambda (_pred1052_ _v1054_)
      (let* ((_len1057_ (std/srfi/160/cvector#c64vector-length _v1054_))
             (_idx1060_
              (std/srfi/160/c64#c64vector-skip-right__0 _pred1052_ _v1054_))
             (_idx1063_ (if _idx1060_ (fx+ _idx1060_ '1) '0)))
        (std/srfi/160/c64#c64vector-copy__% _v1054_ '0 _idx1063_))))
  (define std/srfi/160/c64#c64vector-index__0
    (lambda (_pred1018_ _v1020_)
      (if (procedure? _pred1018_)
          '#!void
          (error '"Bad argument; expected procedure" _pred1018_))
      (let ((_end1023_ (std/srfi/160/cvector#c64vector-length _v1020_)))
        (declare (not safe))
        (let _lp1027_ ((_i1030_ '0))
          (if (fx< _i1030_ _end1023_)
              (if (_pred1018_
                   (std/srfi/160/cvector#c64vector-ref _v1020_ _i1030_))
                  _i1030_
                  (_lp1027_ (fx+ _i1030_ '1)))
              '#f)))))
  (define std/srfi/160/c64#c64vector-index__1
    (lambda (_pred1033_ _v1034_ . _vs1035_)
      (if (procedure? _pred1033_)
          '#!void
          (error '"Bad argument; expected procedure" _pred1033_))
      (let* ((_vs1038_ (cons _v1034_ _vs1035_))
             (_end1040_
              (apply fxmin
                     (map std/srfi/160/cvector#c64vector-length _vs1038_))))
        (declare (not safe))
        (let _lp1044_ ((_i1046_ '0))
          (if (fx< _i1046_ _end1040_)
              (if (apply _pred1033_
                         (map (lambda (_g10471049_)
                                (std/srfi/160/cvector#c64vector-ref
                                 _g10471049_
                                 _i1046_))
                              _vs1038_))
                  _i1046_
                  (_lp1044_ (fx+ _i1046_ '1)))
              '#f)))))
  (define std/srfi/160/c64#c64vector-index
    (lambda _g5467_
      (let ((_g5466_ (let () (declare (not safe)) (##length _g5467_))))
        (cond ((let () (declare (not safe)) (##fx= _g5466_ 2))
               (apply std/srfi/160/c64#c64vector-index__0 _g5467_))
              ((let () (declare (not safe)) (##fx>= _g5466_ 2))
               (apply std/srfi/160/c64#c64vector-index__1 _g5467_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-index
                _g5467_))))))
  (define std/srfi/160/c64#c64vector-index-right__0
    (lambda (_pred984_ _v986_)
      (if (procedure? _pred984_)
          '#!void
          (error '"Bad argument; expected procedure" _pred984_))
      (let ((_start989_
             (fx- (std/srfi/160/cvector#c64vector-length _v986_) '1)))
        (declare (not safe))
        (let _lp993_ ((_i996_ _start989_))
          (if (fx>= _i996_ '0)
              (if (_pred984_
                   (std/srfi/160/cvector#c64vector-ref _v986_ _i996_))
                  _i996_
                  (_lp993_ (fx- _i996_ '1)))
              '#f)))))
  (define std/srfi/160/c64#c64vector-index-right__1
    (lambda (_pred999_ _v1000_ . _vs1001_)
      (if (procedure? _pred999_)
          '#!void
          (error '"Bad argument; expected procedure" _pred999_))
      (let* ((_vs1004_ (cons _v1000_ _vs1001_))
             (_start1006_
              (fx- (apply fxmin
                          (map std/srfi/160/cvector#c64vector-length _vs1004_))
                   '1)))
        (declare (not safe))
        (let _lp1010_ ((_i1012_ _start1006_))
          (if (fx>= _i1012_ '0)
              (if (apply _pred999_
                         (map (lambda (_g10131015_)
                                (std/srfi/160/cvector#c64vector-ref
                                 _g10131015_
                                 _i1012_))
                              _vs1004_))
                  _i1012_
                  (_lp1010_ (fx- _i1012_ '1)))
              '#f)))))
  (define std/srfi/160/c64#c64vector-index-right
    (lambda _g5469_
      (let ((_g5468_ (let () (declare (not safe)) (##length _g5469_))))
        (cond ((let () (declare (not safe)) (##fx= _g5468_ 2))
               (apply std/srfi/160/c64#c64vector-index-right__0 _g5469_))
              ((let () (declare (not safe)) (##fx>= _g5468_ 2))
               (apply std/srfi/160/c64#c64vector-index-right__1 _g5469_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-index-right
                _g5469_))))))
  (define std/srfi/160/c64#c64vector-skip__0
    (lambda (_pred968_ _v970_)
      (std/srfi/160/c64#c64vector-index__0
       (lambda (_$obj973_) (not (_pred968_ _$obj973_)))
       _v970_)))
  (define std/srfi/160/c64#c64vector-skip__1
    (lambda (_pred976_ _v977_ . _vs978_)
      (apply std/srfi/160/c64#c64vector-index
             (lambda (_$obj981_) (not (_pred976_ _$obj981_)))
             _v977_
             _vs978_)))
  (define std/srfi/160/c64#c64vector-skip
    (lambda _g5471_
      (let ((_g5470_ (let () (declare (not safe)) (##length _g5471_))))
        (cond ((let () (declare (not safe)) (##fx= _g5470_ 2))
               (apply std/srfi/160/c64#c64vector-skip__0 _g5471_))
              ((let () (declare (not safe)) (##fx>= _g5470_ 2))
               (apply std/srfi/160/c64#c64vector-skip__1 _g5471_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-skip
                _g5471_))))))
  (define std/srfi/160/c64#c64vector-skip-right__0
    (lambda (_pred952_ _v954_)
      (std/srfi/160/c64#c64vector-index-right__0
       (lambda (_$obj957_) (not (_pred952_ _$obj957_)))
       _v954_)))
  (define std/srfi/160/c64#c64vector-skip-right__1
    (lambda (_pred960_ _v961_ . _vs962_)
      (apply std/srfi/160/c64#c64vector-index-right
             (lambda (_$obj965_) (not (_pred960_ _$obj965_)))
             _v961_
             _vs962_)))
  (define std/srfi/160/c64#c64vector-skip-right
    (lambda _g5473_
      (let ((_g5472_ (let () (declare (not safe)) (##length _g5473_))))
        (cond ((let () (declare (not safe)) (##fx= _g5472_ 2))
               (apply std/srfi/160/c64#c64vector-skip-right__0 _g5473_))
              ((let () (declare (not safe)) (##fx>= _g5472_ 2))
               (apply std/srfi/160/c64#c64vector-skip-right__1 _g5473_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-skip-right
                _g5473_))))))
  (define std/srfi/160/c64#c64vector-any__0
    (lambda (_pred912_ _v914_)
      (if (procedure? _pred912_)
          '#!void
          (error '"Bad argument; expected procedure" _pred912_))
      (let ((_end917_ (std/srfi/160/cvector#c64vector-length _v914_)))
        (declare (not safe))
        (let _lp921_ ((_i924_ '0))
          (if (fx< _i924_ _end917_)
              (let ((_$e927_ (_pred912_
                              (std/srfi/160/cvector#c64vector-ref
                               _v914_
                               _i924_))))
                (if _$e927_ (values _$e927_) (_lp921_ (fx+ _i924_ '1))))
              '#f)))))
  (define std/srfi/160/c64#c64vector-any__1
    (lambda (_pred930_ _v931_ . _vs932_)
      (if (procedure? _pred930_)
          '#!void
          (error '"Bad argument; expected procedure" _pred930_))
      (let* ((_v935_ (cons _v931_ _vs932_))
             (_end937_
              (apply fxmin
                     (map std/srfi/160/cvector#c64vector-length _vs932_))))
        (declare (not safe))
        (let _lp941_ ((_i943_ '0))
          (if (fx< _i943_ _end937_)
              (let ((_$e949_ (apply _pred930_
                                    (map (lambda (_g944946_)
                                           (std/srfi/160/cvector#c64vector-ref
                                            _g944946_
                                            _i943_))
                                         _vs932_))))
                (if _$e949_ (values _$e949_) (_lp941_ (fx+ _i943_ '1))))
              '#f)))))
  (define std/srfi/160/c64#c64vector-any
    (lambda _g5475_
      (let ((_g5474_ (let () (declare (not safe)) (##length _g5475_))))
        (cond ((let () (declare (not safe)) (##fx= _g5474_ 2))
               (apply std/srfi/160/c64#c64vector-any__0 _g5475_))
              ((let () (declare (not safe)) (##fx>= _g5474_ 2))
               (apply std/srfi/160/c64#c64vector-any__1 _g5475_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-any
                _g5475_))))))
  (define std/srfi/160/c64#c64vector-every__0
    (lambda (_pred861_ _v863_)
      (if (procedure? _pred861_)
          '#!void
          (error '"Bad argument; expected procedure" _pred861_))
      (let ((_end866_ (std/srfi/160/cvector#c64vector-length _v863_)))
        (declare (not safe))
        (let _lp870_ ((_i873_ '0) (_r875_ '#t))
          (if (fx< _i873_ _end866_)
              (let ((_$e878_ (_pred861_
                              (std/srfi/160/cvector#c64vector-ref
                               _v863_
                               _i873_))))
                (if _$e878_
                    ((lambda (_g880882_) (_lp870_ (fx+ _i873_ '1) _g880882_))
                     _$e878_)
                    '#f))
              _r875_)))))
  (define std/srfi/160/c64#c64vector-every__1
    (lambda (_pred885_ _v886_ . _vs887_)
      (if (procedure? _pred885_)
          '#!void
          (error '"Bad argument; expected procedure" _pred885_))
      (let* ((_v890_ (cons _v886_ _vs887_))
             (_end892_
              (apply fxmin
                     (map std/srfi/160/cvector#c64vector-length _vs887_))))
        (declare (not safe))
        (let _lp896_ ((_i898_ '0) (_r899_ '#t))
          (if (fx< _i898_ _end892_)
              (let ((_$e905_ (apply _pred885_
                                    (map (lambda (_g900902_)
                                           (std/srfi/160/cvector#c64vector-ref
                                            _g900902_
                                            _i898_))
                                         _vs887_))))
                (if _$e905_
                    ((lambda (_g907909_) (_lp896_ (fx+ _i898_ '1) _g907909_))
                     _$e905_)
                    '#f))
              _r899_)))))
  (define std/srfi/160/c64#c64vector-every
    (lambda _g5477_
      (let ((_g5476_ (let () (declare (not safe)) (##length _g5477_))))
        (cond ((let () (declare (not safe)) (##fx= _g5476_ 2))
               (apply std/srfi/160/c64#c64vector-every__0 _g5477_))
              ((let () (declare (not safe)) (##fx>= _g5476_ 2))
               (apply std/srfi/160/c64#c64vector-every__1 _g5477_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-every
                _g5477_))))))
  (define std/srfi/160/c64#c64vector-partition
    (lambda (_pred832_ _v834_)
      (let* ((_count837_
              (std/srfi/160/c64#c64vector-count__0 _pred832_ _v834_))
             (_len840_ (std/srfi/160/cvector#c64vector-length _v834_))
             (_u843_ (let ((__obj5442
                            (make-object
                             std/srfi/160/cvector#c64vector::t
                             '1)))
                       (std/srfi/160/cvector#c64vector:::init!__0
                        __obj5442
                        _len840_)
                       __obj5442)))
        (declare (not safe))
        (let _lp848_ ((_i851_ '0) (_left853_ '0) (_right855_ _count837_))
          (if (fx< _i851_ _len840_)
              (let ((_x858_ (std/srfi/160/cvector#c64vector-ref
                             _v834_
                             _i851_)))
                (if (_pred832_ _x858_)
                    (begin
                      (std/srfi/160/cvector#c64vector-set!
                       _u843_
                       _left853_
                       _x858_)
                      (_lp848_ (fx+ _i851_ '1) (fx+ _left853_ '1) _right855_))
                    (begin
                      (std/srfi/160/cvector#c64vector-set!
                       _u843_
                       _right855_
                       _x858_)
                      (_lp848_ (fx+ _i851_ '1)
                               _left853_
                               (fx+ _right855_ '1)))))
              _u843_)))))
  (define std/srfi/160/c64#c64vector-filter
    (lambda (_pred805_ _v807_)
      (let* ((_count810_
              (std/srfi/160/c64#c64vector-count__0 _pred805_ _v807_))
             (_u813_ (let ((__obj5443
                            (make-object
                             std/srfi/160/cvector#c64vector::t
                             '1)))
                       (std/srfi/160/cvector#c64vector:::init!__0
                        __obj5443
                        _count810_)
                       __obj5443))
             (_end816_ (std/srfi/160/cvector#c64vector-length _v807_)))
        (declare (not safe))
        (let _lp821_ ((_i824_ '0) (_j826_ '0))
          (if (fx< _i824_ _end816_)
              (let ((_x829_ (std/srfi/160/cvector#c64vector-ref
                             _v807_
                             _i824_)))
                (if (_pred805_ _x829_)
                    (begin
                      (std/srfi/160/cvector#c64vector-set!
                       _u813_
                       _j826_
                       _x829_)
                      (_lp821_ (fx+ _i824_ '1) (fx+ _j826_ '1)))
                    (_lp821_ (fx+ _i824_ '1) _j826_)))
              _u813_)))))
  (define std/srfi/160/c64#c64vector-remove
    (lambda (_pred797_ _v799_)
      (std/srfi/160/c64#c64vector-filter
       (lambda (_$obj802_) (not (_pred797_ _$obj802_)))
       _v799_)))
  (define std/srfi/160/c64#c64vector-swap
    (lambda (_v784_ _i786_ _j788_)
      (let ((_iv791_ (std/srfi/160/cvector#c64vector-ref _v784_ _i786_))
            (_jv793_ (std/srfi/160/cvector#c64vector-ref _v784_ _j788_)))
        (declare (not safe))
        (begin
          (std/srfi/160/cvector#c64vector-set! _v784_ _i786_ _jv793_)
          (std/srfi/160/cvector#c64vector-set! _v784_ _j788_ _iv791_)))))
  (define std/srfi/160/c64#c64vector-fill!__%
    (lambda (_v747_ _fill749_ _start751_ _end753_)
      (declare (not safe))
      (begin
        (if (##structure-direct-instance-of?
             _v747_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _v747_))
        (if (std/srfi/160/base#c64? _fill749_)
            '#!void
            (error '"Bad argument" _fill749_))
        (if (and (fixnum? _start751_)
                 (fx<= '0
                       _start751_
                       (fx- (std/srfi/160/cvector#c64vector-length _v747_)
                            '1)))
            '#!void
            (error '"Index out of range" _start751_))
        (if (and (fixnum? _end753_)
                 (fx<= _start751_
                       _end753_
                       (std/srfi/160/cvector#c64vector-length _v747_)))
            '#!void
            (error '"Index out of range" _end753_))
        (let _lp757_ ((_i760_ _start751_))
          (if (fx< _i760_ _end753_)
              (begin
                (std/srfi/160/cvector#c64vector-set! _v747_ _i760_ _fill749_)
                (_lp757_ (fx+ _i760_ '1)))
              '#!void)))))
  (define std/srfi/160/c64#c64vector-fill!__0
    (lambda (_v766_ _fill767_)
      (let* ((_start769_ '0)
             (_end771_ (std/srfi/160/cvector#c64vector-length _v766_)))
        (std/srfi/160/c64#c64vector-fill!__%
         _v766_
         _fill767_
         _start769_
         _end771_))))
  (define std/srfi/160/c64#c64vector-fill!__1
    (lambda (_v773_ _fill774_ _start775_)
      (let ((_end777_ (std/srfi/160/cvector#c64vector-length _v773_)))
        (std/srfi/160/c64#c64vector-fill!__%
         _v773_
         _fill774_
         _start775_
         _end777_))))
  (define std/srfi/160/c64#c64vector-fill!
    (lambda _g5479_
      (let ((_g5478_ (let () (declare (not safe)) (##length _g5479_))))
        (cond ((let () (declare (not safe)) (##fx= _g5478_ 2))
               (apply std/srfi/160/c64#c64vector-fill!__0 _g5479_))
              ((let () (declare (not safe)) (##fx= _g5478_ 3))
               (apply std/srfi/160/c64#c64vector-fill!__1 _g5479_))
              ((let () (declare (not safe)) (##fx= _g5478_ 4))
               (apply std/srfi/160/c64#c64vector-fill!__% _g5479_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-fill!
                _g5479_))))))
  (define std/srfi/160/c64#c64vector-reverse!__%
    (lambda (_v707_ _start709_ _end711_)
      (declare (not safe))
      (begin
        (if (##structure-direct-instance-of?
             _v707_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _v707_))
        (if (and (fixnum? _start709_)
                 (fx<= '0
                       _start709_
                       (fx- (std/srfi/160/cvector#c64vector-length _v707_)
                            '1)))
            '#!void
            (error '"Index out of range" _start709_))
        (if (and (fixnum? _end711_)
                 (fx<= _start709_
                       _end711_
                       (std/srfi/160/cvector#c64vector-length _v707_)))
            '#!void
            (error '"Index out of range" _end711_))
        (let _lp715_ ((_i718_ _start709_) (_j720_ (fx- _end711_ '1)))
          (if (fx< _i718_ _j720_)
              (let ((_iv723_ (std/srfi/160/cvector#c64vector-ref
                              _v707_
                              _i718_))
                    (_jv725_ (std/srfi/160/cvector#c64vector-ref
                              _v707_
                              _j720_)))
                (std/srfi/160/cvector#c64vector-set! _v707_ _i718_ _jv725_)
                (std/srfi/160/cvector#c64vector-set! _v707_ _j720_ _iv723_)
                (_lp715_ (fx+ _i718_ '1) (fx- _j720_ '1)))
              '#!void)))))
  (define std/srfi/160/c64#c64vector-reverse!__0
    (lambda (_v731_)
      (let* ((_start733_ '0)
             (_end735_ (std/srfi/160/cvector#c64vector-length _v731_)))
        (std/srfi/160/c64#c64vector-reverse!__% _v731_ _start733_ _end735_))))
  (define std/srfi/160/c64#c64vector-reverse!__1
    (lambda (_v737_ _start738_)
      (let ((_end740_ (std/srfi/160/cvector#c64vector-length _v737_)))
        (std/srfi/160/c64#c64vector-reverse!__% _v737_ _start738_ _end740_))))
  (define std/srfi/160/c64#c64vector-reverse!
    (lambda _g5481_
      (let ((_g5480_ (let () (declare (not safe)) (##length _g5481_))))
        (cond ((let () (declare (not safe)) (##fx= _g5480_ 1))
               (apply std/srfi/160/c64#c64vector-reverse!__0 _g5481_))
              ((let () (declare (not safe)) (##fx= _g5480_ 2))
               (apply std/srfi/160/c64#c64vector-reverse!__1 _g5481_))
              ((let () (declare (not safe)) (##fx= _g5480_ 3))
               (apply std/srfi/160/c64#c64vector-reverse!__% _g5481_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector-reverse!
                _g5481_))))))
  (define std/srfi/160/c64#c64vector-unfold!
    (lambda (_f682_ _v684_ _start686_ _end688_ _seed690_)
      (declare (not safe))
      (begin
        (if (procedure? _f682_)
            '#!void
            (error '"Bad argument; expected procedure" _f682_))
        (if (##structure-direct-instance-of?
             _v684_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _v684_))
        (if (and (fixnum? _start686_)
                 (fx<= '0
                       _start686_
                       (fx- (std/srfi/160/cvector#c64vector-length _v684_)
                            '1)))
            '#!void
            (error '"Index out of range" _start686_))
        (if (and (fixnum? _end688_)
                 (fx<= _start686_
                       _end688_
                       (std/srfi/160/cvector#c64vector-length _v684_)))
            '#!void
            (error '"Index out of range" _end688_))
        (let _lp694_ ((_i697_ _start686_) (_state699_ _seed690_))
          (if (fx< _i697_ _end688_)
              (let ((_g5482_ (_f682_ _state699_)))
                (begin
                  (let ((_g5483_ (if (##values? _g5482_)
                                     (##vector-length _g5482_)
                                     1)))
                    (if (not (##fx= _g5483_ 2))
                        (error "Context expects 2 values" _g5483_)))
                  (let ((_x702_ (##vector-ref _g5482_ 0))
                        (_state704_ (##vector-ref _g5482_ 1)))
                    (begin
                      (std/srfi/160/cvector#c64vector-set!
                       _v684_
                       _i697_
                       _x702_)
                      (_lp694_ (fx+ _i697_ '1) _state704_)))))
              '#!void)))))
  (define std/srfi/160/c64#c64vector-unfold-right!
    (lambda (_f658_ _v660_ _start662_ _end664_ _seed666_)
      (declare (not safe))
      (begin
        (if (procedure? _f658_)
            '#!void
            (error '"Bad argument; expected procedure" _f658_))
        (if (##structure-direct-instance-of?
             _v660_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _v660_))
        (if (and (fixnum? _start662_)
                 (fx<= '0
                       _start662_
                       (fx- (std/srfi/160/cvector#c64vector-length _v660_)
                            '1)))
            '#!void
            (error '"Index out of range" _start662_))
        (if (and (fixnum? _end664_)
                 (fx<= _start662_
                       _end664_
                       (std/srfi/160/cvector#c64vector-length _v660_)))
            '#!void
            (error '"Index out of range" _end664_))
        (let _lp670_ ((_i673_ (fx- _end664_ '1)) (_state675_ _seed666_))
          (if (fx>= _i673_ _start662_)
              (let ((_g5484_ (_f658_ _state675_)))
                (begin
                  (let ((_g5485_ (if (##values? _g5484_)
                                     (##vector-length _g5484_)
                                     1)))
                    (if (not (##fx= _g5485_ 2))
                        (error "Context expects 2 values" _g5485_)))
                  (let ((_x678_ (##vector-ref _g5484_ 0))
                        (_state680_ (##vector-ref _g5484_ 1)))
                    (begin
                      (std/srfi/160/cvector#c64vector-set!
                       _v660_
                       _i673_
                       _x678_)
                      (_lp670_ (fx- _i673_ '1) _state680_)))))
              '#!void)))))
  (define std/srfi/160/c64#reverse-c64vector->list__%
    (lambda (_v624_ _start626_ _end628_)
      (declare (not safe))
      (begin
        (if (##structure-direct-instance-of?
             _v624_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _v624_))
        (if (and (fixnum? _start626_)
                 (fx<= '0
                       _start626_
                       (fx- (std/srfi/160/cvector#c64vector-length _v624_)
                            '1)))
            '#!void
            (error '"Index out of range" _start626_))
        (if (and (fixnum? _end628_)
                 (fx<= _start626_
                       _end628_
                       (std/srfi/160/cvector#c64vector-length _v624_)))
            '#!void
            (error '"Index out of range" _end628_))
        (let _lp632_ ((_i635_ _start626_) (_r637_ '()))
          (if (fx< _i635_ _end628_)
              (_lp632_ (fx+ _i635_ '1)
                       (cons (std/srfi/160/cvector#c64vector-ref _v624_ _i635_)
                             _r637_))
              _r637_)))))
  (define std/srfi/160/c64#reverse-c64vector->list__0
    (lambda (_v643_)
      (let* ((_start645_ '0)
             (_end647_ (std/srfi/160/cvector#c64vector-length _v643_)))
        (std/srfi/160/c64#reverse-c64vector->list__%
         _v643_
         _start645_
         _end647_))))
  (define std/srfi/160/c64#reverse-c64vector->list__1
    (lambda (_v649_ _start650_)
      (let ((_end652_ (std/srfi/160/cvector#c64vector-length _v649_)))
        (std/srfi/160/c64#reverse-c64vector->list__%
         _v649_
         _start650_
         _end652_))))
  (define std/srfi/160/c64#reverse-c64vector->list
    (lambda _g5487_
      (let ((_g5486_ (let () (declare (not safe)) (##length _g5487_))))
        (cond ((let () (declare (not safe)) (##fx= _g5486_ 1))
               (apply std/srfi/160/c64#reverse-c64vector->list__0 _g5487_))
              ((let () (declare (not safe)) (##fx= _g5486_ 2))
               (apply std/srfi/160/c64#reverse-c64vector->list__1 _g5487_))
              ((let () (declare (not safe)) (##fx= _g5486_ 3))
               (apply std/srfi/160/c64#reverse-c64vector->list__% _g5487_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#reverse-c64vector->list
                _g5487_))))))
  (define std/srfi/160/c64#reverse-list->c64vector
    (lambda (_lst570_)
      (let* ((_len573_ (length _lst570_))
             (_v576_ (let ((__obj5444
                            (make-object
                             std/srfi/160/cvector#c64vector::t
                             '1)))
                       (std/srfi/160/cvector#c64vector:::init!__0
                        __obj5444
                        _len573_)
                       __obj5444)))
        (declare (not safe))
        (let _lp581_ ((_rest584_ _lst570_) (_i586_ '0))
          (let* ((_rest588596_ _rest584_)
                 (_else590604_ (lambda () _v576_))
                 (_K592611_
                  (lambda (_rest607_ _x608_)
                    (if (std/srfi/160/base#c64? _x608_)
                        '#!void
                        (error '"Bad element" _x608_))
                    (std/srfi/160/cvector#c64vector-set! _v576_ _i586_ _x608_)
                    (_lp581_ _rest607_ (fx+ _i586_ '1)))))
            (if (##pair? _rest588596_)
                (let ((_hd593614_ (##car _rest588596_))
                      (_tl594616_ (##cdr _rest588596_)))
                  (let* ((_x619_ _hd593614_) (_rest621_ _tl594616_))
                    (_K592611_ _rest621_ _x619_)))
                (_else590604_)))))))
  (define std/srfi/160/c64#c64vector->vector__%
    (lambda (_v531_ _start533_ _end535_)
      (declare (not safe))
      (begin
        (if (##structure-direct-instance-of?
             _v531_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _v531_))
        (if (and (fixnum? _start533_)
                 (fx<= '0
                       _start533_
                       (fx- (std/srfi/160/cvector#c64vector-length _v531_)
                            '1)))
            '#!void
            (error '"Index out of range" _start533_))
        (if (and (fixnum? _end535_)
                 (fx<= _start533_
                       _end535_
                       (std/srfi/160/cvector#c64vector-length _v531_)))
            '#!void
            (error '"Index out of range" _end535_))
        (let* ((_len539_ (std/srfi/160/cvector#c64vector-length _v531_))
               (_u542_ (make-vector _len539_)))
          (let _lp546_ ((_i549_ '0))
            (if (fx< _i549_ _len539_)
                (begin
                  (vector-set!
                   _u542_
                   _i549_
                   (std/srfi/160/cvector#c64vector-ref _v531_ _i549_))
                  (_lp546_ (fx+ _i549_ '1)))
                _u542_))))))
  (define std/srfi/160/c64#c64vector->vector__0
    (lambda (_v555_)
      (let* ((_start557_ '0)
             (_end559_ (std/srfi/160/cvector#c64vector-length _v555_)))
        (std/srfi/160/c64#c64vector->vector__% _v555_ _start557_ _end559_))))
  (define std/srfi/160/c64#c64vector->vector__1
    (lambda (_v561_ _start562_)
      (let ((_end564_ (std/srfi/160/cvector#c64vector-length _v561_)))
        (std/srfi/160/c64#c64vector->vector__% _v561_ _start562_ _end564_))))
  (define std/srfi/160/c64#c64vector->vector
    (lambda _g5489_
      (let ((_g5488_ (let () (declare (not safe)) (##length _g5489_))))
        (cond ((let () (declare (not safe)) (##fx= _g5488_ 1))
               (apply std/srfi/160/c64#c64vector->vector__0 _g5489_))
              ((let () (declare (not safe)) (##fx= _g5488_ 2))
               (apply std/srfi/160/c64#c64vector->vector__1 _g5489_))
              ((let () (declare (not safe)) (##fx= _g5488_ 3))
               (apply std/srfi/160/c64#c64vector->vector__% _g5489_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#c64vector->vector
                _g5489_))))))
  (define std/srfi/160/c64#vector->c64vector__%
    (lambda (_v491_ _start493_ _end495_)
      (declare (not safe))
      (begin
        (if (vector? _v491_)
            '#!void
            (error '"Bad argument; expected vector" _v491_))
        (if (and (fixnum? _start493_)
                 (fx<= '0 _start493_ (fx- (vector-length _v491_) '1)))
            '#!void
            (error '"Index out of range" _start493_))
        (if (and (fixnum? _end495_)
                 (fx<= _start493_ _end495_ (vector-length _v491_)))
            '#!void
            (error '"Index out of range" _end495_))
        (let* ((_len499_ (vector-length _v491_))
               (_u502_ (let ((__obj5445
                              (make-object
                               std/srfi/160/cvector#c64vector::t
                               '1)))
                         (std/srfi/160/cvector#c64vector:::init!__0
                          __obj5445
                          _len499_)
                         __obj5445)))
          (let _lp506_ ((_i509_ '0))
            (if (fx< _i509_ _len499_)
                (begin
                  (std/srfi/160/cvector#c64vector-set!
                   _u502_
                   _i509_
                   (vector-ref _v491_ _i509_))
                  (_lp506_ (fx+ _i509_ '1)))
                _u502_))))))
  (define std/srfi/160/c64#vector->c64vector__0
    (lambda (_v515_)
      (let* ((_start517_ '0) (_end519_ (vector-length _v515_)))
        (std/srfi/160/c64#vector->c64vector__% _v515_ _start517_ _end519_))))
  (define std/srfi/160/c64#vector->c64vector__1
    (lambda (_v521_ _start522_)
      (let ((_end524_ (vector-length _v521_)))
        (std/srfi/160/c64#vector->c64vector__% _v521_ _start522_ _end524_))))
  (define std/srfi/160/c64#vector->c64vector
    (lambda _g5491_
      (let ((_g5490_ (let () (declare (not safe)) (##length _g5491_))))
        (cond ((let () (declare (not safe)) (##fx= _g5490_ 1))
               (apply std/srfi/160/c64#vector->c64vector__0 _g5491_))
              ((let () (declare (not safe)) (##fx= _g5490_ 2))
               (apply std/srfi/160/c64#vector->c64vector__1 _g5491_))
              ((let () (declare (not safe)) (##fx= _g5490_ 3))
               (apply std/srfi/160/c64#vector->c64vector__% _g5491_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#vector->c64vector
                _g5491_))))))
  (define std/srfi/160/c64#make-c64vector-generator__%
    (lambda (_v457_ _start459_ _end461_)
      (declare (not safe))
      (begin
        (if (##structure-direct-instance-of?
             _v457_
             'std/srfi/160/cvector#c64vector::t)
            '#!void
            (error '"Bad argument" _v457_))
        (if (and (fixnum? _start459_)
                 (fx<= '0
                       _start459_
                       (fx- (std/srfi/160/cvector#c64vector-length _v457_)
                            '1)))
            '#!void
            (error '"Index out of range" _start459_))
        (if (and (fixnum? _end461_)
                 (fx<= _start459_
                       _end461_
                       (std/srfi/160/cvector#c64vector-length _v457_)))
            '#!void
            (error '"Index out of range" _end461_))
        (let ((_i465_ _start459_))
          (lambda ()
            (if (fx< _i465_ _end461_)
                (let ((_next469_
                       (std/srfi/160/cvector#c64vector-ref _v457_ _i465_)))
                  (set! _i465_ (fx+ _i465_ '1))
                  _next469_)
                '#!eof))))))
  (define std/srfi/160/c64#make-c64vector-generator__0
    (lambda (_v475_)
      (let* ((_start477_ '0)
             (_end479_ (std/srfi/160/cvector#c64vector-length _v475_)))
        (std/srfi/160/c64#make-c64vector-generator__%
         _v475_
         _start477_
         _end479_))))
  (define std/srfi/160/c64#make-c64vector-generator__1
    (lambda (_v481_ _start482_)
      (let ((_end484_ (std/srfi/160/cvector#c64vector-length _v481_)))
        (std/srfi/160/c64#make-c64vector-generator__%
         _v481_
         _start482_
         _end484_))))
  (define std/srfi/160/c64#make-c64vector-generator
    (lambda _g5493_
      (let ((_g5492_ (let () (declare (not safe)) (##length _g5493_))))
        (cond ((let () (declare (not safe)) (##fx= _g5492_ 1))
               (apply std/srfi/160/c64#make-c64vector-generator__0 _g5493_))
              ((let () (declare (not safe)) (##fx= _g5492_ 2))
               (apply std/srfi/160/c64#make-c64vector-generator__1 _g5493_))
              ((let () (declare (not safe)) (##fx= _g5492_ 3))
               (apply std/srfi/160/c64#make-c64vector-generator__% _g5493_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#make-c64vector-generator
                _g5493_))))))
  (define std/srfi/160/c64#c64vector-comparator
    (let ()
      (letrec ((_<?428_ (lambda (_a431_ _b433_)
                          (let ((_len-a436_
                                 (std/srfi/160/cvector#c64vector-length
                                  _a431_))
                                (_len-b438_
                                 (std/srfi/160/cvector#c64vector-length
                                  _b433_)))
                            (declare (not safe))
                            (if (fx< _len-a436_ _len-b438_)
                                '#t
                                (if (fx> _len-a436_ _len-b438_)
                                    '#f
                                    (let ((_end442_ _len-a436_))
                                      (let _lp445_ ((_i448_ '0))
                                        (if (fx< _i448_ _end442_)
                                            (let ((_x451_ (std/srfi/160/cvector#c64vector-ref
                                                           _a431_
                                                           _i448_))
                                                  (_y453_ (std/srfi/160/cvector#c64vector-ref
                                                           _b433_
                                                           _i448_)))
                                              (if (< _x451_ _y453_)
                                                  '#t
                                                  (if (> _x451_ _y453_)
                                                      '#f
                                                      (_lp445_ (fx+ _i448_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '1)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            '#f)))))))))
        (let ()
          (declare (not safe))
          (##structure
           std/srfi/128#comparator::t
           std/srfi/160/cvector#c64vector?
           std/srfi/160/c64#c64vector=
           _<?428_
           equal?-hash)))))
  (define std/srfi/160/c64#write-c64vector__%
    (lambda (_v405_ _port407_)
      (let ((_$e410_ (find-method _v405_ ':write)))
        (if _$e410_
            ((lambda (_g412414_) (_g412414_ _v405_ _port407_)) _$e410_)
            (write _v405_ (current-output-port))))))
  (define std/srfi/160/c64#write-c64vector__0
    (lambda (_v420_)
      (let ((_port422_ (current-output-port)))
        (std/srfi/160/c64#write-c64vector__% _v420_ _port422_))))
  (define std/srfi/160/c64#write-c64vector
    (lambda _g5495_
      (let ((_g5494_ (let () (declare (not safe)) (##length _g5495_))))
        (cond ((let () (declare (not safe)) (##fx= _g5494_ 1))
               (apply std/srfi/160/c64#write-c64vector__0 _g5495_))
              ((let () (declare (not safe)) (##fx= _g5494_ 2))
               (apply std/srfi/160/c64#write-c64vector__% _g5495_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/c64#write-c64vector
                _g5495_)))))))
