allCards :: [String]
allCards = map unwords $ sequence [["S" , "H" , "C" , "D"] , [show x | x <- [1..13] :: [Int]]]

solve :: [String] -> [String]
solve xs = filter (\x -> notElem x xs) allCards

main :: IO ()
main  = getLine
    >>  getContents
    >>= return . lines
    >>= return . solve
    >>= mapM_ putStrLn