main :: IO () main = getLine >> getContents >>= putStr . concat . lines