pressuredGroups :: Player p
                => Board p -- ^ The current state of the board
                -> p              -- ^ The player @p@ making the threat
                -> (Int, Int)     -- ^ The position @x@ where @p@ will play
                -> [[(Int, Int)]] -- ^ List of pressured groups
pressuredGroups b p = map (map repaCoordsToTuple) . B.pressuredGroups b p . tupleToRepaCoords
pressuredGroups :: Player p
                => Board p -- ^ The current state of the board
                -> p              -- ^ The player @p@ making the threat
                -> (Int, Int)     -- ^ The position @x@ where @p@ will play
                -> [[(Int, Int)]]
pressuredGroups b p = map (map repaCoordsToTuple) . B.pressuredGroups b p . tupleToRepaCoords
pressuredGroups b p = map (map repaCoordsToTuple) . B.pressuredGroups b p . tupleToRepaCoords