anchor.diff:  (defparameter *FALSE-lambda-mode* nil)
   (defparameter *FALSE-current-lambda* nil)
   (defparameter *FALSE-char-mode* nil)
  +(defparameter *FALSE-string-mode* nil)
   ; To-do: Make all values local to FALSE-parse
   
   (defun F-reset () (setf *FALSE-stack* nil))
  
positive.code:   (loop for input = (read-line)
  	until (equalp input "")
  	do (eval `(FALSE-parse ,input))
  	do (format t "~{~A ~}~%~%CL-FALSE> " (reverse *FALSE-stack*))
  	do (finish-output)))
  
  (FALSE-REPL)
  
negative.code: (defun F-or () (FALSE-bitwise #'bit-ior))
  (defun F-set () (set (intern (coerce `(,(F-pop)) 'string)) (F-pop)))
  (defun F-acc () (F-push (eval (intern (coerce `(,(F-pop)) 'string)))))
  (defun F-cwrite () (write-char (code-char (F-pop))))
  (defun F-iwrite () (format t "~d" (F-pop)))
  ;(defun F-inchar () (F-push (read-char)))
  
  (defmacro FALSE-encapsulate (&rest args) `(progn (F-space) ,@args (F-nilcull)))
  
  (defun FALSE-fun (ch) (cond
  			((equal ch #\") (setf *FALSE-string-mode* (not *FALSE-string-mode*)))
  			(*FALSE-string-mode* (write-char ch))
  			((equal ch #\') (setf *FALSE-char-mode* t) nil)
  			(*FALSE-char-mode* (setf *FALSE-char-mode* nil)
  					   `(F-push (char-code ,ch)))
  			((equal ch #\[) (setf *FALSE-current-lambda* nil)
  					(setf *FALSE-lambda-mode* t) nil)
  			((equal ch #\]) 
  