(defun i-dont-like-the-cookie-directive (youtube-url)
  ;; Get at the relevant FORM element
  (let ((form (car (query "FORM:has(INPUT[value='I agree'])"
                          (url-html youtube-url)))))
    ;; Click the damn button
    (url-html (attr form :action)
              :post-data (loop for node in (query "INPUT" form)
                               when (attr node :name)
                               append (list (attr node :name)
                                            (attr node :value))))))