let def_all_unit () : unit Deferred.t =
  Deferred.all_unit [
    (after (sec 0.5) >>| fun () -> print_endline "hello");
    (after (sec 1.0) >>| fun () -> print_endline "world");
    (after (sec 1.5) >>| fun () -> print_endline "!");
  ]