#include <bits/stdc++.h>
#define LL long long
#define ULL unsigned long long
#define pii pair<int, int>
#define pll pair<LL, LL>
#define fi first
#define se second
#define mkp make_pair
#define sz(x) (int)x.size()
using namespace std;
bool Mst;

LL read() {
	LL s = 0, f = 1;
	char ch = getchar();
	while (ch < '0' || ch > '9')
		f = (ch == '-' ? -1 : 1), ch = getchar();
	while (ch >= '0' && ch <= '9')
		s = (s << 1) + (s << 3) + (ch ^ 48), ch = getchar();
	return s * f;
}

ULL readull() {
	ULL s = 0; char ch = getchar();
	while (ch < '0' || ch > '9') ch = getchar();
	while (ch >= '0' && ch <= '9') s = (s << 1) + (s << 3) + (ch ^ 48), ch = getchar();
	return s;
}

mt19937 rnd(1919810);

const int MAXN = 200005;

int n, m;
ULL a[MAXN];
vector<int> e[MAXN];
int fa[MAXN][20], dep[MAXN], Fa[MAXN];
int dfn[MAXN], tim = 0, rnk[MAXN];

void pre(int x, int fat) {
	fa[x][0] = Fa[x] = fat, dep[x] = dep[fat] + 1;
	dfn[x] = ++tim, rnk[tim] = x;
	for (int y : e[x])
		if (y != fat)
			pre(y, x);
}

int mov(int u, int d) {
	for (int i = 18; i >= 0; i--)
		if ((1 << i) <= d)
			d -= (1 << i), u = fa[u][i];
	return u;
}

int lca(int u, int v) {
	dep[u] > dep[v] ? u = mov(u, dep[u] - dep[v]) : v = mov(v, dep[v] - dep[u]);
	if (u == v) return u;
	for (int i = 18; i >= 0; i--)
		if (fa[u][i] != fa[v][i])
			u = fa[u][i], v = fa[v][i];
	return fa[u][0];
}

namespace Blocker {
	const int MAXC = 505;
	int B, C;
	int L[MAXC], R[MAXC], bl[MAXN];
	ULL sum[MAXC], val[MAXN];
	void init() {
		B = sqrt(n), C = (n - 1) / B + 1;
		for (int i = 1; i <= n; i++)
			bl[i] = (i - 1) / B + 1, R[bl[i]] = i;
		for (int i = n; i; i--)
			L[bl[i]] = i;
	}
	void mdf(int x, ULL v) {
		for (int i = x; i <= R[bl[x]]; i++) val[i] += v;
		for (int i = bl[x]; i <= C; i++) sum[i] += v;
	}
	inline ULL qry(int x) { return val[x] + sum[bl[x] - 1];}
	inline ULL qry(int l, int r) {
		return qry(r) - qry(l - 1);
	}
}

namespace Tree1 {
	vector<int> e[MAXN];
	void add(int u, int v) {
		e[u].push_back(v);
		e[v].push_back(u);
	}
	int fa[MAXN][20], dep[MAXN], dfn[MAXN], rnk[MAXN], tim = 0, sz[MAXN], o[MAXN], Fa[MAXN], id[MAXN];
	void pre(int x, int fat) {
		dfn[x] = ++tim, rnk[tim] = x, sz[x] = 1;
		fa[x][0] = Fa[x] = fat, dep[x] = dep[fat] + 1;
		for (int y : e[x])
			if (y != fat)
				pre(y, x), sz[x] += sz[y];
	}
	int mov(int u, int d) {
		for (int i = 18; i >= 0; i--)
			if ((1 << i) <= d)
				d -= (1 << i), u = fa[u][i];
		return u;
	}
	int lca(int u, int v) {
		dep[u] > dep[v] ? u = mov(u, dep[u] - dep[v]) : v = mov(v, dep[v] - dep[u]);
		if (u == v) return u;
		for (int i = 18; i >= 0; i--)
			if (fa[u][i] != fa[v][i])
				u = fa[u][i], v = fa[v][i];
		return fa[u][0];
	}
	void pre() {
		pre(1, 0);
		for (int j = 1; j <= 18; j++)
			for (int i = 1; i <= n; i++)
				fa[i][j] = fa[fa[i][j - 1]][j - 1];
		for (int i = 1; i <= n; i++) o[i] = i;
		sort(o + 1, o + n + 1, [](int x, int y) {return dep[x] < dep[y];});
	}
	void mdf(int x, int y, int l, ULL k) {
		Blocker::mdf(dfn[x], k), Blocker::mdf(dfn[y], k);
		Blocker::mdf(dfn[l], -k), Blocker::mdf(dfn[Fa[l]], -k);
	}
	inline ULL qry(int x) {
		return Blocker::qry(dfn[x], dfn[x] + sz[x] - 1) + a[x];
	}
	int sum[MAXN];
	void intot(int lst) {
		lst = id[lst];
		for (int i = lst; i > 1; i--) {
			int x = o[i];
			sum[Fa[x]] += sum[x];
		}
		for (int i = 2; i <= n; i++) {
			int x = o[i];
			sum[x] += sum[Fa[x]];
		}
	}
	int qry(int u, int v, int l) {
		return sum[u] + sum[v] - sum[l] - sum[Fa[l]];
	}
}

