anchor.diff:          let expected = n |> ZonkKata.Roll.FiveOfAKindPoints
           let actual = roll |> ZonkKata.Roll.CalculatePoints
           test <@ expected = actual @>
  +
  +    [<FiveOfAKindWithExtraPointsProperty>]
  +    let ``Five of a kind with extra points should return more than the five of a kind points.`` (n : int, roll : int list) =
  +        let expected = n |> ZonkKata.Roll.FiveOfAKindPoints
  +        let actual = roll |> ZonkKata.Roll.CalculatePoints
  +        test <@ expected < actual @>
  
positive.code:         }
          g |> Arb.fromGen
  
  type ThreeOfAKindWithAnotherThreeOfAKind =
      static member Roll() =
          let g = gen {
  
negative.code:             return Common.oneOrFiveRoll()
          }
          g |> Arb.fromGen
  
  type FiveOfAKindWithExtraPointsPropertyAttribute () =
      inherit PropertyAttribute (
          Arbitrary = [| typeof<FiveOfAKindWithExtraPoints> |])
  
  type FiveOfAKindWithNoExtraPointsPropertyAttribute () =
      inherit PropertyAttribute (
  