main = do
    args <- getArgs
    let num = (read::String -> Int) $ head args
    doFiles num
main = do
    args <- getArgs
    let num = (read::String -> Int) $ head args
    doFiles num
main = do
    args <- getArgs
    let num = (read::String -> Int) $ head args
    doFiles num