#include<bits/stdc++.h>
using namespace std;
#define ALL(x) begin(x),end(x)
#define rep(i,n) for(int i=0;i<(n);i++)
#define debug(v) cout<<#v<<":";for(auto x:v){cout<<x<<' ';}cout<<endl;
using ll=long long;
const int INF=1000000000;
const ll LINF=1001002003004005006ll;
int dx[]={1,0,-1,0},dy[]={0,1,0,-1};
// ll gcd(ll a,ll b){return b?gcd(b,a%b):a;}
template<class T>bool chmax(T &a,const T &b){if(a<b){a=b;return true;}return false;}
template<class T>bool chmin(T &a,const T &b){if(b<a){a=b;return true;}return false;}

struct IOSetup{
    IOSetup(){
        cin.tie(0);
        ios::sync_with_stdio(0);
        cout<<fixed<<setprecision(12);
    }
} iosetup;

template<typename T>
ostream &operator<<(ostream &os,const vector<T>&v){
    for(int i=0;i<(int)v.size();i++) os<<v[i]<<(i+1==(int)v.size()?"":" ");
    return os;
}
template<typename T>
istream &operator>>(istream &is,vector<T>&v){
    for(T &x:v)is>>x;
    return is;
}

template<ll Mod>
struct ModInt{
    long long x;
    ModInt():x(0){}
    ModInt(long long y):x(y>=0?y%Mod:(Mod-(-y)%Mod)%Mod){}
    ModInt &operator+=(const ModInt &p){
        if((x+=p.x)>=Mod) x-=Mod;
        return *this;
    }
    ModInt &operator-=(const ModInt &p){
        if((x+=Mod-p.x)>=Mod)x-=Mod;
        return *this;
    }
    ModInt &operator*=(const ModInt &p){
        x=(int)(1ll*x*p.x%Mod);
        return *this;
    }
    ModInt &operator/=(const ModInt &p){
        (*this)*=p.inverse();
        return *this;
    }
    ModInt operator-()const{return ModInt(-x);}
    ModInt operator+(const ModInt &p)const{return ModInt(*this)+=p;}
    ModInt operator-(const ModInt &p)const{return ModInt(*this)-=p;}
    ModInt operator*(const ModInt &p)const{return ModInt(*this)*=p;}
    ModInt operator/(const ModInt &p)const{return ModInt(*this)/=p;}
    bool operator==(const ModInt &p)const{return x==p.x;}
    bool operator!=(const ModInt &p)const{return x!=p.x;}
    ModInt inverse()const{
        int a=x,b=Mod,u=1,v=0,t;
        while(b>0){
            t=a/b;
            swap(a-=t*b,b);swap(u-=t*v,v);
        }
        return ModInt(u);
    }
    ModInt pow(long long n)const{
        ModInt ret(1),mul(x);
        while(n>0){
            if(n&1) ret*=mul;
            mul*=mul;n>>=1;
        }
        return ret;
    }
    friend ostream &operator<<(ostream &os,const ModInt &p){return os<<p.x;}
    friend istream &operator>>(istream &is,ModInt &a){long long t;is>>t;a=ModInt<Mod>(t);return (is);}
    static int get_mod(){return Mod;}
};

