anchor.diff:        cons car cdr rplaca rplacd
         apply function
         progn block return return-from tagbody go
  -      * / < >
         mod sqrt sin cos atan exp round floor
         last copy-list nthcdr nth mapcar elt length make-string
         make-array aref code-char char-code
  
positive.code:                  x))
            x))
  
  (defun %+ (&rest x)
    (apply #'+ (chars-to-numbers x)))
  
  (defun %- (&rest x)
    (apply #'- (chars-to-numbers x)))
  
  (defun string== (a b)
    (string-equal a b))
  
negative.code: (defun number- (&rest x) (apply #'%- x))
  (defun integer- (&rest x) (apply #'%- x))
  (defun character- (&rest x) (apply #'%- x))
  (defun * (&rest x) (apply #'%* x))
  (defun / (&rest x) (apply #'%/ x))
  (defun < (&rest x) (apply #'%< x))
  (defun > (&rest x) (apply #'%> x))
  (defun filter (fun x) (mapcar fun x))
  
  (%load "environment/env-load-cl.lisp")
  