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