Pvem_lwt_unix.System.sleep

let sleep f =
    wrap_deferred_system (`Sleep f) (fun () -> Lwt_unix.sleep f)