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