let process_message req msg =
         log_output Debug "In Rcomm.From_transport.process_message";
         (* TODO: fold ? *)
         assert(List.length req = 1);
         let req = List.hd req in
         begin match req with 
         |  Transport_req -> process_transport_request msg req
         |  Timer_req -> process_timer_request msg req
         |  Message_req tdsc -> process_message_request tdsc msg req
         |  Select_req tdsc -> process_select_request tdsc msg req
         |  Feedback_req tdsc ->
               (* TODO: Actually implement this function *)
               receive_request [Feedback_req(tdsc)]
             
         end