anchor.diff:      | Some Page.Home ->
           { model with PageModel = HomePageModel }, Cmd.none
   
  +let loadUser () =
  +    Utils.load "user"
  +
  +let saveUserCmd user =
  +    Cmd.ofFunc (Utils.save "user") user (fun _ -> LoggedIn user) StorageFailure
  +
  +let deleteUserCmd =
  +    Cmd.ofFunc Utils.delete "user" (fun _ -> LoggedOut) StorageFailure
  +
   let init result =
  -    let user = Utils.load "user"
  +    let user = loadUser ()
       let model =
           { User = user
             PageModel = HomePageModel }
  
positive.code:         Navigation.newUrl (toHash Page.Home)
  
      | Logout(), _ ->
          model, Cmd.ofFunc Utils.delete "user" (fun _ -> LoggedOut) StorageFailure
  
  // VIEW
  
  
negative.code:             if model.User = Some newUser then
                  Cmd.ofMsg (LoggedIn newUser)
              else
                  saveUserCmd newUser
  
          let m,cmd = Login.update LoginMsg onSuccess msg m
          { model with
  