#include <bits/stdc++.h>
#define syosu(x) fixed<<setprecision(x)
using namespace std;
typedef long long ll;
typedef unsigned int uint;
typedef unsigned long long ull;
typedef pair<int,int> P;
typedef pair<double,double> pdd;
typedef pair<ll,ll> pll;
typedef vector<int> vi;
typedef vector<vi> vvi;
typedef vector<double> vd;
typedef vector<vd> vvd;
typedef vector<ll> vl;
typedef vector<vl> vvl;
typedef vector<string> vs;
typedef vector<P> vp;
typedef vector<vp> vvp;
typedef vector<pll> vpll;
typedef pair<int,P> pip;
typedef vector<pip> vip;
const int inf=1<<30;
const ll INF=1ll<<60;
const double pi=acos(-1);
const double eps=1e-11;
const ll mod=1e9+7;
const int dx[4]={-1,0,1,0},dy[4]={0,-1,0,1};


int main(){
	ios::sync_with_stdio(0);
	cin.tie(0);
	while(1){
		int h,w,n,m;
		cin>>h>>w>>n>>m;
		if(h==0) break;
		vvi a(h,vi(w,1));
		for(int i=0;i<n;i++){
			int t,x;
			cin>>t>>x;
			vvi b;
			if(t==1){
				b=vvi(max(h-x,x),vi(w));
				for(int j=0;j<h;j++) for(int k=0;k<w;k++){
					if(j<x) b[x-j-1][k]+=a[j][k];
					else b[j-x][k]+=a[j][k];
				}
				h=max(h-x,x);
			}
			else{
				b=vvi(h,vi(max(w-x,x)));
				for(int j=0;j<h;j++) for(int k=0;k<w;k++){
					if(k<x) b[j][x-k-1]+=a[j][k];
					else b[j][k-x]+=a[j][k];
				}
				w=max(w-x,x);
			}
			a=b;
		}
/*		for(int i=0;i<h;i++){
			for(int j=0;j<w;j++) cout<<a[i][j]<<' ';cout<<endl;
		}*/
		for(int i=0;i<m;i++){
			int x,y;
			cin>>x>>y;
			cout<<a[x][y]<<endl;
		}
	}
}
