anchor.diff:  
       type Wrapper<'T> =
           {
  +            appPath : string
               extra : Dictionary<string, seq<XS.INode>>
               value : 'T
           }
  
positive.code:         | H.TextContent x -> XS.TextNode x :> _
          | H.VerbatimContent x -> XS.CDataNode x :> _
          | H.CommentContent x -> XS.TextNode "" :> _
  
      module Template =
          type LoadFrequency =
  
negative.code: 
      [<Sealed>]
      type Template<'T>(path: string, freq: Template.LoadFrequency, holes: Map<string,Hole<'T>>) =
          let pageTemplate =
              let mutable t = XT.Template<Wrapper<'T>>()
              for (KeyValue (k, v)) in holes do
                  match v with
                  | SH f -> t <- t.With(k, fun x -> f x.value)
                  | EH f -> t <- t.With(k, fun x -> x.extra.[k])
              let appPath (x: Wrapper<_>) =
                  match x.appPath with
                  | "/" -> ""
                  | s -> s
              t <- t.With(ROOT, appPath)
              t <- t.With(ROOT.ToLower(), appPath)
              t <- t.With(SCRIPTS, fun x -> x.extra.[SCRIPTS])
              t <- t.With(SCRIPTS.ToLower(), fun x -> x.extra.[SCRIPTS])
              t
          let basicTemplate =
              let mutable t = XT.CustomTemplate<HtmlElement,HtmlElement,'T>(CustomXml.Instance)
  