sig
  val ( >>= ) : 'Fut.t -> ('-> 'Fut.t) -> 'Fut.t
  val ( &>>= ) :
    ('a, 'c) Fut.result Fut.t ->
    ('-> ('b, 'c) Fut.result Fut.t) -> ('b, 'c) Fut.result Fut.t
end