Document :== Heading [Tag ... ]
Heading :== "<" [!">" ...] ">"
Tag :== "<" { TagName [Assignment ...]} ">" {Value|Substructure} "</" Tagname ">"
Value :== [!"</" ...]
Substructure :== [Tag...]
Assignment :== name "=" QuotedString