anchor.diff:  
   (defun macros.reverse (arr)
     (defvar reversed (list))
  -  (each (item) arr (send reversed unshift item))
  +  (each (item) arr (reversed.unshift item))
     reversed)
   
   (defvar reverse macros.reverse)
  
positive.code:     (try
       (if (array? token)
  	 (if (defined? (get macros (translate (first token))))
  	     (apply (get macros (translate (first token))) (send token slice 1))
  	   (apply (get macros (or hint 'call)) token))
         (if (and (string? token) (send token match /^[*\.a-z-]+\??$/))
  	   (literal token)
  	 (if (and (string? token) (send token match /^;/
  					))
  	     (send token replace /^;+/ "//"
  		   )
  	   (if (and (string? token) (= "\"" (first token)))
  	       (chain token (split "\n") (join "\\n"))
  
negative.code:   (inject (chain string
  		 (replace /\*/g "_")
  		 (replace /\?$/ "Q"))
  	  (string.match /-(.)/g)
  	  (lambda (return-string match)
  	    (return-string.replace match
  		  (send (second match) to-upper-case)))))
  
  
  