anchor.diff:  	  (if (= sibling undefined)
   	      (chain all-cells (push cell))
   	      (chain all-cells (splice (1+ (cell-position sibling)) 0 cell)))
  +
  +	  (refresh-cell-loc)
   	  
   
   	  ;; add event to div-outer
  
positive.code: 	   (getprop all-cells
  		    (if (= n 0)
  			0
  			(- n 1))))))
        
        )
  
  
negative.code:       (let ((div-outer (chain document (create-element "div")))
  	    (div-main (chain document (create-element "div") ))
  	    (textarea (chain document (create-element "textarea")))
  	    (resultarea (chain document (create-element "div")))
  	    ;; cell location
  	    (cell-loc-area (chain document (create-element "div")))
  
  	    )
  
  	;; I think the following some lines must go to css file
  	;; But I will just leave it be for this experiental phase.
  	
  	;; style
  	;; 	(setf (chain resultarea style overflow) "auto")
  	(setf (chain div-main style border-style) "solid")
  	(setf (chain div-main style border-radius) "0.5em")
  	;; invisible border
  