command:Ftp_client.cmd -> process_result:(Ftp_client.ftp_state -> int * string -> unit) -> unit -> Ftp_client.ftp_method