let to_string = 
            Application_to_rcomm.string_of_send_request 
               RcommDescriptor.to_string