pairPoints :: (Rank,Int) -> Int
pairPoints (_,i)
  | i > 1     = (i `choose` 2) * 2
  | otherwise = 0
pairPoints :: (Rank,Int) -> Int
pairPoints (_,i)
  | i > 1     = (i `choose` 2) * 2
  | otherwise = 0
pairPoints (_,i)
  | i > 1     = (i `choose` 2) * 2
  | otherwise = 0