anchor.diff:                                                       :do (sleep 0.001))))))
   
   ;; UI Server
  +
  
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:         (list num-of-move steps)
          nil)))
  
  (defun make-ranking (answers)
    (delete-duplicates (sort (copy-list answers)
                             #'(lambda (a b)
                                 (cond ((< (caadr a) (caadr b)) T)
                                       ((> (caadr a) (caadr b)) nil)
                                       ((< (cadadr a) (cadadr b)) T)
                                       ((> (cadadr a) (cadadr b)) nil)
                                       ((< (caddr a) (caddr b)) T)
                                       ((> (caddr a) (caddr b)) nil))))
                       :test (lambda (a b)
                               (string= (car a) (car b)))
                       :from-end T))
  
  (defun start-srv ()
    (setf hunchentoot:*acceptor* (make-instance 'hunchentoot:easy-acceptor :port 4242))
    (hunchentoot:start hunchentoot:*acceptor*)
  