sig   type 'a t   type 'a future = 'a CCPool.Make.Fut.t   val return : 'a -> 'a CCPool.Make.Fut.t   val fail : exn -> 'a CCPool.Make.Fut.t   val make : (unit -> 'a) -> 'a CCPool.Make.Fut.t   val make1 : ('a -> 'b) -> 'a -> 'b CCPool.Make.Fut.t   val make2 : ('a -> 'b -> 'c) -> 'a -> 'b -> 'c CCPool.Make.Fut.t   val get : 'a CCPool.Make.Fut.t -> 'a   val state : 'a CCPool.Make.Fut.t -> 'a CCPool.state   val is_done : 'a CCPool.Make.Fut.t -> bool   val on_success : 'a CCPool.Make.Fut.t -> ('a -> unit) -> unit   val on_failure : 'a CCPool.Make.Fut.t -> (exn -> unit) -> unit   val on_finish : 'a CCPool.Make.Fut.t -> ('a CCPool.state -> unit) -> unit   val flat_map :     ('a -> 'b CCPool.Make.Fut.t) ->     'a CCPool.Make.Fut.t -> 'b CCPool.Make.Fut.t   val and_then :     'a CCPool.Make.Fut.t ->     (unit -> 'b CCPool.Make.Fut.t) -> 'b CCPool.Make.Fut.t   val sequence_a : 'a CCPool.Make.Fut.t array -> 'a array CCPool.Make.Fut.t   val map_a :     ('a -> 'b CCPool.Make.Fut.t) -> 'a array -> 'b array CCPool.Make.Fut.t   val sequence_l : 'a CCPool.Make.Fut.t list -> 'a list CCPool.Make.Fut.t   val map_l :     ('a -> 'b CCPool.Make.Fut.t) -> 'a list -> 'b list CCPool.Make.Fut.t   val choose_a : 'a CCPool.Make.Fut.t array -> 'a CCPool.Make.Fut.t   val choose_l : 'a CCPool.Make.Fut.t list -> 'a CCPool.Make.Fut.t   val map : ('a -> 'b) -> 'a CCPool.Make.Fut.t -> 'b CCPool.Make.Fut.t   val map_async : ('a -> 'b) -> 'a CCPool.Make.Fut.t -> 'b CCPool.Make.Fut.t   val app :     ('a -> 'b) CCPool.Make.Fut.t ->     'a CCPool.Make.Fut.t -> 'b CCPool.Make.Fut.t   val app_async :     ('a -> 'b) CCPool.Make.Fut.t ->     'a CCPool.Make.Fut.t -> 'b CCPool.Make.Fut.t   val sleep : float -> unit CCPool.Make.Fut.t   module Infix :     sig       val ( >>= ) :         'a CCPool.Make.Fut.t ->         ('a -> 'b CCPool.Make.Fut.t) -> 'b CCPool.Make.Fut.t       val ( >> ) :         'a CCPool.Make.Fut.t ->         (unit -> 'b CCPool.Make.Fut.t) -> 'b CCPool.Make.Fut.t       val ( >|= ) :         'a CCPool.Make.Fut.t -> ('a -> 'b) -> 'b CCPool.Make.Fut.t       val ( <*> ) :         ('a -> 'b) CCPool.Make.Fut.t ->         'a CCPool.Make.Fut.t -> 'b CCPool.Make.Fut.t     end   val ( >>= ) :     'a CCPool.Make.Fut.t ->     ('a -> 'b CCPool.Make.Fut.t) -> 'b CCPool.Make.Fut.t   val ( >> ) :     'a CCPool.Make.Fut.t ->     (unit -> 'b CCPool.Make.Fut.t) -> 'b CCPool.Make.Fut.t   val ( >|= ) : 'a CCPool.Make.Fut.t -> ('a -> 'b) -> 'b CCPool.Make.Fut.t   val ( <*> ) :     ('a -> 'b) CCPool.Make.Fut.t ->     'a CCPool.Make.Fut.t -> 'b CCPool.Make.Fut.t end