anchor.diff:    (cond ((equal x ">") (> l r))
   	((equal x "<") (< l r))
   	((equal x ">=") (>= l r))
  -	((equal x "<=") (>= l r))
  +	((equal x "<=") (<= l r))
   	((equal x "==") (= l r))
   	((equal x "!=") (/= l r))))
   
  
positive.code:   (let ((compiled-program (compile-program (parse-program filename)))
  	(cpu (make-cpu)))
      (run-prog compiled-program cpu)
      (let ((regs nil))
        (maphash (lambda (k v) (push (list k v) regs)) cpu)
        (reduce #'max regs :key #'cadr))))
  
negative.code:   (or (gethash name cpu) 0))
  
  (defun (setf register) (new-value name cpu)
    ;; Update the "highest value" metaregister (".max") if necessary
    (setf (gethash ".max" cpu) (max (register ".max" cpu) new-value))
    (setf (gethash name cpu) new-value))
  
  (defun get-registers (cpu)
    (let ((regs nil))
      (maphash (lambda (k v) (when (not (eql (elt k 0) #\.)) (push (list k v) regs))) cpu)
      regs))
  
  (defun run-opcode (s l r)
    (cond ((equal s "inc") (+ l r))
  