sig
  type t = {
    mutable nb_calls : int;
    mutable nb_effective_calls : int;
    mutable total_duration : float;
    mutable since : float list;
  }
  val create : unit -> Value_perf.Call_info.t
  val main : Value_perf.Call_info.t
  val total_duration : float -> Value_perf.Call_info.t -> float
  val print :
    Format.formatter ->
    Kernel_function.t -> Value_perf.Call_info.t -> float -> unit
  val cmp : float -> Value_perf.Call_info.t -> Value_perf.Call_info.t -> int
  val filter_and_sort :
    (('-> unit) -> 'b) ->
    ('-> Value_perf.Call_info.t) -> '-> float -> 'a list
  val before_call : Value_perf.Call_info.t -> float -> unit
  val after_call : Value_perf.Call_info.t -> float -> unit
end