(use-modules (srfi srfi-1)
             (srfi srfi-27))
(random-source-randomize! default-random-source)

(list-ref (valid-moves) (random-integer (length (valid-moves))))