Problem: The country Treeland consists of n cities connected with n - 1 bidirectional roads in such a way that it's possible to reach every city starting from any other city using these roads. There will be a soccer championship next year, and all participants are Santa Clauses. There are exactly 2k teams from 2k different cities.

During the first stage all teams are divided into k pairs. Teams of each pair play two games against each other: one in the hometown of the first team, and the other in the hometown of the other team. Thus, each of the 2k cities holds exactly one soccer game. However, it's not decided yet how to divide teams into pairs.

It's also necessary to choose several cities to settle players in. Organizers tend to use as few cities as possible to settle the teams.

Nobody wants to travel too much during the championship, so if a team plays in cities u and v, it wants to live in one of the cities on the shortest path between u and v (maybe, in u or in v). There is another constraint also: the teams from one pair must live in the same city.

Summarizing, the organizers want to divide 2k teams into pairs and settle them in the minimum possible number of cities m in such a way that teams from each pair live in the same city which lies between their hometowns.

Input

The first line of input contains two integers n and k (2 ≤ n ≤ 2·105, 2 ≤ 2k ≤ n) — the number of cities in Treeland and the number of pairs of teams, respectively.

The following n - 1 lines describe roads in Treeland: each of these lines contains two integers a and b (1 ≤ a, b ≤ n, a ≠ b) which mean that there is a road between cities a and b. It's guaranteed that there is a path between any two cities.

The last line contains 2k distinct integers c1, c2, ..., c2k (1 ≤ ci ≤ n), where ci is the hometown of the i-th team. All these numbers are distinct.

Output

The first line of output must contain the only positive integer m which should be equal to the minimum possible number of cities the teams can be settled in.

The second line should contain m distinct numbers d1, d2, ..., dm (1 ≤ di ≤ n) denoting the indices of the cities where the teams should be settled.

The k lines should follow, the j-th of them should contain 3 integers uj, vj and xj, where uj and vj are the hometowns of the j-th pair's teams, and xj is the city they should live in during the tournament. Each of the numbers c1, c2, ..., c2k should occur in all uj's and vj's exactly once. Each of the numbers xj should belong to {d1, d2, ..., dm}.

If there are several possible answers, print any of them.

Example

Input

6 2
1 2
1 3
2 4
2 5
3 6
2 5 4 6


Output

1
2
5 4 2
6 2 2

Note

In the first test the orginizers can settle all the teams in the city number 2. The way to divide all teams into pairs is not important, since all requirements are satisfied anyway, because the city 2 lies on the shortest path between every two cities from {2, 4, 5, 6}.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
template <class T, class S>
ostream& operator<<(ostream& os, const pair<T, S>& v) {
  return os << "(" << v.first << ", " << v.second << ")";
}
template <class T>
ostream& operator<<(ostream& os, const vector<T>& v) {
  os << "[";
  for (int i = int(0); i <= int((static_cast<int>((v).size())) - 1); ++i) {
    if (i) os << ", ";
    os << v[i];
  }
  return os << "]";
}
template <class T>
bool setmax(T& _a, T _b) {
  if (_a < _b) {
    _a = _b;
    return true;
  }
  return false;
}
template <class T>
bool setmin(T& _a, T _b) {
  if (_b < _a) {
    _a = _b;
    return true;
  }
  return false;
}
template <class T>
T gcd(T _a, T _b) {
  return _b == 0 ? _a : gcd(_b, _a % _b);
}
vector<int> read_vi(int n = -1) {
  if (n < 0) scanf("%d", &n);
  vector<int> a(n);
  for (int i = int(0); i <= int((n)-1); ++i) scanf("%d", &a[i]);
  return a;
}
vector<long long> read_vl(int n = -1) {
  if (n < 0) scanf("%d", &n);
  vector<long long> a(n);
  for (int i = int(0); i <= int((n)-1); ++i) scanf("%lld", &a[i]);
  return a;
}
vector<double> read_vd(int n = -1) {
  if (n < 0) scanf("%d", &n);
  vector<double> a(n);
  for (int i = int(0); i <= int((n)-1); ++i) scanf("%lf", &a[i]);
  return a;
}
vector<pair<int, int> > read_vpi(int n = -1) {
  if (n < 0) scanf("%d", &n);
  vector<pair<int, int> > a(n);
  for (int i = int(0); i <= int((n)-1); ++i)
    scanf("%d%d", &a[i].first, &a[i].second);
  return a;
}
vector<pair<long long, long long> > read_vpl(int n = -1) {
  if (n < 0) scanf("%d", &n);
  vector<pair<long long, long long> > a(n);
  for (int i = int(0); i <= int((n)-1); ++i)
    scanf("%lld%lld", &a[i].first, &a[i].second);
  return a;
}
vector<pair<double, double> > read_vpd(int n = -1) {
  if (n < 0) scanf("%d", &n);
  vector<pair<double, double> > a(n);
  for (int i = int(0); i <= int((n)-1); ++i)
    scanf("%lf%lf", &a[i].first, &a[i].second);
  return a;
}
inline long long powmod(long long a, long long b, long long m) {
  long long r = 1;
  for (; b > 0; b >>= 1, a = a * a % m) {
    if (b & 1) r = r * a % m;
  }
  return r;
}
int main() {
  int n, k;
  scanf("%d%d", &n, &k);
  vector<vector<int> > es(n);
  for (int i = int(0); i <= int((n - 1) - 1); ++i) {
    int a, b;
    scanf("%d%d", &a, &b);
    --a, --b;
    es[a].push_back(b), es[b].push_back(a);
  }
  vector<bool> has_team(n, false);
  for (int i : read_vi(k * 2)) {
    has_team[i - 1] = true;
  }
  vector<int> size(n), my(n);
  const function<void(int, int)> dfs = [&](int x, int fa) {
    size[x] = has_team[x];
    my[x] = -1;
    for (int y : es[x]) {
      if (y != fa) {
        dfs(y, x);
        size[x] += size[y];
        if (my[x] < 0 || size[y] > size[my[x]]) {
          my[x] = y;
        }
      }
    }
  };
  dfs(0, -1);
  int root = 0;
  while (my[root] >= 0 && size[my[root]] > k) {
    root = my[root];
  }
  printf("1\n%d\n", root + 1);
  vector<vector<int> > xs(n);
  const function<void(int, int, vector<int>*)> extract = [&](int x, int fa,
                                                             vector<int>* res) {
    if (has_team[x]) res->push_back(x);
    for (int y : es[x]) {
      if (y != fa) extract(y, x, res);
    }
  };
  if (has_team[root]) xs[root].push_back(root);
  for (int x : es[root]) extract(x, root, &xs[x]);
  multiset<pair<int, int> > m;
  for (int x = int(0); x <= int((n)-1); ++x)
    m.insert(make_pair(static_cast<int>((xs[x]).size()), x));
  while (m.rbegin()->first > 0) {
    int i = (--m.end())->second;
    m.erase(--m.end());
    int j = (--m.end())->second;
    m.erase(--m.end());
    printf("%d %d %d\n", xs[i].back() + 1, xs[j].back() + 1, root + 1);
    xs[i].pop_back();
    xs[j].pop_back();
    m.insert(make_pair(static_cast<int>((xs[i]).size()), i));
    m.insert(make_pair(static_cast<int>((xs[j]).size()), j));
  }
  return 0;
}