#include<bits/stdc++.h>
#define int long long
using namespace std;
const int mod=1e9+7;
const int N=1e5+10;
int c,T,n,k;
struct Edge {
	int x,y;
} e[N];
struct Node {
	int to,nxt;
	Node() {
		to=nxt=0;
	}
	Node(int a,int b) {
		to=a,nxt=b;
	}
} adj[N<<1];
int head[N],idx;
int a[N],fac[N];
int b[N],vis[N],ans;
inline void add(int x,int y) {
	adj[++idx]=Node(y,head[x]);
	head[x]=idx;
	return ;
}
inline void init_() {
	idx=0;
	memset(head,0,sizeof head);
	return ;
}
inline void dfs(int stp) {
	if(stp>n-1) {
		bool flag=1;
		for(int i=2;i<n;i++) {
			if(e[b[i-1]].x==e[b[i]].x||e[b[i-1]].x==e[b[i]].y||e[b[i-1]].y==e[b[i]].x||e[b[i-1]].y==e[b[i]].y)
				;
			else {
				flag=0;
				break;
			} 
		}
		if(flag)
			ans=(ans+1)%mod;
		return ;
	}
	for(int i=1;i<n;i++) {
		if(!vis[i]) {
			b[stp]=i;
			vis[i]=1;
			dfs(stp+1);
			vis[i]=0;
		}
	}
	return ;
}
signed main() {
	freopen("traverse.in","r",stdin);
	freopen("traverse.out","w",stdout);
	fac[0]=1;
	for(int i=1;i<N;i++)
		fac[i]=fac[i-1]*i%mod;
	scanf("%lld%lld",&c,&T);
	while(T--) {
		scanf("%lld%lld",&n,&k);
		bool fa=1,fb=1;
		init_();
		for(int i=1;i<n;i++) {
			scanf("%lld%lld",&e[i].x,&e[i].y);
			add(e[i].x,e[i].y),add(e[i].y,e[i].x);
			if(e[i].x!=i||e[i].y!=i+1)
				fa=0;
			if(e[i].x!=1||e[i].y!=i+1)
				fb=0; 
		} 
		for(int i=1;i<=k;i++)
			scanf("%lld",&a[i]);
		if(fa) {
			printf("1\n");
			continue;
		}
		if(fb) {
			printf("%lld\n",k*fac[n-2]%mod);
			continue;
		}
		for(int i=1;i<=k;i++) {
			b[1]=a[i];
			vis[a[i]]=1;
			dfs(2);
			vis[a[i]]=0;
		}
		printf("%lld\n",ans);
	}
	return 0;
}
/*
1 1
10 3
1 2
1 3
1 4
1 5
1 6
1 7
1 8
1 9
1 10
1 2 3
*/
