module MoreChoices:sig
..end
module D:sig
..end
val delayed : float -> 'a -> 'a Async.Std.Deferred.t
val def_both : unit -> unit Async.Std.Deferred.t
val def_all : unit -> unit Async.Std.Deferred.t
val def_any : unit -> unit Async.Std.Deferred.t
val main : unit -> unit Async.Std.Deferred.t