template<typename T>
struct Precalc{
    vector<T> fact,finv,inv;
    int Mod;
    Precalc(int MX):fact(MX),finv(MX),inv(MX),Mod(T::get_mod()){
        fact[0]=T(1),fact[1]=T(1),finv[0]=T(1),finv[1]=T(1),inv[1]=T(1);
        for(int i=2;i<MX;i++){
            fact[i]=fact[i-1]*T(i);
            inv[i]=T(0)-inv[Mod%i]*(T(Mod/i));
            finv[i]=finv[i-1]*inv[i];
        }
    }
    T com(int n,int k){
        if(n<k) return T(0);
        if(n<0 or k<0) return T(0);
        return fact[n]*(finv[k]*finv[n-k]);
    }
    T fac(int n){
        return fact[n];
    }
    // 重複組み合わせ:n種類の物から重複を許し，k個選ぶ
    T nHk(int n,int k){
        return com(n+k-1,k);
    }
    // 玉n区別，箱k区別，各箱1個以上O(k)
    T F12_dis_dis_one(int n,int k){
        if(n<k)return T(0);
        T ret=0;
        for(int i=0;i<=k;i++){
            T add=com(k,i)*(T(i).pow(n));
            if((k-i)%2) ret-=add;
            else        ret+=add;
        }
        return ret;
    }
    // 区別できるn人をkチームにわける，チームには最低1人属する
    // ベン図をイメージ, 包除
    // require : T(num).pow(k)
    T Stirling_number(int n,int k){
        T ret=0;
        for(int i=0;i<=k;i++) ret+=com(k,i)*T(i).pow(n)*((k-i)%2?(-1):1);
        return ret/T(fac(k));
    }
    // 区別できるn人をkチーム以下にわける
    T Bell_number(int n,int k){
        T ret=0;
        for(int i=1;i<=k;i++) ret+=Stirling_number(n,i);
        return ret;
    }
    T partition_function(int n,int k){
        auto table=partition_function_table(n,k);
        return table[n][k];
    }
    vector<vector<T>> partition_function_table(int n,int k){
        vector<vector<T>> ret(n+1,vector<T>(k+1,0));
        ret[0][0]=1;
        for(int i=0;i<=n;i++)for(int j=1;j<=k;j++)if(i or j){
            ret[i][j]=ret[i][j-1];
            if(i-j>=0) ret[i][j]+=ret[i-j][j];
        }
        return ret;
    }
    // n = y.size - 1
    // n次の多項式f, f(0), f(k)の値がわかっていればf(t)が求まる
    // 1^k + ... n^k はk+1次多項式，k=1ならn(n+1)/2
    T LagrangePolynomial(vector<T> y,long long t){
        int n=(int)y.size()-1;
        if(t<=n) return y[t];
        T ret=T(0);
        vector<T> l(n+1,1),r(n+1,1);
        for(int i=0;i<n;i++) l[i+1]=l[i]*(t-i);
        for(int i=n;i>0;i--) r[i-1]=r[i]*(t-i);
        for(int i=0;i<=n;i++){
            T add=y[i]*l[i]*r[i]*finv[i]*finv[n-i];
            ret+=((n-i)%2?-add:add);
        }
        return ret;
    }
    /* sum combination(n+x, x), x=l to r
       https://www.wolframalpha.com/input/?i=sum+combination%28n%2Bx+%2Cx%29%2C+x%3Dl+to+r&lang=ja 
       check n+x < [COM_PRECALC_MAX]    */
    T sum_of_comb(int n,int l,int r){
        if(l>r)return T(0);
        T ret=T(r+1)*com(n+r+1,r+1)-T(l)*com(l+n,l);
        ret/=T(n+1);
        return ret;
    }

    /* 
    - sum of comb 2
        https://www.wolframalpha.com/input/?i=sum+combination%28i%2Bj%2Ci%29%2C+i%3D0+to+a-1%2C+j%3D0+to+b-1&lang=ja
        https://yukicoder.me/problems/no/1489
        
        sum binom(i+j,i) i=0 to a-1, j=0 to b-1
        = ( binom(a+b,a-1)*(b+1)/a ) - 1
    */
};

template< typename Mint >
struct NumberTheoreticTransformFriendlyModInt {

  vector< Mint > dw, idw;
  int max_base;
  Mint root;

  NumberTheoreticTransformFriendlyModInt() {
    const unsigned mod = Mint::get_mod();
    assert(mod >= 3 && mod % 2 == 1);
    auto tmp = mod - 1;
    max_base = 0;
    while(tmp % 2 == 0) tmp >>= 1, max_base++;
    root = 2;
    while(root.pow((mod - 1) >> 1) == 1) root += 1;
    assert(root.pow(mod - 1) == 1);
    dw.resize(max_base);
    idw.resize(max_base);
    for(int i = 0; i < max_base; i++) {
      dw[i] = -root.pow((mod - 1) >> (i + 2));
      idw[i] = Mint(1) / dw[i];
    }
  }

  void ntt(vector< Mint > &a) {
    const int n = (int) a.size();
    assert((n & (n - 1)) == 0);
    assert(__builtin_ctz(n) <= max_base);
    for(int m = n; m >>= 1;) {
      Mint w = 1;
      for(int s = 0, k = 0; s < n; s += 2 * m) {
        for(int i = s, j = s + m; i < s + m; ++i, ++j) {
          auto x = a[i], y = a[j] * w;
          a[i] = x + y, a[j] = x - y;
        }
        w *= dw[__builtin_ctz(++k)];
      }
    }
  }

  void intt(vector< Mint > &a, bool f = true) {
    const int n = (int) a.size();
    assert((n & (n - 1)) == 0);
    assert(__builtin_ctz(n) <= max_base);
    for(int m = 1; m < n; m *= 2) {
      Mint w = 1;
      for(int s = 0, k = 0; s < n; s += 2 * m) {
        for(int i = s, j = s + m; i < s + m; ++i, ++j) {
          auto x = a[i], y = a[j];
          a[i] = x + y, a[j] = (x - y) * w;
        }
        w *= idw[__builtin_ctz(++k)];
      }
    }
    if(f) {
      Mint inv_sz = Mint(1) / n;
      for(int i = 0; i < n; i++) a[i] *= inv_sz;
    }
  }

