main :: IO ()
main = do args <- getArgs
          case args of
              function : files ->
                  doit function files
main :: IO ()
main = do args <- getArgs
          case args of
              function : files ->
                  doit function files
main = do args <- getArgs
          case args of
              function : files ->
                  doit function files