anchor.diff:    "Reads the first operator from a list of operators and returns it."
     (cdr (assoc brainfuck-char *operators*)))
   
  -(defmacro byte-value ()
  -  (list 'elt '*tape* '*pointer*))
  -
   (defun first-elt (string)
     (elt string 0))
   (defun ascii-to-integer (char)
  
positive.code: 	  ((string-equal string-length-one this) (car (car ascii)))
  	  (t (ascii-to-integer-aux string-length-one (cdr ascii))))))
  
  (defun one-off-fuck (brainfuck-char position)
    "Run a single first brainfuck-char."
    (let ((symbolified (convert-fuck-char brainfuck-char)))
      (cond ((equalp symbolified
  		   (convert-fuck-char #\,)) (setf (elt *tape* *pointer*)
  						  (ascii-to-integer (read-char))))
  	  ((equalp symbolified
  		   (convert-fuck-char #\.)) (format t "~a" (integer-to-ascii (byte-value))))
  	  ((equalp symbolified
  		   '+) (incf-byte))
  	  ((equalp symbolified
  		   '-) (decf-byte))
  	  ((equalp symbolified
  		   ']) (if (/= 0 (byte-value))
  			   (let ((new-pos (1+ (position-last-open-bracket *brainfuck* position))))
  			     (interpret-fuck-aux (subseq *brainfuck* new-pos) new-pos))
  			   ()))
  	  ((equalp symbolified
  		   '>) (right-shift))
  	  ((equalp symbolified
  		   '<) (left-shift)))))
  
  (defun interpret-fuck-aux (brainfuck-string position)
    "Recursive auxillary function for interpret"
    (let ((string-length (length brainfuck-string)))
      (if (> string-length 1)
  	(progn
  	  (one-off-fuck (first-elt brainfuck-string) (1+ position))
  	  (interpret-fuck-aux (remove-first brainfuck-string)
  				   (1+ position)))
  	(if (= string-length 1)
  	    (one-off-fuck (first-elt brainfuck-string) (1+ position))
  	    (if (= string-length 0)
  		nil)))))
  
  (defun interpret (brainfuck-string)
    "Interpret the brainfuck"
    (setf *tape* (make-tape-array))	  ;Don't use this dynamic variable either
    (setf *brainfuck* brainfuck-string)
    (setf *pointer* (pointer-default))
    (interpret-fuck-aux brainfuck-string 0)
    nil)
  
negative.code: (defvar *pointer* (pointer-default)
    "The pointer location for the tape. Starts near the middle.")
  
  (defmacro byte-value ()
    `(elt *tape* *pointer*))
  
  (defun remove-first (string)
    (if (= 1 (length string))
        ""
  