let string_of_message = string_of_message 
            RcommDescriptor.to_string Transport_ll.to_string