(use cgi-protocol byte-blob)

(define (action request)
  (DocumentResponse 
   `((Content-type . "text/plain;charset=us-ascii"))
   '("Hello, world!")
   ))

(print (run-action action (list->byte-blob '())))