problem_num = gets.to_i
star_table = gets.split.map(&:to_i)

problem_table = {}
problem_num.times do |n|
  problem_table[(n+65).chr] = 1
end

score = Hash.new { |a, b| a[b] = Hash.new { |c, d| c[d] = 0 } }
score_total = Hash.new { |c, d| c[d] = 0 }
submit_order = {}

submit_num = gets.to_i
submit_num.times do |n|
  tmp = gets.split
  score[tmp[0]][tmp[1]] = (star_table[tmp[1].ord - 65] * 50 + 50 * star_table[tmp[1].ord - 65] / (0.8 + 0.2 * problem_table[tmp[1]])).floor
  score_total[tmp[0]] = score_total[tmp[0]] + score[tmp[0]][tmp[1]]
  submit_order[tmp[0]] = n
  problem_table[tmp[1]] += 1
end

score_total_desc = score_total.sort { |(k1, v1), (k2, v2)| v2 <=> v1 }

score_order = {}
num = 1
score_total_desc.each_with_index do |(k1, v1), n1|
  tmp = score_total_desc.select { |k2, v2| v1 = v2 }
  if tmp.nil? then
    score_order[k1] = num
    num += 1
  else
    t = num
    tmp.each do |k3, v3|
      if submit_order[k1] > submit_order[k3] then
        t += 1
      end
    end
    if t == num then
      score_order[k1] = num
      num += 1
    else
      score_order[k1] = t
    end
  end
end

score_order_asc = score_order.sort { |(k1, v1), (k2, v2)| v1 <=> v2 }

ans = []
score_order_asc.each do |k, v|
  line = v.to_s + " " + k + " "
  problem_table.each_key do |t|
    line += score[k][t].to_s + " "
  end
  line += score_total[k].to_s
  ans << line
end

ans.each do |a|
  puts a
end