import qualified Data.Set as S
import qualified Data.Text as T

import Advent.Y2020.Day6.DeclarationForm

answerP :: Parser Answer
answerP = do
  ans <- takeWhile1 (not . isSpace) <* endOfLine
  pure $ S.fromList $ T.unpack ans

groupAnswersP :: Parser Group
groupAnswersP = do