module Main(main) where

import GetOptions
import Monad

main = do
    (as,(output_name,verb,count,xs)) <- getOptions (
        "o" ==> "out.txt"  ?? "Specify output file"
        ,"v|verbose"  ?? "Enable verbose mode."
        ,"count" ==> (1::Int) ?? "How many iterations"
        ,"elem|e" ?? "A list of elements"
        )
    when verb $ putStrLn "Verbose"
    putStrLn $ "Output Name is: " ++ output_name
    putStrLn $ "Args: " ++ show as
    sequence (replicate (count::Int) (putStrLn "Check!"))
    mapM_ putStrLn xs