uid.mli

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