let
lwt_unix_readlink l =
let
open
Lwt
in
Lwt_preemptive
.detach
Unix
.readlink l