anchor.diff:  
   type ILocalized = 
       abstract member path: string
  -    abstract member site : ISite option
   
   type IPage = 
       inherit ILocalized
  
positive.code: type IApplicationV2 = 
      inherit IApplicationCore
      abstract member getPages : unit -> (IPage array)
      abstract member getSites : unit -> (ISite2 array)
      abstract member getScheduledTasks : unit -> (IScheduledTask array)
  
  type ApplicationV2EndPoint(page:IPage, task:IScheduledTask option) =
  
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
  