(define request
  (send/suspend 
   (lambda (k-url)
     `(html
       (body
        (p (a ((href ,(string-append k-url "?choice=pizza"))) "Pizza"))
        (p (a ((href ,(string-append k-url "?choice=lasagne"))) "Lasagne")))))))

(define bindings (request-bindings request))
       
(send/finish `(p "We will deliver your "
                 ,(extract-binding/single 'choice bindings)
                 " soon"))