anchor.diff:  			(t (let ((fun (assoc ch *FALSE-dictionary*)))
   			     (if fun
   			       `(progn (F-nilcull) (funcall ,(cadr fun)) (F-space))
  -			       `(funcall #'F-integer ,ch))))))
  +			       (if (lowercase-p ch) `(F-push ,ch)
  +			       `(funcall #'F-integer ,ch)))))))
   
   (defmacro FALSE-parse (arg-string)
     `(FALSE-encapsulate ,@(remove-if #'null (mapcar #'FALSE-fun (coerce arg-string 'list)))))
  
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: 	do (setf c (F-pop))
  	when (= c -1) do (funcall fun)
  	)))
  
  (defun F+ () (FALSE-arithmetic #'+))
  (defun F- () (FALSE-arithmetic #'-))
  