anchor.diff:  (defun dom-create-element ((tag string) -> native)
     #{ document.createElement((~tag)) #})
   
  -(defun dom-set-attribute ((element native) (attr-name string) (value object) -> nil)
  -  #{ (~element).setAttribute((~attr-name), (~value)), null #})
  -
   (defun dom-focus ((element native))
     #{ (~element).focus(), null #})
   
  
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-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
  
  