oddString :: Int -> String -> String
oddString _ [] = []
oddString n (x:xs)
  | odd n = x : nextStr
  | otherwise = nextStr
  where nextStr = oddString (n+1) xs

main = do
  line <- getLine
  let
    ans = oddString 1 line
  putStrLn ans
