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