anchor.diff:        (format nil "~{~a~}(~a)" (loop for i from 1 to n collect #\*) (cof x)))
    (pt (x &optional (n 1))
        (format nil "~{~a~}~a" (loop for i from 1 to n collect #\*) (cof x)))
  - (nth (x &optional (n 0) &rest nils)
  + (nth (x &optional (n 0) &rest ns)
         (format nil "(~a)[~a]~a" (cof x) (cof n)
   	      (if ns
   		  (format nil "~{[~a]~}" (mapcar #'cof ns)) "")))
  
positive.code:  (enum (nym mems)
         (cofy nym)
         (cofsy mems)
         (format nil "enum ~a{~{~a~}};~%" nym mems))
   (h-file (nym)
  	 (cofy nym)
  	 (format nil "~a.h" nym))
  
negative.code:        (format nil (format nil "~~{~~a~~^~(~a~a~)~~}" inter (if newline #\Newline "")) x))
   (varlist (args)
            (vars-c args #\;))
   (struct (nym &optional vars)
  	 (cofy nym)
  	 (if vars
  	     (format nil "struct ~a{~a;~%  }" nym (vars-c vars #\;))
  	     (format nil "struct ~a" nym)))
   (block (lines &optional (bracket t))
     (format nil "~a~%~{   ~a~^~(;~%~)~};~%~a" (if bracket #\{ "") (mapcar #'cof (f/list lines)) (if bracket #\} "") ))
  