struct let x = ref 0 let create prefix = incr x; sprintf "%s_%d_%d" prefix !x (Random.int 100_000) let variable = create end