type channel = Lwt_unix.file_descrval create : unit -> Lwt_unix.file_descr Lwt.tval destroy : Lwt_unix.file_descr -> unit Lwt.tval read : Lwt_unix.file_descr -> bytes -> int -> int -> int Lwt.tval write : Lwt_unix.file_descr -> bytes -> int -> int -> unit Lwt.ttype 'a t = 'a Lwt.tval return : 'a -> 'a Lwt.t