Stats.InOut
val enter : string -> unit
val leave : string -> unit
val wrap : string -> ('a -> 'b) -> 'a -> 'b