anchor.diff:  
     let rec render (htmlNode: HTMLNode) : unit =
       match htmlNode with
  -    | HTMLNode.Text str -> html.Append(escapeHtml str)
  -    | HTMLNode.RawText str -> html.Append(str)
  +    | HTMLNode.Text str -> escapeHtml html str
  +    | HTMLNode.RawText str -> append str
       | HTMLNode.Node (tag, attrs, children) ->
         append "<"
         append tag
   
  -      let child = renderAttrs append attrs tag
  +      let child = renderAttrs html attrs tag
   
         if voidTags.Contains tag then 
           append "/>"
  
positive.code:       | "textarea", DefaultValue v ->
            childHtml <- Some v
        | _, _ ->
          append(renderHtmlAttr attr)
          append(" ") |> ignore
      | :? SVGAttr as attr ->
        append(renderSVGAttr attr) 
        append(" ")
      | _ -> ()
  
    childHtml
  
negative.code:         append ">"
      | HTMLNode.List nodes ->
          for node in nodes do
            render (castHTMLNode node)
      | HTMLNode.Empty -> ()
  
    render htmlNode
  