printBytes :: ByteString -> IO ()
printBytes bytes = do
  B.putStr bytes
  hFlush stdout

-- | Execute an action of type @IO ()@
printBytes :: ByteString -> IO ()
printBytes bytes = do
  B.putStr bytes
  hFlush stdout

-- | Execute an action of type @IO ()@
printBytes bytes = do
  B.putStr bytes
  hFlush stdout

-- | Execute an action of type @IO ()@