(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/misc/shuffle#shuffle
    (lambda (_lst404_)
      (vector->list
       (std/misc/shuffle#vector-shuffle! (list->vector _lst404_)))))
  (define std/misc/shuffle#vector-shuffle
    (lambda (_vec402_)
      (std/misc/shuffle#vector-shuffle! (vector-copy _vec402_))))
  (define std/misc/shuffle#vector-shuffle!
    (lambda (_vec388_)
      (let ((_len390_ (vector-length _vec388_)))
        (let _$loop392_ ((_i395_ '0))
          (if (let () (declare (not safe)) (##fx= _i395_ _len390_))
              _vec388_
              (begin
                (let* ((_j397_ (let ((__tmp4004
                                      (random-integer
                                       (let ()
                                         (declare (not safe))
                                         (##fx- _len390_ _i395_)))))
                                 (declare (not safe))
                                 (##fx+ _i395_ __tmp4004)))
                       (_iv399_ (let ()
                                  (declare (not safe))
                                  (##vector-ref _vec388_ _i395_))))
                  (let ((__tmp4005
                         (let ()
                           (declare (not safe))
                           (##vector-ref _vec388_ _j397_))))
                    (declare (not safe))
                    (##vector-set! _vec388_ _i395_ __tmp4005))
                  (let ()
                    (declare (not safe))
                    (##vector-set! _vec388_ _j397_ _iv399_)))
                (_$loop392_
                 (let () (declare (not safe)) (##fx+ _i395_ '1))))))))))
