anchor.diff:                  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
  
positive.code:                         H.NewAttribute k.Local v :> H.INode<_>))
                  |> H.NewElement name.Local
  
      [<Sealed>]
      type Template<'T>(path: string, freq: Template.LoadFrequency, holes: Map<string,Hole<'T>>) =
          let pageTemplate =
  
negative.code:                 extra = extra
                  value = x
              }
              |> postProcess env.AppPath
  
      let WithTemplate<'Action,'T>
          (template: Template<'T>)
  