anchor.diff:          let expected = 300
           let actual = [2; 2; 2; 1; 3; 4] |> ZonkKata.Roll.CalculatePoints
           test <@ expected = actual @>
  +
  +    [<ThreeOfAKindWithNoMorePointsProperty>]
  +    let ``Three of a kind of die N and no more points should return three of a kind points for N.`` ((n : int), (roll : int list)) =
  +        let expected = n |> ZonkKata.Roll.ThreeOfAKindPoints
  +        let actual = roll |> ZonkKata.Roll.CalculatePoints
  +        test <@ expected = actual @>
  
positive.code:         }
          g |> Arb.fromGen
  
  type OneOrFiveRollPropertyAttribute () =
      inherit PropertyAttribute (
          Arbitrary = [| typeof<OneOrFiveRoll> |])
  
negative.code:     let rand = new Random()
  
      let excludeNumber n = seq { for i in 1..6 do if i <> n then yield i }
      let excludeNumbers ns = seq { for i in 1..6 do if ns |> List.forall (fun x -> x <> i) 
                                                     then yield i }
      let removeNth l n = l 
                          |> List.fold (fun (nth, i, acc) elem -> 
                                          let acc' = match nth = i with 
  