anchor.diff:                  R.tr [] [
                       R.th [P.Style [P.TextAlign "right"]] [R.str "Sneaking"]
                       R.td [] [
  -                        if character.HighSkill = Sneaking then 4 else if character.LowSkill = Sneaking then 2 else 3
  +                        if character.HighSkill = Sneaking then 6 else if character.LowSkill = Sneaking then 4 else 5
                           |> string
                           |> R.str
                       ]
  
positive.code:                 R.tr [] [
                      R.th [P.Style [P.TextAlign "right"]] [R.str "Combat"]
                      R.td [] [
                          if character.HighSkill = Combat then 4 else if character.LowSkill = Combat then 2 else 3
                          |> string
                          |> R.str
                      ]
  
negative.code:                 R.tr [] [
                      R.th [P.Style [P.TextAlign "right"]] [R.str "Ritual"]
                      R.td [] [
                          if character.HighSkill = Ritual then 6 else if character.LowSkill = Ritual then 4 else 5
                          |> string
                          |> R.str
                      ]
  