anchor.diff:  
   ;; Common List Functions
   (defmacro caar (x) `(car (car ,x)))
  +(defmacro cddr (x) `(cdr (cdr ,x)))
   (defmacro cadr (x) `(car (cdr ,x)))
   (defmacro caddr (x) `(car (cdr (cdr ,x))))
   (defmacro cadar (x) `(car (cdr (car ,x))))
  
positive.code: ;; Stdio macros
  (defmacro printf (fs & a) `(print (format ,fs ,@a)))
  (defmacro println (x) `(printf "%s\n" ,x))
  
negative.code: 
  ;; More normal flow control
  (defmacro if (p x y) `(cond (,p ,x) (t ,y)))
  (defmacro if-not (p x y) `(if (not ,p) ,x ,y))
  (defmacro when (p & b) `(if ,p (do ,@b) nil))
  (defmacro when-not (p & b) `(when (not ,p) ,@b))
  (def unless when-not)
  
  ;; Append
  (defun append (x y)
  