(define-structure surflet surflet-interface
  (open surflets
        scheme-with-scsh)
  (begin
    
    (define (ask-for-wish)
      (let ((wish-input (make-text-field))
            (submit-button (make-submit-button)))
        (let ((req
               (send-html/suspend
                (lambda (k-url)
                  `(html
                    (body
                     (h1 "Enter your wish")
                     (surflet-form ,k-url
                                   (p "Your wish:"
                                      ,wish-input
                                      ,submit-button))))))))
          (input-field-value wish-input
                             (get-bindings req)))))
    
    (define (print-wish wish)
      (send-html/finish
       `(html
         (body
          (h1 "Your (short) wishlist")
          (p ,wish)))))

    (define (main req)
      (print-wish (ask-for-wish)))))