anchor.diff:                      let idx : int = unbox e.nativeEvent.srcElement?selectedIndex
                       match idx with
                       | 0 ->
  -                        let newLowSkill = if character.LowSkill <> Persuasion then character.LowSkill else Combat
  -                        { character with HighSkill = Persuasion; LowSkill = newLowSkill }
  +                        updateHighSkill Persuasion Combat character
                       | 1 ->
  -                        let newLowSkill = if character.LowSkill <> Combat then character.LowSkill else Persuasion
  -                        { character with HighSkill = Combat; LowSkill = newLowSkill }
  +                        updateHighSkill Combat Persuasion character
                       | 2 ->
  -                        let newLowSkill = if character.LowSkill <> Ritual then character.LowSkill else Persuasion
  -                        { character with HighSkill = Ritual; LowSkill = newLowSkill }
  +                        updateHighSkill Ritual Persuasion character
                       | 3 ->
  -                        let newLowSkill = if character.LowSkill <> Sneaking then character.LowSkill else Persuasion
  -                        { character with HighSkill = Sneaking; LowSkill = newLowSkill }
  +                        updateHighSkill Sneaking Persuasion character
                       | i ->
                           printfn "Could not recognive index %d" i
                           character
  
positive.code: 
  [<Emit("$0.options[$0.selectedIndex].value")>]
  let private getSelectedValue (srcElement : Element) : string = jsNative
  
  let view character dispatch =
      R.div [] [
  
negative.code:                     |> dispatch)]
                  [
                      if character.HighSkill <> Persuasion then
                          yield makeValueOption "persuasion" "talking to people" (character.LowSkill = Persuasion)
                      if character.HighSkill <> Combat then
                          yield makeValueOption "combat" "fighting" (character.LowSkill = Combat)
                      if character.HighSkill <> Ritual then
                          yield makeValueOption "ritual" "using magic" (character.LowSkill = Ritual)
                      if character.HighSkill <> Sneaking then
                          yield makeValueOption "sneaking" "athletics" (character.LowSkill = Sneaking)
                  ]
          ]
          R.h3 [] [R.str "With these choices, Pompeia will have the following stats:"]
  