main :: IO ()
main = do
    options <- getOptions
    print options

    run options
main :: IO ()
main = do
    options <- getOptions
    print options

    run options
main = do
    options <- getOptions
    print options

    run options