(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/misc/func#repeat
    (lambda (_v-or-fn2883_ _n-times2884_ . _args2885_)
      (declare (fixnum) (not safe))
      (begin
        (if (fixnum? _n-times2884_)
            '#!void
            (error '"Bad argument; expected fixnum" _n-times2884_))
        (if (procedure? _v-or-fn2883_)
            (let ((_fn2889_
                   (if (null? _args2885_)
                       _v-or-fn2883_
                       (lambda () (apply _v-or-fn2883_ _args2885_)))))
              (let _lp2891_ ((_i2893_ '0) (_acc2894_ '()))
                (if (< _i2893_ _n-times2884_)
                    (_lp2891_ (+ _i2893_ '1) (cons (_fn2889_) _acc2894_))
                    (reverse _acc2894_))))
            (let _lp2896_ ((_i2898_ '0) (_acc2899_ '()))
              (if (< _i2898_ _n-times2884_)
                  (_lp2896_ (+ _i2898_ '1) (cons _v-or-fn2883_ _acc2899_))
                  _acc2899_))))))
  (define std/misc/func#always
    (lambda (_v-or-fn2879_ . _args2880_)
      (lambda ()
        (if (procedure? _v-or-fn2879_)
            (apply _v-or-fn2879_ _args2880_)
            _v-or-fn2879_))))
  (define std/misc/func#compose1__0 (lambda () identity))
  (define std/misc/func#compose1__1 (lambda (_f2868_) _f2868_))
  (define std/misc/func#compose1__2
    (lambda (_f12870_ _f22871_)
      (lambda (_x2873_) (_f12870_ (_f22871_ _x2873_)))))
  (define std/misc/func#compose1__3
    (lambda (_f12875_ _f22876_ . _rest2877_)
      (apply std/misc/func#rcompose1
             (reverse (cons _f12875_ (cons _f22876_ _rest2877_))))))
  (define std/misc/func#compose1
    (lambda _g7189_
      (let ((_g7188_ (let () (declare (not safe)) (##length _g7189_))))
        (cond ((let () (declare (not safe)) (##fx= _g7188_ 0))
               (apply std/misc/func#compose1__0 _g7189_))
              ((let () (declare (not safe)) (##fx= _g7188_ 1))
               (apply std/misc/func#compose1__1 _g7189_))
              ((let () (declare (not safe)) (##fx= _g7188_ 2))
               (apply std/misc/func#compose1__2 _g7189_))
              ((let () (declare (not safe)) (##fx>= _g7188_ 2))
               (apply std/misc/func#compose1__3 _g7189_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/misc/func#compose1
                _g7189_))))))
  (define std/misc/func#rcompose1__0 (lambda () identity))
  (define std/misc/func#rcompose1__1 (lambda (_f2856_) _f2856_))
  (define std/misc/func#rcompose1__2
    (lambda (_f12858_ _f22859_)
      (lambda (_x2861_) (_f22859_ (_f12858_ _x2861_)))))
  (define std/misc/func#rcompose1__3
    (lambda (_f12863_ _f22864_ . _rest2865_)
      (std/misc/func#rcompose1__2
       _f12863_
       (apply std/misc/func#rcompose1 _f22864_ _rest2865_))))
  (define std/misc/func#rcompose1
    (lambda _g7191_
      (let ((_g7190_ (let () (declare (not safe)) (##length _g7191_))))
        (cond ((let () (declare (not safe)) (##fx= _g7190_ 0))
               (apply std/misc/func#rcompose1__0 _g7191_))
              ((let () (declare (not safe)) (##fx= _g7190_ 1))
               (apply std/misc/func#rcompose1__1 _g7191_))
              ((let () (declare (not safe)) (##fx= _g7190_ 2))
               (apply std/misc/func#rcompose1__2 _g7191_))
              ((let () (declare (not safe)) (##fx>= _g7190_ 2))
               (apply std/misc/func#rcompose1__3 _g7191_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/misc/func#rcompose1
                _g7191_))))))
  (define std/misc/func#compose__0 (lambda () identity))
  (define std/misc/func#compose__1 (lambda (_f2844_) _f2844_))
  (define std/misc/func#compose__2
    (lambda (_f12846_ _f22847_)
      (lambda _args2849_ (_f12846_ (apply _f22847_ _args2849_)))))
  (define std/misc/func#compose__3
    (lambda (_f12851_ _f22852_ . _rest2853_)
      (apply std/misc/func#rcompose
             (reverse (cons _f12851_ (cons _f22852_ _rest2853_))))))
  (define std/misc/func#compose
    (lambda _g7193_
      (let ((_g7192_ (let () (declare (not safe)) (##length _g7193_))))
        (cond ((let () (declare (not safe)) (##fx= _g7192_ 0))
               (apply std/misc/func#compose__0 _g7193_))
              ((let () (declare (not safe)) (##fx= _g7192_ 1))
               (apply std/misc/func#compose__1 _g7193_))
              ((let () (declare (not safe)) (##fx= _g7192_ 2))
               (apply std/misc/func#compose__2 _g7193_))
              ((let () (declare (not safe)) (##fx>= _g7192_ 2))
               (apply std/misc/func#compose__3 _g7193_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/misc/func#compose
                _g7193_))))))
  (define std/misc/func#rcompose__0 (lambda () identity))
  (define std/misc/func#rcompose__1 (lambda (_f2832_) _f2832_))
  (define std/misc/func#rcompose__2
    (lambda (_f12834_ _f22835_)
      (lambda _args2837_ (_f22835_ (apply _f12834_ _args2837_)))))
  (define std/misc/func#rcompose__3
    (lambda (_f12839_ _f22840_ . _rest2841_)
      (std/misc/func#rcompose__2
       _f12839_
       (apply std/misc/func#rcompose _f22840_ _rest2841_))))
  (define std/misc/func#rcompose
    (lambda _g7195_
      (let ((_g7194_ (let () (declare (not safe)) (##length _g7195_))))
        (cond ((let () (declare (not safe)) (##fx= _g7194_ 0))
               (apply std/misc/func#rcompose__0 _g7195_))
              ((let () (declare (not safe)) (##fx= _g7194_ 1))
               (apply std/misc/func#rcompose__1 _g7195_))
              ((let () (declare (not safe)) (##fx= _g7194_ 2))
               (apply std/misc/func#rcompose__2 _g7195_))
              ((let () (declare (not safe)) (##fx>= _g7194_ 2))
               (apply std/misc/func#rcompose__3 _g7195_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/misc/func#rcompose
                _g7195_))))))
  (define std/misc/func#compose/values__0 (lambda () values))
  (define std/misc/func#compose/values__1 (lambda (_f2819_) _f2819_))
  (define std/misc/func#compose/values__2
    (lambda (_f12821_ _f22822_)
      (lambda _args2824_
        (call-with-values (lambda () (apply _f22822_ _args2824_)) _f12821_))))
  (define std/misc/func#compose/values__3
    (lambda (_f12827_ _f22828_ . _rest2829_)
      (apply std/misc/func#rcompose/values
             (reverse (cons _f12827_ (cons _f22828_ _rest2829_))))))
  (define std/misc/func#compose/values
    (lambda _g7197_
      (let ((_g7196_ (let () (declare (not safe)) (##length _g7197_))))
        (cond ((let () (declare (not safe)) (##fx= _g7196_ 0))
               (apply std/misc/func#compose/values__0 _g7197_))
              ((let () (declare (not safe)) (##fx= _g7196_ 1))
               (apply std/misc/func#compose/values__1 _g7197_))
              ((let () (declare (not safe)) (##fx= _g7196_ 2))
               (apply std/misc/func#compose/values__2 _g7197_))
              ((let () (declare (not safe)) (##fx>= _g7196_ 2))
               (apply std/misc/func#compose/values__3 _g7197_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/misc/func#compose/values
                _g7197_))))))
  (define std/misc/func#rcompose/values__0 (lambda () values))
  (define std/misc/func#rcompose/values__1 (lambda (_f2806_) _f2806_))
  (define std/misc/func#rcompose/values__2
    (lambda (_f12808_ _f22809_)
      (lambda _args2811_
        (call-with-values (lambda () (apply _f12808_ _args2811_)) _f22809_))))
  (define std/misc/func#rcompose/values__3
    (lambda (_f12814_ _f22815_ . _rest2816_)
      (std/misc/func#rcompose/values__2
       _f12814_
       (apply std/misc/func#rcompose/values _f22815_ _rest2816_))))
  (define std/misc/func#rcompose/values
    (lambda _g7199_
      (let ((_g7198_ (let () (declare (not safe)) (##length _g7199_))))
        (cond ((let () (declare (not safe)) (##fx= _g7198_ 0))
               (apply std/misc/func#rcompose/values__0 _g7199_))
              ((let () (declare (not safe)) (##fx= _g7198_ 1))
               (apply std/misc/func#rcompose/values__1 _g7199_))
              ((let () (declare (not safe)) (##fx= _g7198_ 2))
               (apply std/misc/func#rcompose/values__2 _g7199_))
              ((let () (declare (not safe)) (##fx>= _g7198_ 2))
               (apply std/misc/func#rcompose/values__3 _g7199_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/misc/func#rcompose/values
                _g7199_))))))
  (define std/misc/func#pred-limit
    (lambda (_pred2794_ _limit2795_)
      (letrec ((_test2797_
                (lambda (_v2800_)
                  (declare (fixnum))
                  (if (> _limit2795_ '0)
                      (let ((_v2803_ (_pred2794_ _v2800_)))
                        (if _v2803_
                            (set! _limit2795_ (- _limit2795_ '1))
                            '#!void)
                        _v2803_)
                      '#f))))
        (if _limit2795_
            (if (> _limit2795_ '0) _test2797_ (lambda (_g7200_) '#f))
            _pred2794_))))
  (define std/misc/func#pred-sequence__%
    (lambda (_list2768_ _limit2769_)
      (declare (not safe) (fixnum))
      (letrec* ((_g7201_ (let ((_g7202_ (if (fixnum? _limit2769_)
                                            '#!void
                                            (set! _limit2769_ '-1))))
                           #!void
                           _g7202_))
                (_seq2771_ _list2768_)
                (_check2772_
                 (lambda (_v2777_)
                   (letrec* ((_is-match2779_
                              (if (or (equal? (car _seq2771_) _v2777_)
                                      (begin (set! _seq2771_ _list2768_) '#f))
                                  (if (set! _seq2771_ (cdr _seq2771_))
                                      (null? _seq2771_)
                                      '#f)
                                  '#f)))
                     (if _is-match2779_
                         (begin
                           (set! _seq2771_ _list2768_)
                           (if (> _limit2769_ '0)
                               (set! _limit2769_ (- _limit2769_ '1))
                               '#!void))
                         '#!void)
                     _is-match2779_))))
        (if (pair? _list2768_)
            (lambda (_v2774_)
              (if (zero? _limit2769_) '#f (_check2772_ _v2774_)))
            (lambda (_g7204_) '#f)))))
  (define std/misc/func#pred-sequence__0
    (lambda (_list2787_)
      (let ((_limit2789_ '#f))
        (std/misc/func#pred-sequence__% _list2787_ _limit2789_))))
  (define std/misc/func#pred-sequence
    (lambda _g7206_
      (let ((_g7205_ (let () (declare (not safe)) (##length _g7206_))))
        (cond ((let () (declare (not safe)) (##fx= _g7205_ 1))
               (apply std/misc/func#pred-sequence__0 _g7206_))
              ((let () (declare (not safe)) (##fx= _g7205_ 2))
               (apply std/misc/func#pred-sequence__% _g7206_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/misc/func#pred-sequence
                _g7206_)))))))
