(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/misc/shuffle#shuffle
    (lambda (_lst28607_)
      (vector->list
       (std/misc/shuffle#vector-shuffle! (list->vector _lst28607_)))))
  (define std/misc/shuffle#vector-shuffle
    (lambda (_vec28605_)
      (std/misc/shuffle#vector-shuffle! (vector-copy _vec28605_))))
  (define std/misc/shuffle#vector-shuffle!
    (lambda (_vec28591_)
      (let ((_len28593_ (vector-length _vec28591_)))
        (let _$loop28595_ ((_i28598_ '0))
          (if (##fx= _i28598_ _len28593_)
              _vec28591_
              (begin
                (let* ((_j28600_
                        (##fx+ _i28598_
                               (random-integer (##fx- _len28593_ _i28598_))))
                       (_iv28602_ (##vector-ref _vec28591_ _i28598_)))
                  (##vector-set!
                   _vec28591_
                   _i28598_
                   (##vector-ref _vec28591_ _j28600_))
                  (##vector-set! _vec28591_ _j28600_ _iv28602_))
                (_$loop28595_ (##fx+ _i28598_ '1)))))))))
