Problem: The biggest gold mine in Berland consists of n caves, connected by n - 1 transitions. The entrance to the mine leads to the cave number 1, it is possible to go from it to any remaining cave of the mine by moving along the transitions. 

The mine is being developed by the InMine Inc., k miners work for it. Each day the corporation sorts miners into caves so that each cave has at most one miner working there. 

For each cave we know the height of its ceiling hi in meters, and for each miner we know his height sj, also in meters. If a miner's height doesn't exceed the height of the cave ceiling where he is, then he can stand there comfortably, otherwise, he has to stoop and that makes him unhappy.

Unfortunately, miners typically go on strike in Berland, so InMine makes all the possible effort to make miners happy about their work conditions. To ensure that no miner goes on strike, you need make sure that no miner has to stoop at any moment on his way from the entrance to the mine to his cave (in particular, he must be able to stand comfortably in the cave where he works). 

To reach this goal, you can choose exactly one cave and increase the height of its ceiling by several meters. However enlarging a cave is an expensive and complex procedure. That's why InMine Inc. asks you either to determine the minimum number of meters you should raise the ceiling of some cave so that it is be possible to sort the miners into the caves and keep all miners happy with their working conditions or to determine that it is impossible to achieve by raising ceiling in exactly one cave.

Input

The first line contains integer n (1 ≤ n ≤ 5·105) — the number of caves in the mine.

Then follows a line consisting of n positive integers h1, h2, ..., hn (1 ≤ hi ≤ 109), where hi is the height of the ceiling in the i-th cave.

Next n - 1 lines contain the descriptions of transitions between the caves. Each line has the form ai, bi (1 ≤ ai, bi ≤ n, ai ≠ bi), where ai and bi are the numbers of the caves connected by a path.

The next line contains integer k (1 ≤ k ≤ n).

The last line contains k integers s1, s2, ..., sk (1 ≤ sj ≤ 109), where sj is the j-th miner's height.

Output

In the single line print the minimum number of meters that you need to raise the ceiling by in some cave so that all miners could be sorted into caves and be happy about the work conditions. If it is impossible to do, print  - 1. If it is initially possible and there's no need to raise any ceiling, print 0. 

Examples

Input

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


Output

6


Input

7
10 14 7 12 4 50 1
1 2
2 3
2 4
5 1
6 5
1 7
6
7 3 4 8 8 10


Output

0


Input

3
4 2 8
1 2
1 3
2
17 15


Output

-1

Note

In the first sample test we should increase ceiling height in the first cave from 5 to 11. After that we can distribute miners as following (first goes index of a miner, then index of a cave): <image>.

In the second sample test there is no need to do anything since it is already possible to distribute miners as following: <image>.

