points :: [Card] -> Int
points cs = sum
  [ runs rm
  , pairs rm
 -- , fifteens fm
  ]
  where
  rm = rankGroups cs

-- Runs {{{
points :: [Card] -> Int
points cs = sum
  [ runs rm
  , pairs rm
 -- , fifteens fm
  ]
  where
  rm = rankGroups cs

-- Runs {{{
points cs = sum
  [ runs rm
  , pairs rm
 -- , fifteens fm
  ]
  where
  rm = rankGroups cs

-- Runs {{{