>>=

                readall fd >>= fun a ->
                Lwt_io.printf "readall result\n%s\n%!" a >>= fun () ->
                Lwt_unix.close fd;
                Lwt.return ()