import qualified Data.ByteString.Char8 as BSC8
import           System.IO

main :: IO ()
main = do
  b <- BSC8.hGetNonBlocking stdin 10
  let bs = BSC8.filter (/= '\n') b
  BSC8.hPut stdout bs