Measure.Time
All return nano seconds
val measure : (unit -> unit) -> float
val measure_and_return : (unit -> 'a) -> float * 'a
val measure_lwt : (unit -> 'a Lwt.t) -> (float * 'a) Lwt.t