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