sig
  type t
  val empty : Backtrace.t
  val to_string_hum : Backtrace.t -> string
  val with_backtraces :
    (unit -> 'a) -> [ `Error of exn * Backtrace.t | `Ok of 'a ]
  val is_important : exn -> unit
  val get : exn -> Backtrace.t
  val add : exn -> Backtrace.t -> unit
  val reraise : exn -> exn -> 'a
  val remove : exn -> Backtrace.t
  val set_my_name : string -> unit
  module Interop : sig val of_json : string -> string -> Backtrace.t end
  val t_of_sexp : Sexplib.Sexp.t -> Backtrace.t
  val sexp_of_t : Backtrace.t -> Sexplib.Sexp.t
end