main :: IO ()
main = do
    args <- getArgs
    let (program, inputs) = parseArgs args
    ins <- sequence inputs
    command <- program
    sequence_ $ fmap (run command) ins

{-
The Interpreter will read the program from the file provided in the first argument,
or as a string passed in the the -c option.

The program will be run for each file provided or use stdin as input if no
input file provided in the argument list.
-}
main :: IO ()
main = do
    args <- getArgs
    let (program, inputs) = parseArgs args
    ins <- sequence inputs
    command <- program
    sequence_ $ fmap (run command) ins

{-
The Interpreter will read the program from the file provided in the first argument,
or as a string passed in the the -c option.

The program will be run for each file provided or use stdin as input if no
input file provided in the argument list.
-}
main = do
    args <- getArgs
    let (program, inputs) = parseArgs args
    ins <- sequence inputs
    command <- program
    sequence_ $ fmap (run command) ins

{-
The Interpreter will read the program from the file provided in the first argument,
or as a string passed in the the -c option.

The program will be run for each file provided or use stdin as input if no
input file provided in the argument list.
-}