let string_of_receive_request string_of_vdesc req =
      let string_of_send_request = 
         string_of_send_request string_of_vdesc 
      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) ^ "]"