#include<bits/stdc++.h>
#define int long long
using namespace std;
#define ls(x) (x<<1)
#define rs(x) (x<<1|1)
#define mid ((l+r)>>1)
#define cle node(INF,0,0)
#define ncle node(loc[l],loc[l],1)
const int INF=1e18;
const int N=200005;
int loc[N],fa[N],val[N],cid[N],top[N],dep[N],len[55],tot=0,ccnt=1;
char s[N];
vector<int>chain[55];
vector<int>cedge[55];
struct edg{
	int v,w;
};
vector<edg>edge[N];
struct node{
	int mn,mx,cnt;
	node(int MN=INF,int MX=0,int CNT=0){
		mn=MN,mx=MX,cnt=CNT;
	}
}t[4*N][55],ret[55];
void merge(node &x,node y){
	x.mn=min(x.mn,y.mn);
	x.mx=max(x.mx,y.mx);
	x.cnt+=y.cnt;
}
void push_up(int p){
	for(int i=1;i<=ccnt;i++){
		t[p][i]=t[ls(p)][i];
		merge(t[p][i],t[rs(p)][i]);
	}
}
void build(int p,int l,int r){
	if(l==r){
		t[p][cid[l]]=(s[l]=='0')?cle:ncle;
		return;
	}
	build(ls(p),l,mid);
	build(rs(p),mid+1,r);
	push_up(p);
}
void modi(int p,int l,int r,int x){
	if(l==r){ 
		t[p][cid[x]]=(t[p][cid[x]].cnt)?cle:ncle;
		return;
	}
	if(x<=mid) modi(ls(p),l,mid,x);
	else modi(rs(p),mid+1,r,x);
	push_up(p);
}
void query(int p,int l,int r,int ql,int qr){
	if(l>=ql&&r<=qr){
		for(int i=1;i<=ccnt;i++) merge(ret[i],t[p][i]);
		return;
	}
	if(ql<=mid) query(ls(p),l,mid,ql,qr);
	if(qr>mid) query(rs(p),mid+1,r,ql,qr);
}
void dfs(int x,int f,int w,int tp){
	fa[x]=f,val[x]=w;
	cid[x]=cid[tp];
	loc[x]=++len[cid[tp]];
	chain[cid[tp]].push_back(x);
	dep[x]=dep[f]+w;
	int ok=0;
	for(int i=0;i<edge[x].size();i++){
		int v=edge[x][i].v,w=edge[x][i].w;
		if(v==f) continue;
		if(!ok) ok=1,dfs(v,x,w,tp);
		else{
			cid[v]=++ccnt;
			top[ccnt]=v;
			dfs(v,x,w,v);
		}
	}
}
int cdfs(int x){
	int l=ret[x].mn,r=ret[x].mx;
	int ans=0;
	for(int i=0;i<cedge[x].size();i++){
		int v=cedge[x][i];
		ans+=cdfs(v);
		int p=loc[chain[v][0]];
		if(ret[v].cnt){
			l=min(l,p);
			r=max(r,p);
		}
		ret[x].cnt+=ret[v].cnt;
	}
	if(ret[x].cnt!=tot) l=0;
	return dep[chain[x][r]]-dep[chain[x][l]]+ans;
}
signed main(){
	int n,q,u,v,w;
	cin>>n>>q;
	for(int i=1;i<=50;i++) chain[i].push_back(0);
	scanf("%s",s+1);
	for(int i=1;i<n;i++){
		scanf("%lld%lld%lld",&u,&v,&w);
		edge[u].push_back((edg){v,w});
		edge[v].push_back((edg){u,w});
	}
	cid[1]=top[1]=1;
	dfs(1,0,0,1);
	for(int i=1;i<=ccnt;i++) chain[i][0]=fa[top[i]];
	for(int i=2;i<=ccnt;i++) cedge[cid[fa[top[i]]]].push_back(i);
	build(1,1,n);
	int op,x,y;
	for(int i=1;i<=q;i++){
		scanf("%lld",&op);
		if(op==1){
			scanf("%lld",&x);
			modi(1,1,n,x);
		}
		else{
			scanf("%lld%lld",&x,&y);
			for(int j=1;j<=ccnt;j++) ret[j]=cle;
			query(1,1,n,x,y);
			tot=0;
			for(int j=1;j<=ccnt;j++) tot+=ret[j].cnt;
			if(!tot) puts("-1");
			else printf("%lld\n",2*cdfs(1));
		}
	}
	return 0;
}