anchor.diff:    (loop for input = (read-line)
   	until (equalp input "")
   	do (eval `(FALSE-parse ,input))
  -	do (format t "~{~A ~}~%~%CL-FALSE> " (reverse *FALSE-stack*))
  +	do (format t "~%~{~A ~}~%~%CL-FALSE> " (reverse *FALSE-stack*))
   	do (finish-output)))
   
   (FALSE-REPL)
  
positive.code: 	until (= c 0)
  	do (funcall con)
  	do (setf c (F-pop))
  	when (= c -1) do (funcall fun)
  	)))
  
  (defun F+ () (FALSE-arithmetic #'+))
  (defun F- () (FALSE-arithmetic #'-))
  
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 #\]) 
  