#include<bits/stdc++.h>
#define file(F) freopen(#F".in","r",stdin),freopen(#F".out","w",stdout)
#define lowbit(x) ((x)&-(x))
#define ALL(x) (x).begin(),(x).end()
#define debug(...) fprintf(stderr,__VA_ARGS__)
#define popc(x) (__builtin_popcountll((x)))
#define abs(x) ((x)>=0?(x):-(x))
using namespace std;
using ll=long long;
using uint=uint32_t;
template<typename T>
inline bool Max(T &x,T y) { return std::less<T>()(x,y)&&(x=y,true); }
template<typename T>
inline bool Min(T &x,T y) { return std::less<T>()(y,x)&&(x=y,true); }
void Solve();
const int N = 2e5+25;
int n,Q;
bool lt[N];
vector<pair<int,int>> e[N];
ll dis[N];
int dfn[N],pos[N],dfx,ed[N];
vector<int> top; int tp[N];
int st[N][20];
void dfs(int u,int fa,int t) {
   pos[dfn[u]=++dfx]=u;
   if(u==t) top.emplace_back(t); tp[u]=top.size()-1;
   st[dfn[u]][0]=fa;
   int son=0; for(auto [v,w]:e[u]) if(v!=fa) {
      dis[v]=dis[u]+w; dfs(son=v,u,t); break;
   } ed[u]=dfx;
   for(auto [v,w]:e[u]) if(v!=fa&&v!=son) {
      dis[v]=dis[u]+w; dfs(v,u,v);
   }
}
int LCA(int x,int y) {
   if(x==y) return x;
   if((x=dfn[x])>(y=dfn[y])) swap(x,y);
   int l=__lg(y-x++);
   return min(st[x][l],st[y-(1<<l)+1][l],
    [](int a,int b){ return dfn[a]<dfn[b]; });
}
inline ll dist(int x,int y) { return dis[x]+dis[y]-2*dis[LCA(x,y)]; }
struct SGT {
#define mid ((L+R)>>1)
#define ls (u<<1)
#define rs (ls|1)
int mx[N<<2],mn[N<<2];
set<int> leaf[N];
void build(int u,int L,int R) {
   mx[u]=0,mn[u]=N;
   if(L==R) return void(leaf[L].clear());
   build(ls,L,mid),build(rs,mid+1,R);
}
void insert(int u,int L,int R,int x,int k) {
   if(L==R) {
      leaf[L].insert(k);
      mx[u]=*leaf[L].rbegin();
      mn[u]=*leaf[L].begin();
      return ;
   }
   if(x<=mid) insert(ls,L,mid,x,k);
   else insert(rs,mid+1,R,x,k);
   mx[u]=max(mx[ls],mx[rs]),mn[u]=min(mn[ls],mn[rs]);
}
void erase(int u,int L,int R,int x,int k) {
   if(L==R) {
      leaf[L].erase(k);
      if(leaf[L].empty())
         mx[u]=0,mn[u]=N;
      else {
         mx[u]=*leaf[L].rbegin();
         mn[u]=*leaf[L].begin();
      }
      return ;
   }
   if(x<=mid) erase(ls,L,mid,x,k);
   else erase(rs,mid+1,R,x,k);
   mx[u]=max(mx[ls],mx[rs]),mn[u]=min(mn[ls],mn[rs]);
}
int querymx(int u,int L,int R,int l,int r) {
   if(l<=L&&R<=r) return mx[u];
   if(r<=mid) return querymx(ls,L,mid,l,r);
   if(l> mid) return querymx(rs,mid+1,R,l,r);
   return max(querymx(ls,L,mid,l,r),querymx(rs,mid+1,R,l,r));
}
int querymn(int u,int L,int R,int l,int r) {
   if(l<=L&&R<=r) return mn[u];
   if(r<=mid) return querymn(ls,L,mid,l,r);
   if(l> mid) return querymn(rs,mid+1,R,l,r);
   return min(querymn(ls,L,mid,l,r),querymn(rs,mid+1,R,l,r));
}
#undef mid
#undef ls
#undef rs
} t[55];
signed main() {
#ifndef ONLINE_JUDGE
#endif
   cin.tie(nullptr)->sync_with_stdio(false);
   Solve();
}
void Solve() {
   cin>>n>>Q;
   for(int i=1;i<=n;i++) {
      char ch; cin>>ch;
      lt[i]=ch=='1';
   }
   for(int i=1;i<n;i++) {
      int u,v,w; cin>>u>>v>>w;
      e[u].emplace_back(v,w);
      e[v].emplace_back(u,w);
   }
   dfs(1,0,1);
   for(int l=0;l<19;l++) for(int i=1;i+(1<<l+1)-1<=n;i++)
      st[i][l+1]=min(st[i][l],st[i+(1<<l)][l],
       [](int a,int b){ return dfn[a]<dfn[b]; });
   for(int i=0;i<top.size();i++) t[i].build(1,1,n);
   for(int i=1;i<=n;i++) if(lt[i]) t[tp[i]].insert(1,1,n,i,dfn[i]);
   while(Q--) {
      int op,x,y; cin>>op;
      if(op==1) {
         cin>>x;
         if(lt[x]^=1) t[tp[x]].insert(1,1,n,x,dfn[x]);
         else t[tp[x]].erase(1,1,n,x,dfn[x]);
      } else {
         cin>>x>>y;
         int rt=0,ed=0;
         ll ans=0;
         for(int i=0;i<top.size();i++) {
            int p=t[i].querymn(1,1,n,x,y);
            int q=t[i].querymx(1,1,n,x,y);
            if(p>q) continue; p=pos[p],q=pos[q];
            ans+=dist(p,q); if(!rt) rt=p;
            if(ed) ans+=dist(ed,p); ed=q;
         }
         if(rt) printf("%lld\n",ans+dist(ed,rt));
         else puts("-1");
      }
   }
}