sig
  val print : Format.formatter -> Obj.t -> unit
  val print_desc : Format.formatter -> Obj.t -> unit
  val to_string : Obj.t -> string
  val desc : Obj.t -> string
end