bruteBreakIO :: Alphabet -> String -> IO ()
bruteBreakIO alphabet str = mapM_ (\(key, result) -> putStrLn $ show key ++ ": " ++ result) $ bruteBreak alphabet str
bruteBreakIO :: Alphabet -> String -> IO ()
bruteBreakIO alphabet str = mapM_ (\(key, result) -> putStrLn $ show key ++ ": " ++ result) $ bruteBreak alphabet str
bruteBreakIO alphabet str = mapM_ (\(key, result) -> putStrLn $ show key ++ ": " ++ result) $ bruteBreak alphabet str