readPrompt :: String -> IO String
readPrompt prompt = flushStr prompt >> getLine
readPrompt :: String -> IO String
readPrompt prompt = flushStr prompt >> getLine
readPrompt prompt = flushStr prompt >> getLine