-- Input
run :: IO ()
run = do
    -- The actual solution here is commented out, because it takes ~45 seconds
    --putStrLn "Day 5 results: "
    --let input = "ojvtpuvg"
    --let hashes = interestingHashes input
    --putStrLn $ "  " ++ show (day5Impl hashes)
    --putStrLn $ "  " ++ show (day5Impl' hashes)
    putStrLn "Day 5 results (cached): "
    putStrLn $ "  " ++ show "4543c154"
    putStrLn $ "  " ++ show "1050cbbd"
run :: IO ()
run = do
    -- The actual solution here is commented out, because it takes ~45 seconds
    --putStrLn "Day 5 results: "
    --let input = "ojvtpuvg"
    --let hashes = interestingHashes input
    --putStrLn $ "  " ++ show (day5Impl hashes)
    --putStrLn $ "  " ++ show (day5Impl' hashes)
    putStrLn "Day 5 results (cached): "
    putStrLn $ "  " ++ show "4543c154"
    putStrLn $ "  " ++ show "1050cbbd"
run = do
    -- The actual solution here is commented out, because it takes ~45 seconds
    --putStrLn "Day 5 results: "
    --let input = "ojvtpuvg"
    --let hashes = interestingHashes input
    --putStrLn $ "  " ++ show (day5Impl hashes)
    --putStrLn $ "  " ++ show (day5Impl' hashes)
    putStrLn "Day 5 results (cached): "
    putStrLn $ "  " ++ show "4543c154"
    putStrLn $ "  " ++ show "1050cbbd"