4 hSetBuffering stdout NoBuffering >>
5 putStr "Enter an integer: " >>
7 putStr "Enter another integer: " >>
9 putStr ("Their sum is " ++ show (read x1+ read x2) ++ "\n")
11 where readLine = isEOF >>= \ eof ->
13 else getChar >>= \ c ->
14 if c `elem` ['\n','\r'] then