type t = {prefix : string;table : (string, entry) Hashtbl.t;el_table : (string, entry_list) Hashtbl.t;mutable active : int;mutable total_other : float;mutable start_other : float;}val newman : ?prefix:string -> unit -> tval get_entry_list : t -> string -> entry_listval stop_other : t -> unitval start_other : t -> unitval time_start : t -> string -> unit -> unitval time_start_el : t -> string -> unit -> unitval profile : t -> string -> ('a -> 'b) -> 'a -> 'bval profile2 : t -> string -> ('a -> 'b -> 'c) -> 'a -> 'b -> 'cval uprofile : t -> string -> (unit -> 'b) -> 'bval print_table : t -> unitval print_el_table : t -> unitval print : t -> unitval default : t