#include<bits/stdc++.h>
#define ll long long
using namespace std;
ll d[201000];
int fa[201000],top[201000],sz[201000],dfn[201000],n,q,bel[200100];
struct ed{int v,w;};
vector<ed>g[200100];
int son[201000],a[201000],di[200100];
char C[200100];
#define pb push_back
void dfs(int x){
	sz[x]=1;int mt=-1; 
	for(ed t:g[x])if(t.v!=fa[x]){
		fa[t.v]=x,d[t.v]=d[x]+t.w,di[t.v]=di[x]+1,dfs(t.v),sz[x]+=sz[t.v];
		if(mt<sz[t.v])mt=sz[t.v],son[x]=t.v;
	}
}
int lca(int a,int b){
	if(a==-1)return b;
	if(b==-1)return a;
	while(top[a]!=top[b]){
		if(di[top[a]]<di[top[b]])swap(a,b);
		a=fa[top[a]];
	}
	if(di[a]>di[b])swap(a,b);return a;
}
vector<int>zb;
void dfs2(int x,int ff){
	top[x]=ff,bel[dfn[x]=++dfn[0]]=x;
	if(x==top[x])zb.pb(x);
	if(!son[x])return;
	dfs2(son[x],ff);
	for(ed t:g[x])if(t.v!=son[x]&&t.v!=fa[x])dfs2(t.v,t.v);
}
int lc[800100];
void build(int p,int l,int r){
	if(l==r){lc[p]=(a[l]?l:-1);return;}
	int mid=(l+r)>>1;
	build(p<<1,l,mid),build(p<<1|1,mid+1,r);
	lc[p]=lca(lc[p<<1],lc[p<<1|1]); 
}
void ud(int p,int l,int r,int x){
	if(l==r){lc[p]=(a[l]?l:-1);return;}
	int mid=(l+r)>>1;
	if(x<=mid)ud(p<<1,l,mid,x);
	else ud(p<<1|1,mid+1,r,x);
	lc[p]=lca(lc[p<<1],lc[p<<1|1]);
}
int as(int p,int l,int r,int x,int y){
	if(y<l||x>r||lc[p]==-1)return -1;
	if(x<=l&&r<=y)return lc[p];int mid=(l+r)>>1;
	return lca(as(p<<1,l,mid,x,y),as(p<<1|1,mid+1,r,x,y));
}
int T[201000],cn,ls[20010000],rs[20010000],mx[20100000];
void up(int &o,int l,int r,int x,int z){
	if(!o)o=++cn;
	if(l==r){mx[o]=z;return;}
	int mid=(l+r)>>1;if(x<=mid)up(ls[o],l,mid,x,z);
	else up(rs[o],mid+1,r,x,z);
	mx[o]=max(mx[ls[o]],mx[rs[o]]);
}
int ask(int p,int l,int r,int x,int y){
	if(y<l||x>r||!p)return 0;
	if(x<=l&&r<=y)return mx[p];
	int mid=(l+r)>>1;
	return max(ask(ls[p],l,mid,x,y),ask(rs[p],mid+1,r,x,y));
}
int main(){
	scanf("%d%d%s",&n,&q,C+1);
	for(int i=1;i<=n;i++)a[i]=C[i]-'0';
	for(int i=1,u,v,w;i<n;i++){
		scanf("%d%d%d",&u,&v,&w);
		g[u].pb((ed){v,w}),g[v].pb((ed){u,w});
	}
	dfs(1),dfs2(1,1);
	build(1,1,n);
	for(int x=1;x<=n;x++)if(a[x]){
		int u=x;
		while(u)up(T[top[u]],1,n,x,dfn[u]),u=fa[top[u]];
	}
	//维护区间最大值。 
	for(int i=1,op,l,r,x;i<=q;i++){
		scanf("%d",&op);
		if(op==2){
			//对于每个链维护出来最大的被搞的点
			scanf("%d%d",&l,&r);int u=as(1,1,n,l,r);
			if(u==-1)puts("-1");
			else{
				ll ans=-d[u];
				for(int x:zb){
					int si=ask(T[x],1,n,l,r);
					if(si>0)ans+=d[bel[si]]-d[fa[x]];
				}
				printf("%lld\n",ans*2);
			}
		}
		else{
			scanf("%d",&x),a[x]^=1;
			ud(1,1,n,x);int u=x;
			while(u)up(T[top[u]],1,n,x,a[x]?dfn[u]:0),u=fa[top[u]];
		}
	} 
	return 0;
}