import System IO stdin hGetBuffering main do bmode hGetBuffering stdin

1
2
3
4
import System.IO(stdin, hGetBuffering)
main = do bmode <- hGetBuffering stdin
(putStrLn . show) bmode