anchor.diff:                  "hasFocus" => T<unit -> bool>
                   "queryCommandEnabled" => T<string -> bool>
                   "queryCommandSupported" => T<string -> bool>
  +
  +                "createNodeIterator" => (Node * !?T<int> * !?NodeFilter) ^-> NodeIterator
  +                "createTreeWalker" => (Node * !?T<int> * !?NodeFilter) ^-> TreeWalker
  +
  +                "createRange" => T<unit> ^-> Range
  +                "createEvent" => T<string> ^-> Event
               ]
           |+> Static [
                   "Current" =? Document
  
positive.code:     let DOMLocator = Class "DOMLocator"
      let Event = Class "Event"
      let AbstractView = Class "AbstractView"
  
  [<AutoOpen>]
  module private Enumerations =
  
negative.code:     let Node =
          Class "Node"
          |=> Inherits EventTarget
          |+> Static [
                  "ELEMENT_NODE" =? T<int>
                  "ATTRIBUTE_NODE" =? T<int>
                  "TEXT_NODE" =? T<int>
                  "CDATA_SECTION_NODE" =? T<int>
                  "ENTITY_REFERENCE_NODE" =? T<int>
                  "ENTITY_NODE" =? T<int>
                  "PROCESSING_INSTRUCTION_NODE" =? T<int>
                  "COMMENT_NODE" =? T<int>
                  "DOCUMENT_NODE" =? T<int>
                  "DOCUMENT_TYPE_NODE" =? T<int>
                  "DOCUMENT_FRAGMENT_NODE" =? T<int>
                  "NOTATION_NODE" =? T<int>
  
                  "DOCUMENT_POSITION_DISCONNECTED" =? T<int>
                  "DOCUMENT_POSITION_PRECEDING" =? T<int>
                  "DOCUMENT_POSITION_FOLLOWING" =? T<int>
                  "DOCUMENT_POSITION_CONTAINS" =? T<int>
                  "DOCUMENT_POSITION_CONTAINED_BY" =? T<int>
                  "DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC" =? T<int>
              ]
          |+> Instance [
                  "attributes" =@ NamedNodeMap
                  "baseURI" =? T<string>
  