anchor.diff:  type IApplicationV2 = 
       inherit IApplicationCore
       abstract member getPages : unit -> (IPage array)
  -    abstract member getSites : unit -> (ISite2 array)
  +    abstract member getSites : unit -> (string array)
       abstract member getScheduledTasks : unit -> (IScheduledTask array)
   
   type ApplicationV2EndPoint(page:IPage, task:IScheduledTask option) =
  
positive.code: 
  type ILocalized = 
      abstract member path: string
      abstract member site : ISite option
  
  type IPage = 
      inherit ILocalized
  
negative.code:     member m.ScheduledTask = task
      interface IEndPoint
  
  type ApplicationV2Site(site:string) =
      member m.Site = site
      interface ISite
  
  let logD isDebug message =
      if isDebug then log message
  