realMain (Config message Nothing) = do
    state <- restoreTextState 1
    when (state < 3) $ relaunchWithTextState (state + 1) Nothing
    putStrLn $ message ++ " - " ++ show state
realMain (Config message Nothing) = do
    state <- restoreTextState 1
    when (state < 3) $ relaunchWithTextState (state + 1) Nothing
    putStrLn $ message ++ " - " ++ show state
realMain (Config message Nothing) = do
    state <- restoreTextState 1
    when (state < 3) $ relaunchWithTextState (state + 1) Nothing
    putStrLn $ message ++ " - " ++ show state