anchor.diff:          | EncodedText text      -> do sb +! (WebUtility.HtmlEncode text)
           | RawText text          -> do sb +! text
           | ParentNode (e, nodes) -> do writeParentNode (e, nodes)
  -        | VoidElement e         -> do writeStartElement (selfClosingBracket htmlStyle) e
  +        | VoidElement e         -> do writeStartElement sb (selfClosingBracket htmlStyle) e
   
       let renderXmlNode = 
           appendNodeToStringBuilder false 
  
positive.code:             do sb += "</" += elemName +! ">"
  
          let inline writeParentNode (elem : XmlElement, nodes : XmlNode list) =
              do writeStartElement ">" elem
              do List.iter (appendNodeToStringBuilder htmlStyle sb) nodes
              do writeEndElement elem
  
  
negative.code:     let inline private (+=) (sb:StringBuilder) (text:string) = sb.Append(text)
      let inline private (+!) (sb:StringBuilder) (text:string) = sb.Append(text) |> ignore
  
      let inline private selfClosingBracket isHtml  =
          match isHtml with
          | false -> " />"
          | true  -> ">"
  
      let rec private appendNodeToStringBuilder (htmlStyle : bool) (sb : StringBuilder) (node : XmlNode) : unit =
          
          let writeStartElement (sb : StringBuilder) closingBracket (elemName, attributes : XmlAttribute array) =
              match attributes with
              | [||] -> do sb += "<" += elemName +! closingBracket
              | _    -> 
  