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