(** @return a profiling function; [s] is used for labelling the total time at
* the end of the execution *)
val profile : ?enable:bool -> string -> profiler
-val set_profiling_printings : (unit -> bool) -> unit
+val set_profiling_printings : (string -> bool) -> unit
(** {2 Localized exceptions } *)