import Data.List.Split
import Data.List

main = do
    a <- getContents
    let aa = head $ splitOn "\n" a
    putStr $ getStr aa ""

getStr :: String -> String -> String
getStr [] a = a
getStr (s:[]) a = (a++[s])
getStr (s:ss:[]) a = (a++[s])
getStr (s:ss:sx) a = getStr sx (a++[s])

