anchor.diff:    (setf *tape* (make-tape-array))
     (setf *brainfuck* "")
     (setf *pointer* (pointer-default))
  -  (setf *output* "")
  -  (setf *loop-depth* 0))
  +  (setf *output* ""))
  +
  +
  +(defvar *tape* (make-tape-array)
  +  "The tape array used to store each byte")
  +
  +(defvar *brainfuck* ""
  +  "Place to store brainfuck code input string globally")
   
   (defun any-char (char sequence)
     "Compare the 'char' to each element of 'sequence' using the 'some'
  
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")
  
  