N = gets.to_i
L = gets.split.map(&:to_i)
T = gets.to_i

def calc_score(type, counter)
  counter[type] += 1
  (50 * L[type] + Rational(50 * L[type], 0.8 + 0.2 * counter[type])).floor
end

data = Hash.new { |h, k| h[k] = Hash.new(0) }
counter = Hash.new(0)
fast_bonus = Hash.new(0)
penalty = Hash.new(0)
scores = Hash.new(0)

T.times do |t|
  name, p_type = gets.chomp.split
  p_type = p_type.ord - 'A'.ord
  score = calc_score(p_type, counter)

  scores[name] += score
  fast_bonus[scores[name]] += 1
  penalty[name] = fast_bonus[scores[name]]
  data[name][p_type] = score
end

ranking = []
data.each do |name, d|
  row = []
  row << name
  sum = 0
  N.times do |i|
    sum += d[i]
    row << d[i]
  end
  row << sum
  ranking << row
end

ranking.sort_by { |row| row.last - 0.01 * penalty[row.first] }.reverse_each.with_index(1) do |row, rank|
  puts "#{rank} #{row.join(' ')}"
end