let list_rand lst =
  let len = List.length lst in
  List.nth lst (Random.int len)