module Main where
 
import Data.Char
 
main :: IO ()
main = getLine >>= putStrLn . solve
 
solve :: String -> String
solve = go ""
  where
  go x s@(c : s') | isDigit c = x ++ s
                  | otherwise = go (c : x) s'
  go x _ = x