anchor.diff:      (setf (getprop rendering-function-set "code")
   	  ;; stdout is ignored
   	  (lambda (cell result-area value stdout)
  -	    (if (last-cell-p focused-cell)
  -		(let ((first-cell focused-cell))
  -		  (loop for v1 in value do
  -		       (let ((c1 (make-cell focused-cell)))
  -			 (chain (getprop c1 'editor) (get-doc) (set-value v1))))
  -		  (focus-to-next-cell first-cell)
  -		  (eval-forward))
  -		(setf (chain result-area |innerHTML|)
  -		      "<font color='dodgerblue'>This expression must be evaluated as a focused last cell.</font>"))))
  +	    (get-it-focused cell)
  +	    ;; code generation expression itself is overwritten.
  +	    ;; I've given a lot of thought into it
  +	    (chain (getprop cell 'editor) (get-doc) (set-value (first value)))
  +	    (loop for v1 in (rest value) do
  +		 (let ((c1 (make-cell focused-cell)))
  +		   (chain (getprop c1 'editor) (get-doc) (set-value v1))))
  +	    ;; Do not evaluate generated cells
  +	    ;; It's flawed in some ways.
  +	    ))
       
       ;; Render error message
       (setf (getprop rendering-function-set "error")
  
positive.code:     (defun add-cell ()
        (unless (processing-p)
  	(make-cell focused-cell)))
      
      
      ;; Remove a focused-cell and focus goes up
      ;; if there's only one cell do nothing
  
negative.code: 		       (create "Ctrl-Enter"
  			       (lambda (cm)))))
  
  	;; Just include them all for convenience
  	(let ((cell (create no cell-counter
  			    div-outer div-outer
  			    div-main div-main
  			    result-area resultarea
  