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