anchor.diff:  let urlUpdate (result:Page option) (model: Model) =
       match result with
       | None ->
  -        handleNotFount model
  +        handleNotFound model
   
       | Some Page.Login ->
           let m, cmd = Login.init model.User
  
positive.code: JsInterop.importSideEffects "whatwg-fetch"
  JsInterop.importSideEffects "babel-polyfill"
  
  let handleNotFount (model: Model) =
      Browser.console.error("Error parsing url: " + Browser.window.location.href)
      ( model, Navigation.modifyUrl (toPath Page.Home) )
  
  
negative.code:         let model: Model = ofJson json
          match result with
          | Some _ -> model, Cmd.none
          | None -> handleNotFound model
      | _ ->
          let user = loadUser ()
          let model =
  