doFiles :: A.Args -> [FilePath] -> IO ()
doFiles args fs = putStr . unlines . label fs . total . map (wc' args) =<< readFiles fs
doFiles :: A.Args -> [FilePath] -> IO ()
doFiles args fs = putStr . unlines . label fs . total . map (wc' args) =<< readFiles fs
doFiles args fs = putStr . unlines . label fs . total . map (wc' args) =<< readFiles fs