sig type t = string val to_yojson : Ketrew_pervasives.Unique_id.t -> Yojson.Safe.json val of_yojson : Yojson.Safe.json -> [ `Error of string | `Ok of Ketrew_pervasives.Unique_id.t ] val create : unit -> string end