anchor.diff:                                                  %nodes :> _ @>
                                           else failwithf "data-var attribute \"%s\" on invalid element \"%s\"" a.Value n
   
  +                            | SpecialHole as a ->
  +                                let elName = e.Name.LocalName
  +                                let attrValue = a.Value
  +                                <@ Doc.Element elName [|Attr.Create "data-replace" attrValue |] [||] :> _ @>
                               | a -> getSimpleHole a.Value
                           
                           let mainExpr = t |> createNode true
  
positive.code:                                             | _ -> []
                                          ) 
                                          |> ExprArray
                                      | a -> <@ [| %(getSimpleHole a.Value) |] @>
  
                                  if isRoot then 
  
negative.code:     let dataVar = xn"data-var"
      let dataAttr = xn"data-attr"
      let dataEvent = "data-event-"
      let (|SpecialHole|_|) (a: XAttribute) =
          match a.Value.ToLowerInvariant() with
          | "scripts" | "meta" | "styles" -> Some()
          | _ -> None
  
      do
          this.Disposing.Add <| fun _ ->
  