let def_both () : unit Deferred.t = D.both (delayed 1. "hello") (delayed 0.5 42) >>| fun (a, b) -> printf "%s, %d\n" a b