anchor.diff:   (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))
  - (struct (nym &optional vars)
  + (varlist (args)
  +          (vars-c args #\;))
  +  (struct (nym &optional vars)
   	 (cofy nym)
   	 (if vars
   	     (format nil "struct ~a{~a;}" nym (vars-c vars #\;))
  
positive.code: 
  ;;; CUDA STUFF
  (macropairs csyn
  'cuda/malloc "cudaMalloc"
  'cuda/memcpy "cudaMemcpy"
  'cuda/free "cudaFree"
  'cuda/host->dev "cudaMemcpyHostToDevice"
  'cuda/dev->host "cudaMemcpyDeviceToHost"
  'cuda/dev/count "cudaDeviceCount"
  'cuda/dev/set "cudaSetDevice"
  'cuda/dev/get "cudaGetDevice"
  'cuda/dev/props "cudaDeviceProperties"
  'cuda/sync "__syncthreads"
  'block/idx "blockIdx"
  'block/idx/x "blockIdx.x"
  'block/idx/y "blockIdx.y"
  'block/idx/z "blockIdx.z"
  'thread/idx "threadIdx"
  'thread/idx/x "threadIdx.x"
  'thread/idx/y "threadIdx.y"
  'thread/idx/z "threadIdx.z"
  'block/dim "blockDim"
  'block/dim/x "blockDim.x"
  'block/dim/y "blockDim.y"
  'block/dim/z "blockDim.z"
  'dim/block "dimBlock"
  'dim/grid "dimGrid"
  
  ;; MPI STUFF
  'mpi/success            "MPI_SUCCESS"
  
negative.code:       (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)
        (format nil "(~a)[~a]~a" (cof x) (cof n)
  	      (if ns
  		  (format nil "~{[~a]~}" (mapcar #'cof ns)) "")))
  