#include<bits/stdc++.h>
using namespace std;
namespace my_std{
	#define ll long long
	#define bl bool
	ll my_pow(ll a,ll b,ll mod){
		ll res=1;
		if(!b) return 1;
		while(b){
			if(b&1) res=(res*a)%mod;
			a=(a*a)%mod;
			b>>=1;
		}
		return res;
	}
	ll qpow(ll a,ll b){
		ll res=1;
		if(!b) return 1;
		while(b){
			if(b&1) res*=a;
			a*=a;
			b>>=1;
		}
		return res;
	}
	#define db double
	#define pf printf
	#define pc putchar
	#define fr(i,x,y) for(register ll i=(x);i<=(y);i++)
	#define pfr(i,x,y) for(register ll i=(x);i>=(y);i--)
	#define go(u) for(ll i=head[u];i;i=e[i].nxt)
	#define enter pc('\n')
	#define space pc(' ')
	#define fir first
	#define sec second
	#define MP make_pair
	#define il inline
	#define inf 8e18
	#define random(x) rand()*rand()%(x)
	#define inv(a,mod) my_pow((a),(mod-2),(mod))
	il ll read(){
		ll sum=0,f=1;
		char ch=0;
		while(!isdigit(ch)){
			if(ch=='-') f=-1;
			ch=getchar();
		}
		while(isdigit(ch)){
			sum=sum*10+(ch^48);
			ch=getchar();
		}
		return sum*f;
	}
	il void write(ll x){
		if(x<0){
			x=-x;
			pc('-');
		}
		if(x>9) write(x/10);
		pc(x%10+'0');
	}
	il void writeln(ll x){
		write(x);
		enter;
	}
	il void writesp(ll x){
		write(x);
		space;
	}
}
using namespace my_std;
vector<ll> lsh,f,g;
ll lim=1e15,t,mod;
il ll calcf(ll x){
	ll pos=upper_bound(lsh.begin(),lsh.end(),x)-lsh.begin()-1;
	return f[pos];
}
il ll calcg(ll x){
	ll pos=upper_bound(lsh.begin(),lsh.end(),x)-lsh.begin()-1;
	return g[pos];
}
int main(){
	lsh.push_back(0);
	for(ll a=1;a<=lim;a*=2){
		for(ll b=1;a*b<=lim;b*=3){
			for(ll c=1;a*b*c<=lim;c*=5){
				for(ll d=1;a*b*c*d<=lim;d*=7){
					lsh.push_back(a*b*c*d);
					if(a*b*c*d*11<=lim) lsh.push_back(a*b*c*d*11);
					if(a*b*c*d*13<=lim) lsh.push_back(a*b*c*d*13);
				}
			}
		}
	}
	sort(lsh.begin(),lsh.end());
	f.resize((ll)lsh.size());
	g.resize((ll)lsh.size());
	f[0]=read();
	g[0]=read();
	t=read();
	mod=read();
	fr(i,1,(ll)lsh.size()-1){
		ll x=lsh[i];
		f[i]=calcg(x/2)+calcg(x/3)+calcg(x/5)+calcg(x/7);
		g[i]=calcf(x/2)+calcf(x/3)+calcf(x/4)+calcf(x/5);
		if(x<=13){
			f[i]=max(f[i],x);
			g[i]=max(g[i],x);
		}
		else{
			f[i]%=mod;
			g[i]%=mod;
		}
	}
	while(t--){
		ll x=read();
		writesp(calcf(x)%mod);
		writeln(calcg(x)%mod);
	}
}