anchor.diff:  (defun shorthand-fuck-aux (stream list)
     "Recursive reader macro. A compiler from within Lisp!"
     (let ((char (read-char stream nil nil)))
  -    (if (or (some #'(lambda (x) (char-equal x char))
  -		  *separators*)
  +    (if (or (any-char char *separators*)
   	    (null char))
  -	(progn (when (char= #\) char)
  +	(progn (when (any-char char *unread-separators*)
   		 (unread-char char stream))
   	       (char-list->string (nreverse list)))
   	(shorthand-fuck-aux stream (push char list)))))
  
positive.code:   (setf *brainfuck* "")
    (setf *pointer* (pointer-default))
    (setf *output* ""))
  
  (defun char-list->string-aux (char-list string position)
    (if (null (first char-list))
  
negative.code:   "initial value for inside the byte array")
  
  (defparameter *separators* '(#\Newline #\Space #\))
    "#F notation separators. These can be changed to allow whitespace 
  comments or to break a right parentheses immediately to the right side")
  
  (defparameter *unread-separators* '(#\))
    "#F notation separators that should be unread for use by other functions")
  
  (defun make-tape-array ()
    "Creates a new tape array"
  