anchor.diff:  (define-reader 'javascript #'js-reader)
   
   ;;;
  -
   
   (defclass arguments (native-hash)
     ((len :initarg :len :reader len)
  
positive.code: 		     `(setf (symbol-function ',(js!intern (first op))) (function ,(second op)))))
  	     ops)))
  
  (js!binary-operators
    + - * /
   (== equalp) < > <= >= (!= /=))
  
  (defmacro js!binary (op-sym ls rs)
    (let ((op (symbol-function op-sym)))
      `(funcall ,op ,ls ,rs)))
  
  (defmacro js!if (exp then else)
    (let ((rexp (gensym)))
      `(let ((,rexp ,exp))
         (cond ((not ,rexp) ,else)
  	     ((and (numberp ,rexp) (zerop ,rexp))
  	      ,else)
  	     (t ,then)))))
  
  (defmacro js!eval (str)
    (intern-keywords (parse-js-string str)))
  
negative.code: (test 101 r3)
  (test 200 r4)
  (test 1 from_inside))
  
  #{javascript}
  function ffib(n)
  {
     var s1 = 1;
     var s2 = 1;
     var  res = 1;
     while(n > 1) {
       res = s1 + s2;
       s1 = s2;
       s2 = res;
       n = n - 1;
     }
     return res;
  }
  .
  