'a ->
object
  val lst_resp : 'a
  method destroy : unit -> SFFtp.listingResponse -> unit
  method get_listing : unit -> SFFtp.listingResponse -> string array
  method get_message : unit -> SFFtp.listingResponse -> string
  method get_status : unit -> SFFtp.listingResponse -> SFFtp.status
  method is_ok : unit -> SFFtp.listingResponse -> bool
end