sig
type t = exn
exception Finally of exn * exn
val to_string : t -> string
val register_converter : (t -> string option) -> unit
val sexp_of_t : t -> Sexplib.Sexp.t
val protectx : f:('a -> 'b) -> 'a -> finally:('a -> unit) -> 'b
val protect : f:(unit -> 'a) -> finally:(unit -> unit) -> 'a
val pp : Format.formatter -> t -> unit
end