sig
  type -'a t = private Int64.t
  val cast : Int64.t -> 'a WTypes.Id.t
  val of_string : string -> 'a WTypes.Id.t
  val to_string : 'a WTypes.Id.t -> string
end