anchor.diff:  
         (defun by-selector (selector)
   	(chain document (query-selector selector)))
  +
  +      (defun dom-append (elem markup)
  +	(let ((new-content (chain document (create-element "div"))))
  +	  (setf (@ new-content inner-h-t-m-l) markup)
  +	  (loop while (@ new-content first-child)
  +	     do (chain elem (append-child (@ new-content first-child))))))
  +
  +      (defun dom-set (elem markup)
  +	(setf (@ elem inner-h-t-m-l) markup))
   
         (defun by-selector* (selector)
   	(chain document (query-selector-all selector)))
  
positive.code:   (ps (dom-ready 
         (lambda ()
  	 (chain console (log "something!"))
  	 (chain (by-selector "input") 
  		(add-event-listener 
  		 :keydown (lambda (event)
  			    (when (= 13 (@ event key-code))
  			      (post "/eval" (create :thing (@ (by-selector "input") value))
  				    (lambda (res)
  				      (chain console (log res))))))))))))
  
  (defvar *server* (bt:make-thread (lambda () (start 4242))))
  
negative.code: 	(eql (chain -object prototype to-string (call obj)) type-string))
        (defun object? (obj) (type? obj "[object Object]"))
  
        (defun join (strings &optional (separator "")) (chain strings (join separator)))
  
        (defun encode (string)
  	(encode-u-r-i-component string))
       
        (defun string->obj (string)
  	(chain -j-s-o-n (parse string)))
  
        (defun obj->string (object)
  	(chain -j-s-o-n (stringify object)))
  
        (defun obj->params (object)
  	(let ((res (new (-array))))
  