anchor.diff:  
   (defun dom-keydown ((element native) (callback function))
     #{ $(~element).keydown(~(native-callback callback)), null #})
  +
  +(defun dom-onclick ((element native) (callback function))
  +  #{ $(~element).click(~(native-callback callback)), null #})
   
   ;;;; Hypertext Markup Language
   
  
positive.code: (define-native-slot element-scroll-top "scrollTop")
  (define-native-slot element-value "value")
  (define-native-slot event-which "which")
  (define-native-slot node-value "nodeValue")
  
  ;;; Scripts
  
  
negative.code: (defun dom-create-element ((tag string) -> native)
    #{ document.createElement((~tag)) #})
  
  (defun dom-focus ((element native))
    #{ (~element).focus(), null #})
  
  