let def_any () : unit Deferred.t =
  D.any [delayed 1.0 "slow!"; delayed 0.5 "fast!"] >>| print_endline