(define (print-request request)
  (for-each
    (lambda (f)
      (display (++ "<h2>" (car f) "</h2>"))
      (display (++ "<pre>" (htmlize (->string ((cdr f) request))) "</pre>")))
    `(("uri" . ,request-uri)
      ("port" . ,request-port)
      ("method" . ,request-method)
      ("major" . ,request-major)
      ("minor" . ,request-minor)
      ("headers" . ,request-headers))))

(define (request-dispatcher path)
  (display "<h1>path</h1>")
  (display "<pre>")
  (display path)
  (display "</pre>")
  (display "<h1>current-request</h1>")
  (display "<pre>")
  (write-request (update-request (current-request) port: (current-output-port)))
  (display "</pre>")
  (print-request (current-request))
  (display "<h1>current-response</h1>")
  (display "<pre>")
  (write-response (update-response (current-response) port: (current-output-port)))
  (display "</pre>")
  )