anchor.diff:  	 `(%transpiler-native ,,x ,(string-downcase (string name)) " " ,,y)))
   
   (defun transpiler-binary-expand (op args)
  -  (nconc (list "(")
  -		 (mapcan #'(lambda (x)
  +  (nconc (mapcan #'(lambda (x)
   					 `(,x ,op))
   				 (butlast args))
  -		 (last args)
  -		 (list ")")))
  +		 (last args)))
   
   (defmacro define-transpiler-binary (tr op repl-op)
     `(define-expander-macro ,(transpiler-macro-expander (eval tr)) ,op (&rest args)
  -     (transpiler-binary-expand ,repl-op args)))
  +     `("(" ,,@(transpiler-binary-expand ,repl-op args) ")")))
   
   ;;;; STANDARD MACRO EXPANSION
   
  
positive.code: 	              (if (and (identity? e) (eq '~%ret (second e))) ; Remove (IDENTITY ~%RET).
  		              (transpiler-finalize-sexprs tr (cdr x))
  				      ; Just copy with seperator. Make return-value assignment if missing.
  		              (cons (if (and (consp e) (not (or (vm-jump? e) (%setq? e))))
  							    `(%setq ~%ret ,e)
  							    e)
  						    (cons separator
  
negative.code: 		 str (string s)
  	     l (length str))
  
  	(if (or (stringp s)
  			(numberp s))
  		str
          (list-string
  	      (convert-special
  