#pragma GCC optimize("Ofast")
#pragma GCC optimize("unroll-loops")
#include <bits/stdc++.h>
#define ll long long
#define pb push_back
#define el '\n'
using namespace std;
int main () {
ios_base::sync_with_stdio(false);
cin.tie(nullptr);
ll n, k; cin >> n >> k;
vector <ll> a(n + 1);
for (ll i = 1; i <= n; i++)
cin >> a[i];
ll q; cin >> q;
while (q--) {
int type; cin >> type;
if (type == 2) {
ll l, r, m; cin >> l >> r >> m;
ll ans = 0;
for (ll i = l; i <= r; i++) {
ll t = min({m, i - l + 1ll, r - i + 1ll});
ans += a[i] * t;
}
cout << ans << el;
} else {
vector <ll> b(k + 2);
for (ll i = 1; i <= k; i++)
cin >> b[i];
b[k + 1] = b[1];
for (ll i = 1; i <= k; i++)
a[b[i]] = a[b[i + 1]];
}
}
return 0;
}
