import Data.ByteString.Char8 (ByteString) import qualified Data.ByteString.Char8 as B main :: IO () main = B.putStrLn =<< B.reverse . B.sort <$> B.getLine