import std.stdio, std.conv, std.functional, std.string;
import std.algorithm, std.array, std.container, std.range, std.typecons;
import std.numeric, std.math, std.random;
import core.bitop;

string FMT_F = "%.10f";

static File _f;
void file_io(string fn) { _f = File(fn, "r"); }
static string[] s_rd;
T _RD(T = long)() { while(!s_rd.length) s_rd = readln.chomp.split; string res = s_rd[0]; s_rd.popFront; return res.to!T; }
T _RD(T = long)(File f) { while(!s_rd.length) s_rd = f.readln.chomp.split; string res = s_rd[0]; s_rd.popFront; return res.to!T; }
T[] _RDA(T = long)(T fix = 0) { auto r = readln.chomp.split.to!(T[]); r[] += fix; return r; }
T[] _RDA(T = long)(File f, T fix = 0) { auto r = f.readln.chomp.split.to!(T[]); r[] += fix; return r; }
T RD(T = long)() { if (_f.isOpen) return _RD!T(_f); else return _RD!T; }
T[] RDA(T = long)(T fix = 0) { if (_f.isOpen)  return _RDA!T(_f, fix); else return _RDA!T(fix); }

size_t[] MAKE_IDX(alias less = "a < b", Range)(Range range) { auto idx = new size_t[](range.length); makeIndex!(less)(range, idx); return idx;}
size_t MIN_POS(alias less = "a < b", Range)(Range range) { auto r = minPos!(less)(range); return range.length - r.length; }

bool inside(T)(T x, T b, T e) { return x >= b && x < e; }
long lcm(long x, long y) { return x * (y / gcd(x, y)); }

long mod = 10^^9 + 7;
//long mod = 998244353;
//long mod = 1_000_003;
void moda(ref long x, long y) { x = (x + y) % mod; }
void mods(ref long x, long y) { x = ((x + mod) - (y % mod)) % mod; }
void modm(ref long x, long y) { x = (x * y) % mod; }

int binarySearch(alias pred, T)(in T[] arr, bool isLower = true)
{ 
	int ok, ng;
	if (isLower) { ok = cast(int)arr.length; ng = -1; }
	else		 { ok = -1; ng = cast(int)arr.length; }
	while (abs(ok-ng) > 1)
	{
		auto mid = (ok+ng) / 2;
		if (unaryFun!pred(arr[mid]))
			ok = mid;
		else ng = mid;
	}
	return ok;
}

void main()
{
	auto N = RD;
	auto S = RD!string;
	auto A = RDA;
	auto Q = RD;
	auto K = RDA;

	auto B = new long[2][](N+1);
	foreach (i; 0..N)
	{
		B[i+1][0] = B[i][0] + A[i];
		B[i+1][1] = B[i][1] + (S[i] == 'E' ? 1 : 0);
	}

	long[long] set;
	foreach (i; 0..N-1)
	{
		foreach (j; i..N)
		{
			auto c = B[j+1][0] - B[i][0];
			auto last = set.get(c, 0);
			set[c] = max(last, B[j+1][1] - B[i][1]);
		}
	}

	auto ans = new long[](Q);
	auto keys = set.keys;
	keys.sort();
	foreach (i; 0..Q)
	{
		auto p = keys.binarySearch!((long x) => x > K[i])();
		if (p == 0) continue;
		auto pp = keys[0..p].MIN_POS!((long a, long b) => set[a] > set[b])();
		ans[i] = set[keys[pp]];
	}
	foreach (e; ans)
		writeln(e);
	stdout.flush;
	debug readln;
}