anchor.diff:    ;; Loop over each character in the string
     (loop for position to (1- (length *brainfuck*))
        do (handler-case (one-off-fuck position)
  -	  ;; Handles brainfuck looping with the condition system
  -	  (end-of-loop () (if (<= *loop-depth* 0)
  -			      (error "Extra right square bracket ']' does not match a '[' somewhere else")
  -			      (progn (decf *loop-depth*)
  -				     (setf position
  -					   (1- (goto position))))))
  -	  (open-loop-at-zero () (progn (incf *loop-depth*)
  -				       (setf position
  -					     (1- (skip-loop position)))))))
  +	  ;; Handles looping with the condition system
  +	  (end-of-loop () (setf position
  +				(1- (goto position))))
  +	  (open-loop-at-zero () (setf position
  +				      (1- (skip-loop position))))))
     *output*)
  -
  
positive.code: 
  (defun skip-loop-aux (position depth)
    (let ((this (char *brainfuck* position)))
      (cond ((char= +open-bracket+ this)
  	   (skip-loop-aux (1+ position) (1+ depth)))
  	  ((char= +close-bracket+ this)
  	    (if (= 1 depth)
  		(1+ position)
  		(skip-loop-aux (1+ position) (1- depth))))
  	  (t (skip-loop-aux (1+ position) depth)))))
  
  (defun skip-loop (position)
    (handler-case (skip-loop-aux position 0)
      ))
  
  (defun fuck (brainfuck-string)
    "Interpret the brainfuck"
  
negative.code: (defvar *output* ""
    "Defaults to an empty string because it is setf'd by other functions")
  
  (defparameter *initial-element* 0
    "initial value for inside the byte array")
  
  