anchor.diff:      (setf *problem* (cons x y))))
   
   (defun start-timer ()
  +  (reset-srv)
     (set-problem)
     (format t "(min): ")
     (setf *starttime* (+ (* (read) 60 1000) (get-internal-real-time)))
  
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: (defparameter *starttime* nil)
  (defparameter *counter* nil)
  
  (defparameter *posturl* "http://localhost/post")
  
  (setf hunchentoot:*dispatch-table*
        (list
  