src/uid.mli

   1 type t = private int
   2 val make_maker : unit -> (unit -> t) * (unit -> t) * (t -> unit)
   3 val dummy : t
   4 external to_int : t -> int = "%identity"
   5 external of_int : int -> t = "%identity"