module Object_id:
sig
type t = [ `int of int | `string of string ]
[ `int of int | `string of string ]
val to_string : t -> string
t -> string
end