anchor.diff:    (if (stringp x) x
         (let ((s (strof x)))
   	(if (numeric-string s) s
  -	    (if (eq (char s 0) #\!) (replace-char #\- #\_ (subseq s 1))
  +	    (if (eq (char s 0) #\!) (replace-char #\- #\_ (cof (subseq s 1)))
   		(replace-char #\- #\_ (string-downcase s)))))))
   
   (defmacro sethash (k v hash)
  
positive.code: ;; SYNONYMS
  
  ;;; CUDA STUFF
  (csyn 'cuda/malloc "cudaMalloc")
  (csyn 'cuda/memcpy "cudaMemcpy")
  (csyn 'cuda/free "cudaFree")
  (csyn 'cuda/host->dev "cudaMemcpyHostToDevice")
  (csyn 'cuda/dev->host "cudaMemcpyDeviceToHost")
  (csyn 'cuda/dev/count "cudaDeviceCount")
  (csyn 'cuda/dev/set "cudaSetDevice")
  (csyn 'cuda/dev/get "cudaGetDevice")
  (csyn 'cuda/dev/props "cudaDeviceProperties")
  (csyn 'cuda/sync "__syncthreads")
  (csyn 'block/idx "blockIdx")
  (csyn 'block/idx/x "blockIdx.x")
  (csyn 'block/idx/y "blockIdx.y")
  (csyn 'block/idx/z "blockIdx.z")
  (csyn 'thread/idx "threadIdx")
  (csyn 'thread/idx/x "threadIdx.x")
  (csyn 'thread/idx/y "threadIdx.y")
  (csyn 'thread/idx/z "threadIdx.z")
  (csyn 'block/dim "blockDim")
  (csyn 'block/dim/x "blockDim.x")
  (csyn 'block/dim/y "blockDim.y")
  (csyn 'block/dim/z "blockDim.z")
  (csyn 'dim/block "dimBlock")
  (csyn 'dim/grid "dimGrid")
  
  ;;; BASIC STUFF
  (csyn 'null "NULL")
  (csyn 'arg/c "argc")
  (csyn 'arg/count "argc")
  (csyn 'arg/v "argv")
  (csyn 'arg/values "argv")
  (csyn 'integer "int")
  (csyn 'integer+ "long")
  (csyn 'real "float")
  (csyn 'real+ "double")
  (csyn 'boolean "char")
  (csyn 'cstring "char*")
  
  (defun count-lines-in-file (filename)
    (let ((n 0))
  
negative.code:        (if typs 
  	   (apply #'cast-c (cast-c nym typ) typs)
  	   (format nil "((~a)(~a))" (cof typ) (cof nym))))
   (var (x &optional (type 'int) init &rest modifiers)
        (cofy x)
        (cofy type)
        (format nil "~a~a ~{~a~^,~}~a" (if modifiers (format nil "~{~a ~}" (mapcar #'cof modifiers))    "") type (f/list x) (if init (format nil "=~a" (cof init)) "")))
   (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))
  