sig
  val call : ?timeout:float -> ?param:string -> string -> 'Lwt.t
  val call_custom_url : ?timeout:float -> (string -> string) -> 'Lwt.t
end