#include<bits/stdc++.h>
#define ll long long
#define ull unsigned ll
#define ld long double
#define int long long
#define pb push_back
#define f first
#define s second
#define pq priority_queue
#define fast ios_base::sync_with_stdio(0),cin.tie(0),cout.tie(0)
#define read_file freopen("input.txt", "r", stdin); freopen("output.txt", "w", stdout);
using namespace std;
// #include <ext/pb_ds/assoc_container.hpp>
// #include <ext/pb_ds/tree_policy.hpp>
// using namespace __gnu_pbds;
// template<class T> using ordered_multiset = tree<T, null_type, less_equal<T>, rb_tree_tag, tree_order_statistics_node_update>;
void solve(){
int n, m, d, f; cin>>n>>m>>d>>f;
int a[n+m];
for(int i=0; i<n; i++) cin>>a[i];
for(int i=0; i<m; i++) cin>>a[i+n];
vector<tuple<int, int, int>> cp(d);
for(int i=0; i<d; i++){
int cut, perc, mxi; cin>>cut>>perc>>mxi;
cp[i]={cut, perc, mxi};
}
int len=n+m; int len2=1ll<<(n+m);
int sm[len2]{}, cst[len2]{};
vector<int> dp(len2, 1e18); dp[0]=0;
for(int i=0; i<len2; i++){
for(int j=0; j<len; j++){
if(i&(1ll<<j)) sm[i]+=a[j];
}
cst[i]=f+sm[i];
for(auto [cut, perc, mxi]:cp){
if(cut>sm[i]) continue;
int loss=((100-perc)*sm[i])/100;
loss=min(loss, mxi);
cst[i]=min(cst[i], f+sm[i]-loss);
}
}
for(int i=0; i<(1ll<<m); i++){
dp[i<<n]=0;
}
for(int i=1; i<len2; i++){
for(int j=i; j; j=(j-1)&i){ // taking out
dp[i]=min(dp[i], cst[j]+dp[i^j]);
}
}
int ans=dp[len2-1];
for(int i=0; i<(1ll<<m); i++){
ans=min(ans, dp[(1ll<<n)-1+(i<<n)]);
}
cout<<ans<<endl;
}
int32_t main() {
fast;
int t;
t=1;
// cin>>t;
while(t--){
solve();
}
return 0;
}
I2luY2x1ZGU8Yml0cy9zdGRjKysuaD4KI2RlZmluZSBsbCBsb25nIGxvbmcKI2RlZmluZSB1bGwgdW5zaWduZWQgbGwKI2RlZmluZSBsZCBsb25nIGRvdWJsZQojZGVmaW5lIGludCBsb25nIGxvbmcKI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSBmIGZpcnN0CiNkZWZpbmUgcyBzZWNvbmQKI2RlZmluZSBwcSBwcmlvcml0eV9xdWV1ZQojZGVmaW5lIGZhc3QgaW9zX2Jhc2U6OnN5bmNfd2l0aF9zdGRpbygwKSxjaW4udGllKDApLGNvdXQudGllKDApCiNkZWZpbmUgcmVhZF9maWxlIGZyZW9wZW4oImlucHV0LnR4dCIsICJyIiwgc3RkaW4pOyBmcmVvcGVuKCJvdXRwdXQudHh0IiwgInciLCBzdGRvdXQpOwogCnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiAKLy8gI2luY2x1ZGUgPGV4dC9wYl9kcy9hc3NvY19jb250YWluZXIuaHBwPgovLyAjaW5jbHVkZSA8ZXh0L3BiX2RzL3RyZWVfcG9saWN5LmhwcD4KLy8gdXNpbmcgbmFtZXNwYWNlIF9fZ251X3BiZHM7CiAKLy8gdGVtcGxhdGU8Y2xhc3MgVD4gdXNpbmcgb3JkZXJlZF9tdWx0aXNldCA9IHRyZWU8VCwgbnVsbF90eXBlLCBsZXNzX2VxdWFsPFQ+LCByYl90cmVlX3RhZywgdHJlZV9vcmRlcl9zdGF0aXN0aWNzX25vZGVfdXBkYXRlPjsKCnZvaWQgc29sdmUoKXsKICAgIGludCBuLCBtLCBkLCBmOyBjaW4+Pm4+Pm0+PmQ+PmY7CiAgICAKICAgIGludCBhW24rbV07CiAgICBmb3IoaW50IGk9MDsgaTxuOyBpKyspIGNpbj4+YVtpXTsKICAgIGZvcihpbnQgaT0wOyBpPG07IGkrKykgY2luPj5hW2krbl07CgogICAgdmVjdG9yPHR1cGxlPGludCwgaW50LCBpbnQ+PiBjcChkKTsKICAgIGZvcihpbnQgaT0wOyBpPGQ7IGkrKyl7CiAgICAgICAgaW50IGN1dCwgcGVyYywgbXhpOyBjaW4+PmN1dD4+cGVyYz4+bXhpOwogICAgICAgIGNwW2ldPXtjdXQsIHBlcmMsIG14aX07CiAgICB9CgoKICAgIGludCBsZW49bittOyBpbnQgbGVuMj0xbGw8PChuK20pOwogICAgaW50IHNtW2xlbjJde30sIGNzdFtsZW4yXXt9OwogICAgdmVjdG9yPGludD4gZHAobGVuMiwgMWUxOCk7IGRwWzBdPTA7CiAgICBmb3IoaW50IGk9MDsgaTxsZW4yOyBpKyspewogICAgICAgIGZvcihpbnQgaj0wOyBqPGxlbjsgaisrKXsKICAgICAgICAgICAgaWYoaSYoMWxsPDxqKSkgc21baV0rPWFbal07CiAgICAgICAgfQogICAgICAgIGNzdFtpXT1mK3NtW2ldOwogICAgICAgIGZvcihhdXRvIFtjdXQsIHBlcmMsIG14aV06Y3ApewogICAgICAgICAgICBpZihjdXQ+c21baV0pIGNvbnRpbnVlOwogICAgICAgICAgICBpbnQgbG9zcz0oKDEwMC1wZXJjKSpzbVtpXSkvMTAwOwogICAgICAgICAgICBsb3NzPW1pbihsb3NzLCBteGkpOwogICAgICAgICAgICBjc3RbaV09bWluKGNzdFtpXSwgZitzbVtpXS1sb3NzKTsKICAgICAgICB9CiAgICB9CiAgICBmb3IoaW50IGk9MDsgaTwoMWxsPDxtKTsgaSsrKXsKICAgICAgICBkcFtpPDxuXT0wOwogICAgfQoKCiAgICBmb3IoaW50IGk9MTsgaTxsZW4yOyBpKyspewogICAgICAgIGZvcihpbnQgaj1pOyBqOyBqPShqLTEpJmkpeyAvLyB0YWtpbmcgb3V0CiAgICAgICAgICAgIGRwW2ldPW1pbihkcFtpXSwgY3N0W2pdK2RwW2leal0pOwogICAgICAgIH0KICAgIH0KCiAgICBpbnQgYW5zPWRwW2xlbjItMV07CiAgICBmb3IoaW50IGk9MDsgaTwoMWxsPDxtKTsgaSsrKXsKICAgICAgICBhbnM9bWluKGFucywgZHBbKDFsbDw8biktMSsoaTw8bildKTsKICAgIH0KICAgIGNvdXQ8PGFuczw8ZW5kbDsKfQoKaW50MzJfdCBtYWluKCkgewogICAgZmFzdDsKICAgIAogICAgaW50IHQ7IAogICAgdD0xOwogICAgLy8gY2luPj50OwogICAgd2hpbGUodC0tKXsKICAgICAgICBzb2x2ZSgpOwogICAgfQogICAgcmV0dXJuIDA7Cn0=