sig
  type context
  val default_context : Sexpr.context
  val make_context : ?nesting:int -> unit -> Sexpr.context
  val dump : ?context:Sexpr.context -> 'a -> unit
  val dump_to_file : ?context:Sexpr.context -> string -> 'a -> unit
  val dump_with_formatter :
    ?context:Sexpr.context -> Format.formatter -> 'a -> unit
  val test_data : unit -> Obj.t
end