files0from :: FilePath -> IO [FilePath]
files0from "-" = fmap (split (chr 0)) getContents
files0from :: FilePath -> IO [FilePath]
files0from "-" = fmap (split (chr 0)) getContents
files0from "-" = fmap (split (chr 0)) getContents