anchor.diff:          let model: Model = ofJson json
           match result with
           | Some _ -> model, Cmd.none
  -        | None -> handleNotFount model
  +        | None -> handleNotFound model
       | _ ->
           let user = loadUser ()
           let model =
  
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 urlUpdate (result:Page option) (model: Model) =
      match result with
      | None ->
          handleNotFound model
  
      | Some Page.Login ->
          let m, cmd = Login.init model.User
  