anchor.diff:          let sorted = d |> List.sort
           match sorted with 
           | [1; 2; 3; 4; 5; 6] -> 1000
  -        | ThreePairs pts     -> pts
  +        | ThreePairs         -> 750
           | OfAKind pts        -> pts
           | _                  -> sorted |> sumOnesAndFives
  
positive.code:         | _ -> n * 100
  
      let FourOfAKindPoints n = 2 * (n |> ThreeOfAKindPoints)
  
      let FiveOfAKindPoints n = 3 * (n |> ThreeOfAKindPoints)
  
      let SixOfAKindPoints n = 4 * (n |> ThreeOfAKindPoints)
  
      let (|OfAKind|_|) roll = 
  
negative.code: 
  module Roll =
      let (|ThreePairs|_|) roll =
              if roll |> Seq.groupBy (id) |> Seq.forall (fun (_,s) -> s |> Seq.length = 2) then Some ()
              else None
  
      let singleDiePoints d = match d with
  