anchor.diff:              {
                   Model = appSpec.InitState
                   Render = render
  -                RenderState = NoRequest
                   Subscribers = appSpec.Subscribers
                   Actions = []
               } : App<'TModel, 'TMessage, 'TView>
  -        let handleMessage' = handleMessage updateFn
  -        let handleDraw' = handleDraw viewFn
  +        let handleMessage' = handleMessage updateFn viewFn
           let handleReplay' = handleReplay viewFn updateFn
           let configureProducers' = configureProducers appSpec.Producers
  -        application handleMessage' handleDraw' handleReplay' configureProducers' createInitApp
  +        application handleMessage' handleReplay' configureProducers' createInitApp
  
positive.code: 
      let render post viewFn app =
          let view = viewFn app.Model
          app.Render post view
          app
  
      let createActions post = List.map (fun a -> fun () -> a (Message >> post))
  
      let requestDraw scheduleDraw = 
          function
          | NoRequest -> 
              scheduleDraw()
              InProgress
          | InProgress -> InProgress
      
      let handleMessage update scheduleDraw post notifySubs message app =
          notifySubs (ActionReceived message)
          let (model, actions) = update app.Model message
  
  
negative.code:     type AppMessage<'TMessage, 'TModel> =
          | Message of 'TMessage
          | Replay of 'TModel*((System.Guid*'TMessage) list)
  
      type Action<'TMessage> = Handler<'TMessage> -> unit
  
  