twentyFour :: IO (Int, Int)
twentyFour = do
  pkgs <- packagesFrom "input/24.txt"
  return (answer 3 pkgs,
          answer 4 pkgs)
    where answer n = entanglement . head . head . nGroups n
twentyFour :: IO (Int, Int)
twentyFour = do
  pkgs <- packagesFrom "input/24.txt"
  return (answer 3 pkgs,
          answer 4 pkgs)
    where answer n = entanglement . head . head . nGroups n
twentyFour = do
  pkgs <- packagesFrom "input/24.txt"
  return (answer 3 pkgs,
          answer 4 pkgs)
    where answer n = entanglement . head . head . nGroups n