let
oneofl xs () =
List
.nth_exn xs (
Random
.int (
List
.length xs))