let string_of_receive_request string_of_tdesc req =
      let string_of_send_request = string_of_send_request string_of_tdesc in
      (Util.fold_left_first begin fun b a ->
         Printf.sprintf "%s%s" b (string_of_send_request a)
      end begin fun b a ->
         Printf.sprintf "%s ; %s" b (string_of_send_request a)
      end "[" req) ^ "]"