import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  s <- getLine
  let s_with_index = zip [1..(length s)] s
  putStrLn . map snd . filter (\(i, n) -> odd i) $ s_with_index