main :: IO ()
main = do
  hSetBuffering stdout NoBuffering
  loop
  where
  loop = do
    putStr "ready> "
    input <- getLine
    case input of
      "" -> putStrLn "Goodbye."
      input -> do
        process input
        loop
main :: IO ()
main = do
  hSetBuffering stdout NoBuffering
  loop
  where
  loop = do
    putStr "ready> "
    input <- getLine
    case input of
      "" -> putStrLn "Goodbye."
      input -> do
        process input
        loop
main = do
  hSetBuffering stdout NoBuffering
  loop
  where
  loop = do
    putStr "ready> "
    input <- getLine
    case input of
      "" -> putStrLn "Goodbye."
      input -> do
        process input
        loop