anchor.diff:                      if List.isEmpty a then "Enumerable.Empty<" + typ + ">()" else "new[]{ " + String.concat ", " a + " }"
   
                   if isRoot then 
  -                    "SDoc.Concat(" + listToSeq nodes "Doc" + ")"
  +                    if isSingleElt then 
  +                        nodes.Head
  +                    else    
  +                        "SDoc.Concat(" + listToSeq nodes "Doc" + ")"
                   else
                       let n = e.Name.LocalName
                       let var a unchecked =
  
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:             name, if wrap then XElement(xn"body", e) else e
          )
  
      let addTemplateMethod (t: XElement) name =
          let holes = Dictionary()
  
          let getSimpleHole name typ =
  