let def_all () : unit Deferred.t = D.all [delayed 0.5 "hello"; delayed 1. "world"; delayed 1.5 "!"] >>| fun l -> List.iter l ~f:(print_endline)