anchor.diff:                          regions <- r
                       | _ -> ()
   
  -                    this.Username.Text <- identity.Name
  +                    this.Username.Text <- 
  +                        match identity.Name with
  +                        | "Guest" -> String.Empty
  +                        | _ -> identity.Name
  +
                       this.GenderSelect.SelectedSegment <-
                           match profile.Gender with
                           | GenderType.Female -> 1
  
positive.code:                 controller.Region.Text <- region.Value.Name
          }
  
  
      [<Outlet>]
      member val Birthday:UITextField = null with get, set
  
negative.code:                 (Settings.updateProfile
                      (this.Username.Text.Trim())
                      (match this.GenderSelect.SelectedSegment with | 0 -> GenderType.Male | 1 -> GenderType.Female | _ -> GenderType.Undefined)
                      (match DateTime.TryParse(this.Birthday.Text) with | true, date -> date | _ -> defaultDate)
                      (match country with | Some country -> country.Id | None _ -> String.Empty)
                      (match region with | Some region -> region.Name | None _ -> String.Empty)
                      (this.City.Text.Trim())
  