import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B

main :: IO ()
main = putStrLn =<< B.unpack . B.reverse . B.sort <$> B.getLine