import Data.Char (ord)
import Data.List (sort)
import Control.Applicative ((<$>))

data Rank = A | Rank Int | T | J | Q | K
    deriving (Eq, Ord)

instance Read Rank where
    readsPrec _ s = readRank s

readRank :: ReadS Rank
readRank ('A':s) = [(A, s)]
readRank ('T':s) = [(T, s)]
readRank ('J':s) = [(J, s)]
readRank ('Q':s) = [(Q, s)]
readRank ('K':s) = [(K, s)]
readRank (c:s)   = [(x, s)]
    where
        x = Rank $ ord c - ord '0'

instance Show Rank where
    show (Rank x) = show x
    show A        = "A"
    show T        = "T"
    show J        = "J"
    show Q        = "Q"
    show K        = "K"

data Suit = D | C | H | S
    deriving (Eq, Ord, Show)

instance Read Suit where
    readsPrec _ s = readSuit s

readSuit :: ReadS Suit
readSuit ('D':s) = [(D, s)]
readSuit ('C':s) = [(C, s)]
readSuit ('H':s) = [(H, s)]
readSuit ('S':s) = [(S, s)]

data Card = Card Suit Rank
    deriving (Eq, Ord)

instance Read Card where
    readsPrec _ s = readCard s

readCard :: ReadS Card
readCard "" = []
readCard s = [(Card suit rank, c2)]
    where
        [(suit, c1)] = readSuit s
        [(rank, c2)] = readRank c1

instance Show Card where
    show (Card suit rank) = show suit ++ show rank

solve :: [Card] -> String
solve = unwords . (map show) . sort

main = do
    getLine
    cs <- map read . words <$> getLine
    putStrLn $ solve cs