anchor.diff:                  raise e
   
       let xml = parseXml htmlString
  -
  -    let isSingleElt =
  -        let firstNode = xml.FirstNode
  -        isNull firstNode.NextNode &&
  -        firstNode.NodeType = Xml.XmlNodeType.Element &&
  -        isNull ((firstNode :?> XElement).Attribute(dataReplace))
   
       let innerTemplates =
           xml.Descendants() |> Seq.choose (fun e -> 
  
positive.code:             yield "using CAttr = WebSharper.UI.Next.Client.Attr;"
              yield "namespace " + namespaceName
              yield "{"
              yield "[JavaScript]"
              yield "public static class " + templateName
              yield "{"
  
              for name, e in innerTemplates do
                  yield "public static class " + name
                  yield "{"
                  yield! addTemplateMethod e
                  yield "}"
  
              yield! addTemplateMethod xml
  
              yield "}"
              yield "}"
          ]
      String.concat Environment.NewLine lines
  
negative.code:                     if List.isEmpty a then "Enumerable.Empty<" + typ + ">()" else "new[]{ " + String.concat ", " a + " }"
  
                  if isRoot then 
                      if isSingleElt then 
                          nodes.Head
                      else    
                          "SDoc.Concat(" + listToSeq nodes "Doc" + ")"
                  else
                      let n = e.Name.LocalName
                      let var a unchecked =
  