anchor.diff:  
           let stringLiteral (t: string) =
               "\"" + t.Replace("\\", "\\\\").Replace("\"", "\\\"").Replace("\n", "\\n").Replace("\r", "\\r") + "\""    
  +
  +        let isSingleElt =
  +            let firstNode = t.FirstNode
  +            isNull firstNode.NextNode &&
  +            firstNode.NodeType = Xml.XmlNodeType.Element &&
  +            isNull ((firstNode :?> XElement).Attribute(dataReplace))
   
           let rec createNode isRoot (e: XElement) =
               match e.Attribute(dataReplace) with
  
positive.code:             name, if wrap then XElement(xn"body", e) else e
          )
  
      let addTemplateMethod (t: XElement) =
          let holes = Dictionary()
  
          let getSimpleHole name typ =
  
negative.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 name
                  yield "        }"
  
              yield "        " + addTemplateMethod xml templateName
  
              yield "    }"
              yield "    }"
          ]
      String.concat Environment.NewLine lines
  