(define request
  (send/suspend 
   (lambda (k-url)
     `(html
       (body
        (form ((action ,k-url)
               (method "get"))
              (p "First name: "(input ((type "text")
                                       (name "first"))))
              (p "Last name: " (input ((type "text")
                                       (name "last"))))
              (input ((type "submit")
                      (value "Submit")))))))))

(define bindings (request-bindings request))

(send/finish
 `(p "Thanks for your visit "
     ,(extract-binding/single 'first bindings)
     nbsp
     ,(extract-binding/single 'last bindings)))