Problem: Urpal lives in a big city. He has planned to meet his lover tonight. 

The city has n junctions numbered from 1 to n. The junctions are connected by m directed streets, all the roads have equal length. Urpal lives in junction a and the date is planned in a restaurant in junction b. He wants to use public transportation to get to junction b. There are k bus transportation companies. At the beginning of every second, a bus from the i-th company chooses a random shortest path between junction si and junction ti and passes through it. There might be no path from si to ti. In that case no bus will leave from si to ti. If a bus passes through a junction where Urpal stands, he can get on the bus. He can also get off the bus at any junction along the path. 

Now Urpal wants to know if it's possible to go to the date using public transportation in a finite amount of time (the time of travel is the sum of length of the traveled roads) and what is the minimum number of buses he should take in the worst case.

At any moment Urpal knows only his own position and the place where the date will be. When he gets on the bus he knows only the index of the company of this bus. Of course Urpal knows the city map and the the pairs (si, ti) for each company.

Note that Urpal doesn't know buses velocity. 

Input

The first line of the input contains four integers n, m, a, b (2 ≤ n ≤ 100; 0 ≤ m ≤ n·(n - 1); 1 ≤ a, b ≤ n; a ≠ b). 

The next m lines contain two integers each ui and vi (1 ≤ ui, vi ≤ n; ui ≠ vi) describing a directed road from junction ui to junction vi. All roads in the input will be distinct. 

The next line contains an integer k (0 ≤ k ≤ 100). There will be k lines after this, each containing two integers si and ti (1 ≤ si, ti ≤ n; si ≠ ti) saying there is a bus route starting at si and ending at ti. Please note that there might be no path from si to ti, this case is described in the problem statement.

Output

In the only line of output print the minimum number of buses Urpal should get on on his way in the worst case. If it's not possible to reach the destination in the worst case print -1.

Examples

Input

7 8 1 7
1 2
1 3
2 4
3 4
4 6
4 5
6 7
5 7
3
2 7
1 4
5 7


Output

2


Input

4 4 1 2
1 2
1 3
2 4
3 4
1
1 4


Output

-1

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace ::std;
const long long maxn = 101;
const long long mod = 1e9 + 7;
const long long inf = 1e9 + 500;
long long ger[maxn][maxn];
long long minn[maxn][maxn];
long long mint[maxn][maxn];
long long dp[maxn];
long long hazf[maxn];
long long n;
void del(long long a) {
  hazf[a] = 1;
  for (long long i = 0; i < n; i++) {
    ger[a][i] = inf;
    ger[i][a] = inf;
  }
}
void floyd() {
  for (long long i = 0; i < n; i++) {
    for (long long j = 0; j < n; j++) {
      mint[i][j] = ger[i][j];
    }
  }
  for (long long k = 0; k < n; k++) {
    for (long long i = 0; i < n; i++) {
      for (long long j = 0; j < n; j++) {
        mint[i][j] = min(mint[i][j], mint[i][k] + mint[k][j]);
      }
    }
  }
}
void floyd_minn() {
  for (long long i = 0; i < n; i++) {
    for (long long j = 0; j < n; j++) {
      minn[i][j] = ger[i][j];
    }
  }
  for (long long k = 0; k < n; k++) {
    for (long long i = 0; i < n; i++) {
      for (long long j = 0; j < n; j++) {
        minn[i][j] = min(minn[i][j], minn[i][k] + minn[k][j]);
      }
    }
  }
}
bool oto[maxn][maxn];
vector<pair<long long, long long> > otobos;
long long fas[maxn];
int main() {
  long long m, a, b;
  cin >> n >> m >> a >> b;
  a--;
  b--;
  for (long long i = 0; i < m; i++) {
    long long v, u;
    cin >> v >> u;
    v--;
    u--;
    ger[v][u] = 1;
  }
  for (long long i = 0; i < n; i++) {
    for (long long j = 0; j < n; j++) {
      if (ger[i][j] == 0 && i != j) {
        ger[i][j] = inf;
      }
    }
  }
  floyd_minn();
  long long k;
  cin >> k;
  for (long long i = 0; i < k; i++) {
    long long v, u;
    cin >> v >> u;
    v--;
    u--;
    if (minn[v][u] < 2 * n + 500) {
      vector<long long> vec;
      fill(fas, fas + maxn, -1);
      for (long long i = 0; i < n; i++) {
        if (minn[v][i] + minn[i][u] == minn[v][u]) {
          if (fas[minn[v][i]] != -1) {
            fas[minn[v][i]] = inf;
          } else {
            fas[minn[v][i]] = i;
          }
        }
      }
      for (long long i = 0; i < maxn; i++) {
        if (fas[i] != -1 && fas[i] != inf) {
          vec.push_back(fas[i]);
        }
      }
      for (long long s = 0; s < vec.size(); s++) {
        for (long long t = s + 1; t < vec.size(); t++) {
          oto[vec[s]][vec[t]] = 1;
        }
      }
    }
  }
  for (long long i = 0; i < n; i++) {
    for (long long j = 0; j < n; j++) {
      if (oto[i][j] && i != j && minn[i][j] < 2 * n + 500) {
        otobos.push_back(make_pair(i, j));
      }
    }
  }
  stack<long long> stk;
  stk.push(b);
  dp[b] = 0;
  long long t = 0;
  while (stk.size()) {
    while (stk.size()) {
      del(stk.top());
      stk.pop();
    }
    floyd();
    for (auto e : otobos) {
      if (minn[e.first][e.second] != mint[e.first][e.second] &&
          hazf[e.first] == 0) {
        dp[e.first] = t + 1;
        stk.push(e.first);
      }
    }
    t++;
  }
  if (hazf[a] == 0) {
    cout << -1;
  } else {
    cout << dp[a];
  }
}