(use cgi-protocol byte-blob)

(define (action request)
  (let ((inputs (request-inputs request)))
    (DocumentResponse 
     `((Content-type . "text/plain;charset=us-ascii"))
     `(,(sprintf "Hello, ~A (~A)" 
                 (simple-input->string (alist-ref 'name inputs))
                 (simple-input->string (alist-ref 'email inputs))
                 )))
   ))

(print (run-action action (current-input-port)))