(define random-elt
  (lambda (lst)
    (list-ref lst (random (length lst)))))

(define swap!
  (lambda (vec x y)
    (let ((tmp (vector-ref vec x)))
      (vector-set! vec x (vector-ref vec y))
      (vector-set! vec y tmp))))

(define randomize-vec!
  (lambda (vec)
    (let ((len (vector-length vec)))
      (let kernel ((pos (- len 1)))
        (if (< pos 0)
            vec
            (begin
              (swap! vec pos (random len))
              (kernel (- pos 1))))))))

(define men 
  (vector "Berg" "Bonnin Cadogan" "Brooks" "Howard" "LaRue" 
          "McDonald" "Mertes" "Miller" "Pan" "Rich"
          "Rider" "Thompson" "Wood" "Zamora"))
  
(define women
  (vector "An" "Brown" "Cartagena" "Cloninger" "Harrington"
          "McArdle" "McFarlin" "Potthoff"))