part1 = do
  text <- readFile "day05-input.txt"
  let input = lines text
      len   = length [x | x <- input, noPairs x, doubleLetters x, contains3Vowels x]
  print len


-- Part 2
part1 = do
  text <- readFile "day05-input.txt"
  let input = lines text
      len   = length [x | x <- input, noPairs x, doubleLetters x, contains3Vowels x]
  print len


-- Part 2
part1 = do
  text <- readFile "day05-input.txt"
  let input = lines text
      len   = length [x | x <- input, noPairs x, doubleLetters x, contains3Vowels x]
  print len


-- Part 2