#include<bits/stdc++.h>
#include<unordered_map>
#include<unordered_set>
using namespace std;
#define ll long long
#define double long double
#define lc u<<1
#define rc u<<1|1
#define X first
#define Y second
//#define int long long
const int N = 5e5 + 50;
const int M = 5e5 + 5;
const ll maxm = 1e18 + 5;
const ll mod = 998244353;
int dx[] = { -1,0,1,0 };
int dy[] = { 0,1,0,-1 };
//random_shuffle(id + 1, id + n + 1);
ll ksm(ll a, ll b);
ll gcd(ll a, ll b);

ll n, k, Q;
ll a[N];
string str;
ll dp[N] = { 0 };//表示在以第i个位置结尾的最小代价
ll ddp[N];

void solve()
{
	//感觉就是个dp,但是这n,q有点太大了点，
	//对于每个q都用n的复杂度跑，感觉会t
	//但是之前，我们已经获取了一部分，(在更改的元素之前的序列)
	//那部分，我们是可以接着用的，每次我们从那个地方开始，能优化一下
	//试试
	//怎么还有位置是要必须建，等等还有这种好事
	//为1的位置相当于把整个数列进行了划分
	//到单点修改导致的决策影响仅能影响到下一个一的位置
	//在往后的决策都直接加上前置的决策即可

	//写的一坨，思路比较纯实现还不好，单调队列能维护出n的复杂度求
	//先改一发试试

	priority_queue < pair<ll, ll>, vector<pair<ll, ll> >, greater<pair<ll, ll> > >q;
	cin >> n >> k;
	for (int i = 1; i <= n; i++)cin >> a[i];
	cin >> str; str = "1" + str; str = str + "1"; a[n + 1] = 0; a[0] = 0;
	q.push({ 0,0 }); dp[0] = 0;
	for (int i = 1; i <= n+1; i++) {
		while (q.size() && i - q.top().Y > k)q.pop();
		dp[i] = q.top().X + a[i];
		if (str[i] == '1') {
			while (q.size())q.pop();
		}
		q.push({ dp[i],i });
	}
	while (q.size())q.pop();
	cin >> Q;
	for (int i = 1; i <= Q; i++) {
		ll pos, val; cin >> pos >> val;
		//单点修改以后可怎么搞
		//总不能再跑完，试试，要不
		if (str[pos] == '1') {
			cout << dp[n + 1] + (-a[pos] + val) << endl; continue;
		}
		for (int ii = max(0ll, pos - k); ii < pos; ii++) {
			if (str[ii] == '1') {
				while (q.size())q.pop();
			}
			q.push({ dp[ii],ii });
		}
		q.push({ dp[pos] - a[pos] + val,pos });
		for (int ii = pos + 1; ii <= n + 1; ii++) {
			while (q.size() && ii - q.top().Y > k)q.pop();
			ddp[ii] = q.top().X + a[ii];
			if (str[ii] == '1') {
				while (q.size())q.pop();
			}
			q.push({ ddp[ii],ii });
		}
		while (q.size())q.pop();
		cout << ddp[n + 1] << endl;
	}

	return;
}


signed main()
{
	ios::sync_with_stdio(false);
	cin.tie(0), cout.tie(0);
	int T = 1;
	cin >> T;
	while (T--)
		solve();
	return 0;
}

/*PonyHex*/


ll ksm(ll a, ll b) {
	ll base = a;
	ll ans = 1;
	while (b) {
		if (b & 1)ans *= base % mod;
		ans %= mod;
		base *= base; base %= mod;
		b >>= 1;
	}
	return ans % mod;
}
ll gcd(ll a, ll b) {
	return b ? gcd(b, a % b) : a;
}