1 2 3 4 5 6
open Lwt.Syntax let () = Lwt.async @@ fun () -> let+ hello = Lwt_stream.to_string Flesh.hello in print_endline hello