import qualified Data.ByteString.Char8 as BSC8 import System.IO main :: IO () main = BSC8.hPut stdout . BSC8.filter (/= '\n') =<< BSC8.hGetNonBlocking stdin 10