module Main where

import Control.Applicative
import Control.Monad
import Data.List

f []       = []
f (x:[])   = [x]
f (x:y:ys) = x : f ys

main :: IO ()
main = do
    ss <- getLine
    putStrLn $ f ss