sig
  type context
  type follow = src:Obj.t -> field:int -> dst:Obj.t -> bool
  val default_context : Dot.context
  val make_context :
    ?max_fields:int -> ?follow:Dot.follow -> unit -> Dot.context
  val dump : ?context:Dot.context -> 'a -> unit
  val dump_to_file : ?context:Dot.context -> string -> 'a -> unit
  val dump_with_formatter :
    ?context:Dot.context -> Format.formatter -> 'a -> unit
  val dump_osx :
    ?context:Dot.context -> ?cmd:string -> ?format:string -> 'a -> unit
  val test_data : unit -> Obj.t
end