import Lib (checkReport, checkReportDampened, getSafeReportCount, parsedFileString)

main = do
  inputs <- readFile "inputs.txt"
  let parsedInputs = parsedFileString inputs
  let count = getSafeReportCount checkReport parsedInputs
  putStrLn "The solution to part 1 is: "
  print count
  let count = getSafeReportCount checkReportDampened parsedInputs
  putStrLn "The solution to part 2 is: "
  print count