main :: IO a
main =
    getArgs >>= \filenames ->
    checkFiles filenames >>=
    exit
main :: IO a
main =
    getArgs >>= \filenames ->
    checkFiles filenames >>=
    exit
main =
    getArgs >>= \filenames ->
    checkFiles filenames >>=
    exit