import Control.Applicative ((<$>))
import Data.List ((\\))

allCards = [g ++ " " ++ (show v) | g <- ["S","H","C","D"] , v <- [1 .. 13]]

main = do
    _ <- getLine
    picked <- lines <$> getContents
    putStr . unlines $ allCards \\ picked