sig
  val ( >>= ) : 'Lwt.t -> ('-> 'Lwt.t) -> 'Lwt.t
  val ( =<< ) : ('-> 'Lwt.t) -> 'Lwt.t -> 'Lwt.t
  val ( >|= ) : 'Lwt.t -> ('-> 'b) -> 'Lwt.t
  val ( =|< ) : ('-> 'b) -> 'Lwt.t -> 'Lwt.t
  val ( <?> ) : 'Lwt.t -> 'Lwt.t -> 'Lwt.t
  val ( <&> ) : unit Lwt.t -> unit Lwt.t -> unit Lwt.t
end