int p[MAXN], cnt = 0;
bitset<MAXN> in;

void spread() {
	cnt = 2000;
	for (int i = 1; i <= cnt; i++) p[i] = rnd() % n + 1;
	p[++cnt] = 1;
	sort(p + 1, p + cnt + 1, [](int x, int y) {return dfn[x] < dfn[y];});
	for (int i = 2, len = cnt; i <= len; i++) p[++cnt] = lca(p[i], p[i - 1]);
	sort(p + 1, p + cnt + 1, [](int x, int y) {return dfn[x] < dfn[y];});
	cnt = unique(p + 1, p + cnt + 1) - p - 1;
	int mx = 0;
	for (int i = 2; i <= cnt; i++) mx = max(mx, dep[p[i]] - dep[p[i - 1]]);
	cerr << mx << endl;
	for (int i = 1; i <= cnt; i++) in[p[i]] = 1;
}

int x[MAXN], y[MAXN], l1[MAXN];
int p1[MAXN], p2[MAXN], p3[MAXN];
ULL ans[MAXN], k[MAXN];
int MAX = 0, CNT = 0;

int qry(int u, int i, ULL v) {
	while (!in[u])
		ans[i] += v * Tree1::qry(u), u = Fa[u], CNT++;
	return u;
}

bool Med;
signed main() {
	// freopen("mist5-1.in", "r", stdin);
	// freopen("1.out", "w", stdout);
	fprintf(stderr, "%.2lfMB\n", abs(&Med - &Mst) / 1048576.0);
	n = read(), m = read();
	for (int i = 1; i <= n; i++) a[i] = readull();
	for (int i = 1; i < n; i++) {
		int u = read(), v = read();
		Tree1::add(u, v);
	}
	for (int i = 1; i < n; i++) {
		int u = read(), v = read();
		e[u].push_back(v), e[v].push_back(u);
	}
	pre(1, 0), Tree1::pre();
	for (int j = 1; j <= 18; j++)
		for (int i = 1; i <= n; i++)
			fa[i][j] = fa[fa[i][j - 1]][j - 1];
	Blocker::init(), spread();
	cerr << cnt << endl;
	for (int i = 1; i <= m; i++) {
		x[i] = read(), y[i] = read(), k[i] = readull(), l1[i] = Tree1::lca(x[i], y[i]);
		Tree1::mdf(x[i], y[i], l1[i], k[i]);
		p1[i] = qry(x[i], i, 1), p2[i] = qry(y[i], i, 1);
		int l = lca(x[i], y[i]);
		p3[i] = qry(l, i, -2), ans[i] += Tree1::qry(l);
	}
	cerr << CNT << endl;
	cerr << 1.0 * clock() / CLOCKS_PER_SEC << endl;
	for (int i = 1; i <= cnt; i++) {
		memset(Tree1::sum, 0, sizeof Tree1::sum);
		ULL res = 0;
		Tree1::sum[p[i]]++;
		Tree1::intot(p[i]);
		for (int j = 1; j <= m; j++) {
			int c = Tree1::qry(x[j], y[j], l1[j]);
			// cout << c << endl;
			res += k[j] * c;
			if (p1[j] == p[i]) ans[j] += res;
			if (p2[j] == p[i]) ans[j] += res;
			if (p3[j] == p[i]) ans[j] -= res * 2;
		}
	}
	for (int i = 1; i <= m; i++)
		printf("%llu\n", ans[i]);
	cerr << 1.0 * clock() / CLOCKS_PER_SEC << endl;
	return 0;
}