#include <cstdio>
#include <cstring>
#include <iostream>
#include <string>
#include <cmath>
#include <bitset>
#include <vector>
#include <map>
#include <set>
#include <queue>
#include <deque>
#include <algorithm>
#include <complex>
#include <unordered_map>
#include <unordered_set>
#include <random>
#include <cassert>
#include <fstream>
#include <utility>
#include <functional>
#include <time.h>
#include <stack>
#include <array>
#include <list>
#define popcount __builtin_popcount
using namespace std;
typedef long long ll;
typedef pair<int, int> P;
const ll MOD=998244353;
ll powmod(ll a, ll k){
    ll ap=a, ans=1;
    while(k){
        if(k&1){
            ans*=ap;
            ans%=MOD;
        }
        ap=ap*ap;
        ap%=MOD;
        k>>=1;
    }
    return ans;
}
ll inv(ll a){
    return powmod(a, MOD-2);
}
ll f[5000001], invf[5000001];
void fac(int n){
    f[0]=1;
    for(ll i=1; i<=n; i++) f[i]=f[i-1]*i%MOD;
    invf[n]=inv(f[n]);
    for(ll i=n-1; i>=0; i--) invf[i]=invf[i+1]*(i+1)%MOD;
}
ll comb(int x, int y){
    if(!(0<=y && y<=x)) return 0;
    return f[x]*invf[y]%MOD*invf[x-y]%MOD;
}
int main()
{
    int n, m, L, K; cin>>n>>m>>L>>K;
    fac(2*n);
    int xc[100010], yc[100010], xt[102], yt[102];
    xc[0]=yc[0]=0, xc[m+1]=yc[m+1]=n;
    for(int i=1; i<=m; i++){
        cin>>xc[i]>>yc[i];
    }
    vector<int> v[100010];
    for(int i=0; i<L; i++){
        cin>>xt[i]>>yt[i];
        for(int j=0; j<=m; j++){
            if(xc[j]<=xt[i] && xt[i]<=xc[j+1] && yc[j]<=yt[i] && yt[i]<=yc[j+1]){
                v[j].push_back(i);
                break;
            }
        }
    }
    ll dp0[102]={};
    dp0[0]=1;
    for(int i=0; i<=m; i++){
        if(v[i].empty()){
            for(int j=0; j<=min(L, K); j++) (dp0[j]*=comb(xc[i+1]-xc[i]+yc[i+1]-yc[i], xc[i+1]-xc[i]))%=MOD;
            continue;
        }
        sort(v[i].begin(), v[i].end(), [&](int i, int j){ return P(xt[i], yt[i])<P(xt[j], yt[j]);});
        int x1[102], y1[102];
        int l1=v[i].size();
        for(int j=0; j<l1; j++){
            x1[j+1]=xt[v[i][j]],y1[j+1]=yt[v[i][j]];
        }
        x1[0]=xc[i],y1[0]=yc[i],x1[l1+1]=xc[i+1],y1[l1+1]=yc[i+1];
        ll dp[2][102]={}, dp1[102][102]={};
        ll c[102][102]={};
        for(int j=0; j<=l1; j++){
            for(int k=j+1; k<=l1+1; k++){
                if(!(x1[j]<=x1[k] && y1[j]<=y1[k])) continue;
                for(int p=j; p<=k; p++) for(int q=0; q<2; q++) dp[q][p]=0;
                dp[0][j]=1;
                for(int p=j+1; p<=k; p++){
                    for(int q=j; q<p; q++){
                        for(int r=0; r<2; r++){
                            dp[r][p]+=dp[r^1][q]*comb(x1[p]-x1[q]+y1[p]-y1[q], x1[p]-x1[q]);
                            dp[r][p]%=MOD;
                        }
                    }
                }
                c[j][k]=(dp[1][k]-dp[0][k]+MOD)%MOD;
            }
        }
        dp1[0][0]=1;
        for(int p=1; p<=l1+1; p++){
            for(int j=1; j<=p; j++){
                for(int k=0; k<p; k++){
                    (dp1[p][j]+=dp1[k][j-1]*c[k][p])%=MOD;
                }
            }
        }
        ll ndp[102]={};
        for(int j=0; j<=min(K, L); j++){
            for(int k=0; k<=l1; k++){
                if(j+k<=min(K, L)){
                    (ndp[j+k]+=dp0[j]*dp1[l1+1][k+1])%=MOD;
                }
            }
        }
        for(int j=0; j<=min(K, L); j++){
            dp0[j]=ndp[j];
        }
    }
    ll ans=0;
    for(int i=0; i<=min(K, L); i++) (ans+=dp0[i])%=MOD;
    cout<<ans<<endl;
    return 0;
}