doFiles :: Int -> IO ()
doFiles startNum = do
    files <- fmap sort $ getDirectoryContents "."
    sequence_ $ renameFiles ( dropWhile ( (=='.') . head ) files ) startNum 
doFiles :: Int -> IO ()
doFiles startNum = do
    files <- fmap sort $ getDirectoryContents "."
    sequence_ $ renameFiles ( dropWhile ( (=='.') . head ) files ) startNum 
doFiles startNum = do
    files <- fmap sort $ getDirectoryContents "."
    sequence_ $ renameFiles ( dropWhile ( (=='.') . head ) files ) startNum 