anchor.diff:  	do (setf c (F-pop))
   	when (= c -1) do (funcall fun)
   	)))
  -;;; Test: 1[$100\\>][1+]# should leave 100 on the stack
   
   (defun F+ () (FALSE-arithmetic #'+))
   (defun F- () (FALSE-arithmetic #'-))
  
positive.code:     (#\! 'F-exec)
      (#\? 'F-cond)
      (#\# 'F-while)
      ))
  
  ;;; to-do:
  ;;;	Variables:		a-z : ;
  ;;;	I/O:			^ , " . eszett
  ;;;	Comments:		{ }
  
  
negative.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)
  