module type Basic = sig .. end
sig
end
include Applicative.Basic
val bind : ('a -> 'b t) -> 'a t -> 'b t
('a -> 'b t) -> 'a t -> 'b t