import qualified Data.List as List import qualified Data.Map as Map import Data.Char import Data.Array import Data.Maybe import Control.Monad import Control.Applicative import Text.Printf main = (List.reverse . List.sort) <$> getLine >>= putStrLn