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