anchor.diff:      '(%set-atom-fun %not cpr rplacp %load atan2 pow quit string-concat %load
         %eval %defun early-defun %defvar %defmacro %string %make-symbol
         %symbol-name %symbol-value %symbol-function %symbol-package
  -      %number? == %integer %+ %- %* %/ %< %>
  +      %number? == number== integer== character== %integer %+ %- %* %/ %< %>
         string== list-string
         =-aref
         %make-hash-table href =-href
  
positive.code: 
  
  (defun == (&rest x) (apply #'= (chars-to-numbers x)))
  (defun %+ (&rest x) (apply #'+ (chars-to-numbers x)))
  (defun %- (&rest x) (apply #'- (chars-to-numbers x)))
  (defun %* (&rest x) (apply #'* (chars-to-numbers x)))
  
negative.code:       (string? stringp)
        (array? arrayp)
        (character? characterp)
        (number< <)
        (integer< <)
        (character< <)
  