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:     (#\! 'F-exec)
      (#\? 'F-cond)
      (#\# 'F-while)
      ))
  
  ;;; to-do:
  ;;;	Variables:		a-z : ;
  ;;;	I/O:			^ , " . eszett
  ;;;	Comments:		{ }
  
  
negative.code: (defun F-nilcull () (when (null (car *FALSE-stack*)) (F-pop)))
  
  (defun F-space () (when (typep (car *FALSE-stack*) 'fixnum) (push nil *FALSE-stack*)))
  
  (defun lowercase-p (ch) (and (>= (char-int ch) (char-int #\a))
  			     (<= (char-int ch) (char-int #\z))))
  
  (defmacro FALSE-rearr (to-pop &rest pushing)
      `(let ,(loop for i from 1 to to-pop
  