sig
  val load : string -> string Lwt.t
  val multipart_body :
    (string * string) list ->
    string * string * string -> string -> string Lwt.t
end