sig
  type t
  val trace_call : string -> (Format.formatter -> unit) -> Orpc_pp.Trace.t
  val trace_reply_ok : Orpc_pp.Trace.t -> (Format.formatter -> unit) -> unit
  val trace_reply_exn :
    Orpc_pp.Trace.t -> exn -> (Format.formatter -> unit) -> unit
end