let
randomize_list (l:
'
a list) =
let
(u,v) = separate_list_at (
Random
.int (
List
.length l)) l
in
v@u