anchor.diff:                                                      |> Seq.map (fun m -> m.Groups.[1].Value, m.Index)
                                                       |> List.ofSeq
                                                   if List.isEmpty holes then
  -                                                    [ <@ Doc.TextNode t @> ]
  +                                                    [ <@ InvokeFunc Doc.TextNode t @> ]
                                                   else
                                                       [
                                                           let l = ref 0
                                                           for name, i in holes do
                                                               if i > !l then
                                                                   let s = t.[!l .. i - 1]
  -                                                                yield <@ Doc.TextNode s @> 
  +                                                                yield <@ InvokeFunc Doc.TextNode s @> 
                                                                   l := i + name.Length + 3
  -                                                            yield <@ Doc.TextView %(getTextVar name) @>
  +                                                            yield <@ InvokeFunc Doc.TextView %(getTextVar name) @>
                                                           if t.Length > !l then
                                                               let s = t.[!l ..]
  -                                                            yield <@ Doc.TextNode s @> 
  +                                                            yield <@ InvokeFunc Doc.TextNode s @> 
                                                       ]   
                                               | _ -> []
                                           ) 
  
positive.code: open IntelliFactory.WebSharper.UI.Next
  
  open IntelliFactory.WebSharper.UI.Next.Templating.ProvidedTypes
  
  [<AutoOpen>]
  module internal Utils =
  
negative.code:                                     | a -> <@ [| %(getDocVar a.Value) |] @>  
  
                                  if isRoot then 
                                      <@ InvokeFunc Doc.Concat %nodes @>
                                  else
                                      let attrs =
                                          e.Attributes() 
                                          |> Seq.filter (fun a -> a.Name <> dataHole) 
                                          |> Seq.map (fun a -> <@ InvokeFunc2 Attr.Create a.Name.LocalName a.Value @>)
                                          |> ExprArray
                                      <@ InvokeFunc3 Doc.Element name %attrs %nodes @>
  
                              | a -> getDocVar a.Value
                          
  