anchor.diff:  (defparameter *starttime* nil)
   (defparameter *counter* nil)
   
  -(defparameter *posturl* "http://localhost:4242/post")
  +(defparameter *posturl* "http://localhost/post")
   
   (setf hunchentoot:*dispatch-table*
         (list
  
positive.code:       (loop :named l :for line := (read-line in nil nil) :while line
           :do (let ((dir (subseq line 0 1))
                     (step (or (parse-integer (subseq line 1) :junk-allowed t) 0)))
                 ;; (format t "[~A ~A]" dir steps)
                 (if (and (find dir '("R" "L" "U" "D") :test #'string=) (check-prime step))
                     (progn 
                       (cond ((string= dir "R") (setf x (+ x step)))
  
negative.code:                       (:tr
                         (:th "#")
                         (:th "token")
                         (:th "idou")
                         (:th "steps")
                         (:th "milliseconds")))
                       (:tbody
  