anchor.diff:      (#\! 'F-exec)
       (#\? 'F-cond)
       (#\# 'F-while)
  +    (#\: 'F-set)
  +    (#\; 'F-acc)
       ))
   
   ;;; to-do:
  -;;;	Variables:		a-z : ;
   ;;;	I/O:			^ , " . eszett
   ;;;	Comments:		{ }
   
  
positive.code: (defun F-nilcull () (when (null (car *FALSE-stack*)) (F-pop)))
  
  (defun F-space () (when (typep (car *FALSE-stack*) 'fixnum) (push nil *FALSE-stack*)))
  
  (defmacro FALSE-rearr (to-pop &rest pushing)
      `(let ,(loop for i from 1 to to-pop
  
negative.code: (defparameter *FALSE-lambda-mode* nil)
  (defparameter *FALSE-current-lambda* nil)
  (defparameter *FALSE-char-mode* nil)
  ; To-do: Make all values local to FALSE-parse
  
  (defun F-reset () (setf *FALSE-stack* nil))
  
  