sig
  val ( >|= ) : ('a, 'e) Lwt_result.t -> ('-> 'b) -> ('b, 'e) Lwt_result.t
  val ( >>= ) :
    ('a, 'e) Lwt_result.t ->
    ('-> ('b, 'e) Lwt_result.t) -> ('b, 'e) Lwt_result.t
end