anchor.diff:    "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")
  +  "#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"
  
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: (defun shorthand-fuck-aux (stream list)
    "Recursive reader macro. A compiler from within Lisp!"
    (let ((char (read-char stream nil nil)))
      (if (or (any-char char *separators*)
  	    (null char))
  	(progn (when (any-char char *unread-separators*)
  		 (unread-char char stream))
  	       (char-list->string (nreverse list)))
  	(shorthand-fuck-aux stream (push char list)))))
  