main = getLine >>= putStrLn . solve

solve ss = foldr go [last ss] (zip(tail ss)ss)
  where
    go (prev, now) ans
      | prev /= now = now : ans
      | otherwise = ans