sig
  val wrap_duration : float Pervasives.ref -> (unit -> 'a) -> 'a
  val wrap_duration_add : float Pervasives.ref -> (unit -> 'a) -> 'a
end