main = do
    s <- getLine
    putStrLn $ skipOne s False

skipOne :: String -> Bool -> String
skipOne [] _ = []
skipOne (x:xs) skip = if skip then skipOne xs (not skip) else x : skipOne xs (not skip)