module Main where

import qualified Data.ByteString.Char8 as BS

main :: IO()
main = do
  input <- getLine
  putStrLn . solve $ input

solve :: String -> String
solve = map snd . filter (\(i, _) -> odd i) . zip [1..]
