A rudimentary Name_generator for use in tests that guarantees that the Lexicographic order corresponds to the time ordering
Name_generator
module Unique_name : sig ... end
type t
= int
val next : t ‑> attempt:int ‑> Unique_name.t