main :: IO()
main = do
    str <- getLine
    putStrLn $ getsolve str
    
getsolve :: String -> String
getsolve str
    | length str == 0			= ""
    | length str == 1			= str
    | otherwise					= (head str):(getsolve (drop 2 str))