#include "bits/stdc++.h"
using namespace std;
// #pragma comment(linker, "/stack:200000000")
// #pragma GCC optimize("Ofast")
// #pragma GCC target("sse,sse2,sse3,ssse3,sse4,popcnt,abm,mmx,avx,avx2,tune=native")
using ll = long long;
using ld = long double;
#define pb push_back
#define ff first
#define ss second
#define sz(x) (ll)(x).size()
#define all(x) (x).begin(), (x).end()
#define rall(x) (x).rbegin(), (x).rend()
void freopen(string s) { freopen((s+".in").c_str(), "r", stdin); freopen((s+".out").c_str(), "w", stdout); }
void IOIGold2024_InshAllah() { ios_base::sync_with_stdio(false); cin.tie(NULL); }
ll binmul(ll a, ll b, ll c) { ll res = 0; while(b) { if(b&1) (res += a) %= c; (a += a) %= c; b >>= 1; } return res; }
ll binpow(ll a, ll b, ll c) { ll res = 1; while(b) { if(b&1) (res *= a) %= c; (a *= a) %= c; b >>= 1; } return res; }
template<typename T> T gcd(T a, T b) { if(b==0) return a; return gcd(b, a%b); }
template<typename T> T lcm(T a, T b) { return a/gcd(a, b)*b; }
mt19937_64 rng(chrono::steady_clock::now().time_since_epoch().count());
ld rnd() { return rng()%INT_MAX*1.0/INT_MAX; }
const ll inf = 1e18+7, MX = LLONG_MAX, MN = LLONG_MIN;
const ll mod = 1e9+7, N = 3e5+5;
vector<pair<ll, ll>> g[N];
ll tin[N], tout[N], timer;
pair<ll, ll> edge[N];
void dfs(ll v, ll p) {
tin[v] = ++timer;
for(auto [to, w]: g[v]) {
if(to!=p) dfs(to, v);
}
tout[v] = ++timer;
}
void kigash() {
ll n, m, q, x;
cin>>n>>m>>q>>x;
for(ll i=1; i<n; i++) {
ll u, v, w;
cin>>u>>v>>w;
edge[i] = {u, v};
g[u].pb({v, w}), g[v].pb({u, w});
}
for(ll i=1; i<=m; i++) {
ll v;
cin>>v;
}
dfs(x, 0);
if(m==n) {
for(ll i=1; i<=q; i++) {
ll a, b;
cin>>a>>b;
ll u = edge[a].ff, v = edge[a].ss;
if(tin[u]>tin[v]) swap(u, v);
if(tin[v]<=tin[b] && tout[b]<=tout[v]) cout<<"0\n";
else cout<<"escaped\n";
}
return;
}
if(n*q<=1000000) {
}
return;
}
signed main(/*Kigash Amir*/) {
// freopen("");
IOIGold2024_InshAllah();
ll tt = 1;
// cin>>tt;
for(ll i=1; i<=tt; i++) {
kigash();
}
}
