realMain message = do
    state <- restoreTextState False
    putStr message >> hFlush stdout
    if state then putStrLn ""
             else relaunchWithTextState True Nothing
realMain message = do
    state <- restoreTextState False
    putStr message >> hFlush stdout
    if state then putStrLn ""
             else relaunchWithTextState True Nothing
realMain message = do
    state <- restoreTextState False
    putStr message >> hFlush stdout
    if state then putStrLn ""
             else relaunchWithTextState True Nothing