(defmethod handle-request-response ((handler cookie-monster) method request)
  (let ((my-cookie (cookie1:cookie-string "dascookie" "goes down" :max-age 600 :domain "inquisitor.omrf.org"))
	(my-hack-cookie (cookie1:cookie-string "secret" "squirrel?" :max-age 600 :domain ".omrf.org"))
	(my-domainless-cookie (cookie1:cookie-string "no" "domain name from \\\"hell!\\\"" :max-age 600))
	(received-cookies (request-header request :cookie))
	(parsed-cookies (loop for cookie-string in (request-header request :cookie)
			      collect (cookie1:parse-cookies cookie-string)))
	(safe-parsed-cookies (loop for cookie-string in (request-header request :cookie)
				   collect (cookie1:safe-parse-cookies cookie-string "inquisitor.omrf.org"))))
    (request-send-headers request :set-cookie (list my-cookie my-hack-cookie my-domainless-cookie))
    (html-stream
     (request-stream request)
     `(body
       (p "Welcome to the jungle!")
       (p "Gave cookie: " ,my-cookie)
       (p "Gave cookie (no domain specified): " ,my-domainless-cookie)
       (p "Also gave cookie (spoof attack): " ,my-hack-cookie)
       (p "Raw cookies: " (pre ,received-cookies))
       (p "Parsed cookies: " (pre ,(write-to-string parsed-cookies)))
       (p "Safe parsed cookies: " (pre ,(write-to-string safe-parsed-cookies)))))))