MODE = "stdio"

line = Array.new

if(defined? MODE)
  line = STDIN.read.split("\n")
else
  tmp = "\
  47
  S 10
  S 11
  S 12
  S 13
  H 1
  H 2
  S 6
  S 7
  S 8
  S 9
  H 6
  H 8
  H 9
  H 10
  H 11
  H 4
  H 5
  S 2
  S 3
  S 4
  S 5
  H 12
  H 13
  C 1
  C 2
  D 1
  D 2
  D 3
  D 4
  D 5
  D 6
  D 7
  C 3
  C 4
  C 5
  C 6
  C 7
  C 8
  C 9
  C 10
  C 11
  C 13
  D 9
  D 10
  D 11
  D 12
  D 13
  ".split("\n")
  tmp.each{|s|
    line << s.strip
  }
end
n =  line[0].to_i

card = Hash.new
result = Hash.new
SUIT = ['S','H','C','D']

SUIT.each do |s|
  card[s]=[]
  result[s]=[*1..13]
end

(1..n).each do |m|
  mark,num = line[m].split(" ")
  card[mark] << num.to_i
end

SUIT.each do |s|
  result[s] = result[s]-card[s]
  result[s].each do |n|
    puts "#{s} #{n}"
  end
end