anchor.diff:          (<<= :l t :nyms (<<= l-shift-eq shift-left-eq shl-eq l-shift= shift-left= shl=))
           (>>  :r t :nyms (>> r-shift shift-right shr))
           (>>= :l t :nyms (>>= r-shift-eq shift-right-eq shr-eq >>= r-shift= shift-right= shr=))
  -        (-> :nrp t :nym ->) (-> :nrp t :nym slot)
  -        (#\. :nrp t :nym mem) (#\. :nrp t :nym .>)) ;; fix this bug
  +        )
   
   (preposts (++ :post nil :nyms (++  inc +inc incr pre++ +1 ++n))
             (++ :post t   :nyms (+++ pinc inc+ pincr post++ 1+ n++))
  
positive.code:         (format nil "__global__ ~a" (apply #'func-c args)))
   (cuda/device (&rest args)
          (format nil "__device__ ~a" (apply #'func-c args)))
   (funcarg (nym typ varforms)
  	  (cofy nym)
      (cofy typ)
  	  (cofsy varforms)
  
negative.code: '-va-args-  "__VA_ARGS__"
  '-empty-    " "
  '--         " "
  '-          "_"
  '$          nil)
  
  (defun count-lines-in-file (filename)
    (let ((n 0))
  