anchor.diff:  
   (defun init-srv ()
     (reset-srv)
  +  
     (hunchentoot:define-easy-handler (form :uri "/form") ()
       (setf (hunchentoot:content-type*) "text/html")
       (cl-markup:markup
  
positive.code:                   (:p "answer: " (:br)
                        (:textarea :name "answer" :cols "40" :rows "10" ""))
                    (:input :type "submit" :value "submit")))))
    (hunchentoot:define-easy-handler (post :uri "/post") (token answer)
      (setf (hunchentoot:content-type*) "text/plain")
      (let ((score (check-answer answer))
  
negative.code:                                                      :do (sleep 0.001))))))
  
  ;; UI Server
  
  