In the third sample test it is impossible.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
#pragma GCC optimize(2)
using namespace std;
inline char nc() {
  static char buf[100000], *p1 = buf, *p2 = buf;
  return p1 == p2 && (p2 = (p1 = buf) + fread(buf, 1, 100000, stdin), p1 == p2)
             ? EOF
             : *p1++;
}
inline void read(int &x) {
  char c = nc(), b = 1;
  for (; !(c >= '0' && c <= '9'); c = nc())
    if (c == '-') b = -1;
  for (x = 0; c >= '0' && c <= '9'; x = x * 10 + c - '0', c = nc())
    ;
  x *= b;
}
const int N = 1000005;
int T[N << 2], F[N << 2];
inline void Add(int x, int l, int r, int ql, int qr, int t) {
  if (ql <= l && r <= qr) {
    T[x] += t;
    F[x] += t;
    return;
  }
  int mid = (l + r) >> 1;
  if (ql <= mid) Add(x << 1, l, mid, ql, qr, t);
  if (qr > mid) Add(x << 1 | 1, mid + 1, r, ql, qr, t);
  T[x] = min(T[x << 1], T[x << 1 | 1]) + F[x];
}
struct edge {
  int u, v, next;
} G[N << 1];
int head[N], inum;
inline void add(int u, int v, int p) {
  G[p].u = u;
  G[p].v = v;
  G[p].next = head[u];
  head[u] = p;
}
int n, m;
int H[N], B[N];
int sx[N], icnt;
inline int Bin(int x) { return lower_bound(sx + 1, sx + icnt + 1, x) - sx; }
int minv[N], secv[N];
vector<int> Vec[N >> 1];
inline void dfs(int u, int fa) {
  minv[u] = minv[fa], secv[u] = secv[fa];
  if (H[u] < H[minv[u]])
    secv[u] = minv[u], minv[u] = u;
  else if (H[u] < H[secv[u]])
    secv[u] = u;
  Vec[minv[u]].push_back(u);
  Add(1, 1, icnt, 1, H[minv[u]], 1);
  for (int p = head[u]; p; p = G[p].next)
    if (G[p].v != fa) dfs(G[p].v, u);
}
int ans;
int lst[N], tot;
int hh[N], icnth;
inline void Solve(int u) {
  tot = 0;
  icnth = 0;
  for (int i = 0; i < (int)Vec[u].size(); i++)
    lst[++tot] = H[secv[Vec[u][i]]], hh[++icnth] = H[secv[Vec[u][i]]];
  sort(lst + 1, lst + tot + 1);
  hh[++icnth] = H[u], hh[++icnth] = icnt;
  sort(hh + 1, hh + icnth + 1);
  icnth = unique(hh + 1, hh + icnth + 1) - hh - 1;
  int x = 0;
  Add(1, 1, icnt, 1, H[u], -(int)Vec[u].size());
  int pnt = 1;
  for (int i = 1; i < icnth; i++) {
    while (pnt <= tot && lst[pnt] == hh[i])
      Add(1, 1, icnt, 1, lst[pnt], 1), pnt++;
    Add(1, 1, icnt, 1, hh[i + 1], tot - pnt + 1);
    if (T[1] >= 0) {
      x = i;
      Add(1, 1, icnt, 1, hh[i + 1], -(tot - pnt + 1));
      break;
    }
    Add(1, 1, icnt, 1, hh[i + 1], -(tot - pnt + 1));
  }
  if (x) {
    int L = hh[x], R = hh[x + 1];
    while (L + 1 < R) {
      int MID = (L + R) >> 1;
      Add(1, 1, icnt, 1, MID, tot - pnt + 1);
      if (T[1] >= 0)
        R = MID;
      else
        L = MID;
      Add(1, 1, icnt, 1, MID, -(tot - pnt + 1));
    }
    ans = min(ans, sx[R] - sx[H[u]]);
  }
  for (int i = 1; i < pnt; i++) Add(1, 1, icnt, 1, lst[i], -1);
  Add(1, 1, icnt, 1, H[u], (int)Vec[u].size());
}
int main() {
  int x, y;
  read(n);
  for (int i = 1; i <= n; i++) read(H[i]), sx[++icnt] = H[i];
  for (int i = 1; i < n; i++)
    read(x), read(y), add(x, y, ++inum), add(y, x, ++inum);
  read(m);
  for (int i = 1; i <= m; i++) read(B[i]), sx[++icnt] = B[i];
  sort(sx + 1, sx + icnt + 1);
  icnt = unique(sx + 1, sx + icnt + 1) - sx - 1;
  sx[++icnt] = 1 << 30;
  for (int i = 1; i <= n; i++) H[i] = Bin(H[i]);
  for (int i = 1; i <= m; i++) B[i] = Bin(B[i]), Add(1, 1, icnt, 1, B[i], -1);
  H[0] = icnt;
  dfs(1, 0);
  if (T[1] >= 0) return printf("0\n"), 0;
  ans = 1 << 30;
  for (int i = 1; i <= n; i++) Solve(i);
  if (ans == 1 << 30)
    printf("%d\n", -1);
  else
    printf("%d\n", ans);
  return 0;
}