anchor.diff:  	    (format nil "~a<<<~{~a~^,~}>>>(~{~a~^,~})" nym ijk (mapcar #'cof args)))
    (str (&rest x)
         (cofsy x)
  -      (format nil "\"~{~a~}\"" x))
  +      (format nil "\"~{~a~^ ~}\"" x))
    (char (x)
         (cofy x)
         (format nil "'~a'" x))
  
positive.code:        (format nil "~a ~a(~a)~a" typ nym (vars-c vars #\, nil)
  	       (if body (block-c body) "")))
   (cuda/global (&rest args)
  	      (format nil "__global__ ~a" (apply #'func-c args)))
   (funcarg (nym typ varforms)
  	  (cofy nym)
      (cofy typ)
  
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 #\} "") ))
  