#include<bits/stdc++.h>
#pragma GCC optimize("O3,unroll-loops")
#define ll long long
#define pii pair<int,int>
#define f first
#define s second
#define pb push_back
#define all(x) x.begin(),x.end()
#define vi vector<int>
using namespace std;
ll dp[50001][17][5][5];int k;
void pre(int i,int j,int ii,int jj,int iii,int jjj){
for(int x=0;x<k;x++){
for(int y=0;y<k;y++){
for(int z=0;z<k;z++){
dp[i][j][x][y]=min(dp[i][j][x][y],dp[ii][jj][x][z]+dp[iii][jjj][z][y]);
}
}
}
}
int main(){
ios_base::sync_with_stdio(0);cin.tie(0);
int n,m,o;cin>>k>>n>>m>>o;
for(int i=0;i<50001;i++)for(int j=0;j<17;j++)for(int t=0;t<5;t++)for(int l=0;l<5;l++)dp[i][j][t][l]=1e15;
while(m--){
int a,b,t;cin>>a>>b>>t;
dp[a/k][0][a%k][b%k]=t;
}
for(int j=1;j<17;j++){
for(int i=0;i<(n+k-1)/k;i++){
if(i+(1<<(j-1))<50001)pre(i,j,i ,j-1,i+(1<<(j-1)),j-1);
}
}ll ans[5][5],tmp[5][5];
while(o--){
int a,b;cin>>a>>b;
for(int x=0;x<k;x++)for(int y=0;y<k;y++)ans[x][y]=1e15;
for(int i=0;i<k;i++)ans[i][i]=0;
int cur=a/k,dest=b/k;
for(int i=16;i>=0;i--){
if(cur+(1<<i)<=dest){
for(int x=0;x<k;x++)for(int y=0;y<k;y++)tmp[x][y]=1e15;
for(int x=0;x<k;x++){
for(int y=0;y<k;y++){
for(int z=0;z<k;z++){
tmp[x][y]=min(tmp[x][y],ans[x][z]+dp[cur][i][z][y]);
}
}
}for(int x=0;x<k;x++)for(int y=0;y<k;y++)ans[x][y]=tmp[x][y];
cur+=(1<<i);
}
}cout<<(ans[a%k][b%k]==1e15?-1:ans[a%k][b%k])<<'\n';
}
}
