import Data.List.Split
import Data.List

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



getStr2 :: String -> String
getStr2 [] = []
getStr2 (s:[]) = [s]
getStr2 (s:ss:[]) = [s]
getStr2 (s:ss:sx) = (s : getStr2 sx)
