anchor.diff:               bindings = [ HttpBinding.mk HTTP address (Port.Parse port) ]
             }
   
  -        let runningApp = new FablishInstance<'model,'msg>(app.initial, env, app.update)
  +        let instance = new FablishInstance<'model,'msg>(app.initial, env, app.update)
   
           let onMessage = 
               match onMessage with
                   | Some m -> m
  -                | None -> (fun (model : 'model) msg -> app.update runningApp.Env model msg |> runningApp.EmitModel)
  +                | None -> (fun (model : 'model) msg -> app.update instance.Env model msg |> instance.EmitModel)
           
           let cts = new CancellationTokenSource()
  -        let listening,server = startWebServerAsync defaultConfig (runApp path runningApp onMessage app)
  +        let listening,server = startWebServerAsync defaultConfig (runApp path instance onMessage app)
           
           let t = Async.StartAsTask(server,cancellationToken = cts.Token)
           listening |> Async.RunSynchronously |> printfn "[Fablish-suave] start stats: %A"
           {
                localUrl =  sprintf "http://localhost:%s/mainPage" port
                runningTask = t
  -             instance = runningApp
  -             shutdown  = fun () -> runningApp.Dispose(); cts.Cancel(); 
  +             instance = instance
  +             shutdown  = fun () -> instance.Dispose(); cts.Cancel(); 
           }
   
   
  
positive.code:                         let s = getString data
                          if s =  magic then
                              let mvar = MVar.empty()
                              runningApp.AddViewer mvar
                              let t = runOuterChanges mvar runningApp |> Async.Ignore
                              Async.Start(t,ct)
                              return! runElmLoop mvar runningApp
                          else 
                              return failwithf "initial handshake failed. Web should have said: %s" magic
                      | _ -> return! failwith "initial handshake failed (should have received text)"
              }
  
  
      let runPlain runningApp onMessage app : WebPart =
          path "/ws" >=> handShake (runView runningApp onMessage app)
  
      let runApp mainPage runningApp onMessage app : WebPart =
          choose [
              runPlain runningApp onMessage app
              GET >=> choose [ 
                  path "/mainPage" >=> file mainPage
                  path "/mainPage" >=> OK (EmbeddedResources.extractPage mainPage)
  
negative.code:                 sw.Stop()
                  printfn "[fablish] rendering performed in %f milliseconds" sw.Elapsed.TotalMilliseconds
  
                  let allSubscriptions = Sub.extract sub |> instance.SendSubs
                  currentSubscription <- sub
  
                  let reaction = app.onRendered model view
  