  vector< Mint > multiply(vector< Mint > a, vector< Mint > b) {
    int need = a.size() + b.size() - 1;
    int nbase = 1;
    while((1 << nbase) < need) nbase++;
    int sz = 1 << nbase;
    a.resize(sz, 0);
    b.resize(sz, 0);
    ntt(a);
    ntt(b);
    Mint inv_sz = Mint(1) / sz;
    for(int i = 0; i < sz; i++) a[i] *= b[i] * inv_sz;
    intt(a, false);
    a.resize(need);
    return a;
  }
};

using mint=ModInt<998244353>;

using P=pair<int,int>;

Precalc<mint> F(3000100);

NumberTheoreticTransformFriendlyModInt<mint> ntt;

bool between(P a,P b,P c){
    return a.first<=b.first and b.first<=c.first and a.second<=b.second and b.second<=c.second;
}

bool ord(P a,P b){
    return a.first<=b.first and a.second<=b.second;
}

mint way(P a,P b){
    if(!ord(a,b)) return mint(0);
    return F.com(b.first-a.first+b.second-a.second,b.first-a.first);
}

vector<mint> multiply(vector<mint> &a,vector<mint> &b){
    vector<mint> ret(a.size()+b.size()-1,0);
    rep(i,a.size())rep(j,b.size()) ret[i+j]+=a[i]*b[j];
    return ret;
}

void shift(vector<mint> &v){
    v.push_back(v.back());
    for(int i=v.size()-1;i>=0;i--) v[i+1]=v[i];
    v[0]=0;
    return ;
}

// vecs[0] is result
void merge_ntt(vector<vector<mint>> &vecs){
    int N=(int)vecs.size();
    priority_queue<pair<int,int>,vector<pair<int,int>>,greater<pair<int,int>>> que;
    rep(i,N) que.emplace(vecs[i].size(),i);
    while(que.size()>1){
        int i=que.top().second;que.pop();
        int j=que.top().second;que.pop();
        if(i>j) swap(i,j);
        vecs[i]=ntt.multiply(vecs[i],vecs[j]);
        que.emplace(vecs[i].size(),i);
    }
}

signed main(){
    int N,M,L,K;cin>>N>>M>>L>>K;
    vector<P> C,T;
    C.emplace_back(0,0);
    rep(i,M){
        int x,y;cin>>x>>y;
        C.emplace_back(x,y);
    }
    C.emplace_back(N,N);
    rep(i,L){
        int x,y;cin>>x>>y;
        T.emplace_back(x,y);
        if(x==0 and y==0) K--;
    }

    vector<vector<P>> TS(C.size());

    vector<vector<mint>> pool;

    rep(i,(int)C.size()-1)rep(j,L)
        if(between(C[i],T[j],C[i+1]) and T[j]!=C[i])
            TS[i].push_back(T[j]);


    vector<mint> ans(1,1);
    rep(i,(int)C.size()-1){
        auto &W=TS[i];
        sort(ALL(W));

        vector<vector<mint>> dp(W.size(),vector<mint>(W.size()+2,0));
        for(int j=0;j<W.size();j++){
            dp[j][1]=way(C[i],W[j]);
            for(int k=0;k<j;k++){
                if(!between(C[i],W[k],W[j])) continue;

                for(int l=0;l<=W.size();l++) dp[j][l+1]+=dp[k][l]*way(W[k],W[j]);
            }
            mint S=0;
            for(int k=W.size();k>0;k--){
                dp[j][k]-=S;
                S+=dp[j][k];
            }
        }

        vector<mint> res(W.size()+2,0);
        if(W.empty() or W.back()!=C[i+1]) res[0]=way(C[i],C[i+1]);

        for(int j=0;j<W.size();j++){
            for(int l=0;l<=W.size();l++) res[l]+=dp[j][l]*way(W[j],C[i+1]);
        }

        if(!W.empty()){
            mint S=0;
            for(int k=W.size();k>=(W.back()==C[i+1]);k--){
                res[k]-=S;
                S+=res[k];
            }
        }
        pool.push_back(move(res));
    }

    merge_ntt(pool);

    mint sum=0;
    for(int i=0;i<=K and i<pool[0].size();i++) sum+=pool[0][i];
    cout<<sum<<endl;
    return 0;
}

/*
3 0 2 5
1 1
2 2

4 8 8

*/