anchor.diff:   (if (test ifyes &optional ifno)
        (cofy test)
        (cofy ifyes)
  -     (format nil "if(~a){~%   ~a;~%}~a"  test ifyes (if ifno (format nil "else{~%   ~a;~%}"(cof ifno)) "")))
  +     (format nil "if(~a) {~%   ~a;~%}~a"  test ifyes (if ifno (format nil "else{~%   ~a;~%}"(cof ifno)) "")))
    (cond (pairs)
  -       (format nil "if(~a){~{~%  ~a;~}~%}~{~a~}" (cof (caar pairs)) (mapcar #'cof (f/list (cadar pairs)))
  +       (format nil "if(~a) {~{~%  ~a;~}~%}~{~a~}" (cof (caar pairs)) (mapcar #'cof (f/list (cadar pairs)))
   	       (mapcar #'(lambda (pair) (format nil "else if(~a){~{~%   ~a;~}~%}"
   						(cof (car pair)) (mapcar #'cof (f/list (cadr pair))))) (cdr pairs))))
    (main (&rest body)
  -       (format nil "int main(int argc,char** argv)~a" (block-c body)))
  +       (format nil "int main(int argc,char **argv)~a" (block-c body)))
    (for (a b c &rest lines)
         (cofy a) (cofy b) (cofy c)
         (format nil "for(~a;~a;~a)~a" a b c (block-c lines)))
    (while (test &rest lines)
      (cofy test)
  -   (format nil "while(~a)~a" test (block-c lines)))
  +   (format nil "while(~a) ~a" test (block-c lines)))
    (do-while (test &rest lines)
      (cofy test)
      (format nil "do~awhile(~a)" (block-c lines) test))
  
positive.code: 	(format nil "(~a)" x))
   (comment  (&rest xs)
             (let* ((small (eq (car xs) 's))
                    (s (format nil "/* ~{~a~} */~%" (mapcar #'cof (if small (cdr xs) xs))))
                    (v (if small "" (format nil "/**~{~a~}**/~%" (loop for i from 1 to (- (length s) 7) collect #\*)))))
  	     (format nil "~%~a~a~a~%" v s v)))
   (header (nym &key local)
  
negative.code:  (vars (x &optional (inter #\,) (newline t))
         (setf x (mapcar #'(lambda (y) (apply #'var-c (f/list y))) (f/list/n x 1)))
         (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 #\;))
  