let def_any_unit () =
  Deferred.any_unit [
    (after (sec 0.5) >>| fun () -> print_endline "fast");
    (after (sec 1.0) >>| fun () -> print_endline "slow");
    (after (sec 1.5) >>| fun () -> print_endline "slowest");
  ]