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