ain :: IO ()
main = do
    Options{..} <- execParser helpfulParser

    let level = if debug
        then Debug
        else Normal

    quit <- initializeProgram (package ++ "-" ++ version) level

    logM "Main.main" DEBUG "Starting generator"

    spool <- createSpoolFiles "demowave"

    let a = hashIdentifier "This is a test of the emergency broadcast system"
    loop quit spool a

    logM "Main.main" DEBUG "End"

main :: IO ()
main = do
    Options{..} <- execParser helpfulParser

    let level = if debug
        then Debug
        else Normal

    quit <- initializeProgram (package ++ "-" ++ version) level

    logM "Main.main" DEBUG "Starting generator"

    spool <- createSpoolFiles "demowave"

    let a = hashIdentifier "This is a test of the emergency broadcast system"
    loop quit spool a

    logM "Main.main" DEBUG "End"
main = do
    Options{..} <- execParser helpfulParser

    let level = if debug
        then Debug
        else Normal

    quit <- initializeProgram (package ++ "-" ++ version) level

    logM "Main.main" DEBUG "Starting generator"

    spool <- createSpoolFiles "demowave"

    let a = hashIdentifier "This is a test of the emergency broadcast system"
    loop quit spool a

    logM "Main.main" DEBUG "End"