sig
  val both :
    'a Async.Std.Deferred.t ->
    'b Async.Std.Deferred.t -> ('a * 'b) Async.Std.Deferred.t
  val all : 'a Async.Std.Deferred.t list -> 'a list Async.Std.Deferred.t
  val any : 'a Async.Std.Deferred.t list -> 'a Async.Std.Deferred.t
end