def min(a,b); a < b ? a : b; end
def max(a,b); a > b ? a : b; end

N = gets.to_i
S = gets.chomp
A = gets.split.map(&:to_i)
Q = gets.to_i
K = gets.split.map(&:to_i)

E = Array.new(N + 1, 0).tap do |it|
  N.times do |i|
    it[i + 1] = it[i] + (S[i] == 'E' ? 1 : 0)
  end
end
H = Array.new(N + 1, 0).tap do |it|
  N.times do |i|
    it[i + 1] = it[i] + A[i]
  end
end

dp = Array.new(E[N] + 1, max(H[N] * 2, K.max * 2))

(1 .. N).each do |i|
  (0 ... i).each do |j|
    e = E[i] - E[j]
    k = H[i] - H[j]
    dp[e - 1] = min(dp[e - 1], k) if e > 0
  end
end
puts K.map{|k| dp.bsearch_index{|v| k < v } }