let gen_uuid () =
  let random_state = Random.State.make_self_init () in
  Random.set_state random_state;
  Uuidm.to_string (Uuidm.v4_gen random_state ())