type 'a t = 'a Async_kernel.Deferred.t
val after : float -> unit t
val async : unit t -> unit
val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
val (>>|) : 'a t -> ('a -> 'b) -> 'b t
val (>>=?) :
('a, 'c) Stdlib.result t ->
('a -> ('b, 'c) Stdlib.result t) ->
('b, 'c) Stdlib.result t