let basics () : unit Deferred.t = let i = Ivar.create () in don't_wait_for (after (sec 1.0) >>| fun () -> Ivar.fill i "hello"); let d = Ivar.read i in d >>| print_endline