testPlayers :: (PlayerState s, PlayerState t) => AIPlayer s -> AIPlayer t -> (Int, Int)
testPlayers p1 p2 = pp decks (0, 0)
    where
        pointsToNum :: Points -> Int
        pointsToNum Three = 3
        pointsToNum Two = 2
        pointsToNum One = 1

        add :: (Maybe Winner) -> (Int, Int) -> (Int, Int)
        add Nothing list = list
        add (Just (AC, points)) (acPoints, bdPoints) = (acPoints + (pointsToNum points), bdPoints)
        add (Just (BD, points)) (acPoints, bdPoints) = (acPoints, bdPoints  + (pointsToNum points))

        pp :: [Cards] -> (Int, Int) -> (Int, Int)
        pp [] currStats = currStats
        pp dcks currStats = (pp (drop 1 dcks) (add (replay (gamble p1 p2 (dcks !! 0))) currStats))