#include <bits/stdc++.h>
#define re register
#define ll long long

using namespace std;

const int N = 2e5 + 10,M = N * 2;
const int inf = 1e9 + 10;
int n,q;
char s[N]; bool st[N];
int idx,h[N],ne[M],e[M],w[M];
int lf = 1,tim,id[N],dfn[N],pid[N]; ll dep[N];

inline int read(){
    int r = 0,w = 1;
    char c = getchar();
    while (c < '0' || c > '9'){
        if (c == '-') w = -1;
        c = getchar();
    }
    while (c >= '0' && c <= '9'){
        r = (r << 3) + (r << 1) + (c ^ 48);
        c = getchar();
    }
    return r * w;
}

inline void add(int a,int b,int c){
    ne[idx] = h[a];
    e[idx] = b; w[idx] = c;
    h[a] = idx++;
}

inline void dfs(int u,int fa){
    id[u] = lf; pid[dfn[u] = ++tim] = u;
    bool falg = true;
    for (re int i = h[u];~i;i = ne[i]){
        int v = e[i];
        if (v == fa) continue;
        dep[v] = dep[u] + w[i];
        dfs(v,u); falg = false;
    }
    if (falg) lf++;
}

namespace LCA{
    #define pot(x) (1 << (x))

    const int M = N * 5;
    int tim,lg[M],dfn[M],dp[M][24];

    inline void dfs(int u,int fa){
        dp[dfn[u] = ++tim][0] = u;
        for (re int i = h[u];~i;i = ne[i]){
            int v = e[i];
            if (v == fa) continue;
            dfs(v,u); dp[++tim][0] = u;
        }
    }

    inline void init(){
        dfs(1,0);
        for (re int i = 2;i <= tim;i++) lg[i] = lg[i >> 1] + 1;
        for (re int j = 1;j <= lg[tim];j++){
            for (re int i = 1;i + pot(j) - 1 <= tim;i++){
                int a = dp[i][j - 1],b = dp[i + pot(j - 1)][j - 1];
                if (dep[a] < dep[b]) dp[i][j] = a;
                else dp[i][j] = b;
            }
        }
    }

    inline int lca(int x,int y){
        int sx = dfn[x],sy = dfn[y];
        if (sx > sy) swap(sx,sy);
        int t = lg[sy - sx + 1];
        int a = dp[sx][t],b = dp[sy - pot(t) + 1][t];
        if (dep[a] < dep[b]) return a;
        else return b;
    }

    inline ll dist(int x,int y){
        return (dep[x] + dep[y] - 2ll * dep[lca(x,y)]);
    }

    #undef pot
}
using LCA::dist;

struct{
    #define ls(u) (u << 1)
    #define rs(u) (u << 1 | 1)
    #define val(u) (tr[u].val)

    struct value{
        int Max,Min;

        value friend operator +(const value &a,const value &b){
            return {max(a.Max,b.Max),min(a.Min,b.Min)};
        }
    };

    struct node{
        int l,r;
        value val;
    }tr[N << 2];

    inline void pushup(int u){
        val(u) = val(ls(u)) + val(rs(u));
    }

    inline void build(int u,int l,int r,int typ){
        tr[u] = {l,r,-inf,inf};
        if (l == r){
            if (st[l] && id[l] == typ) val(u) = {dfn[l],dfn[l]};
            return;
        }
        int mid = l + r >> 1;
        build(ls(u),l,mid,typ); build(rs(u),mid + 1,r,typ);
        pushup(u);
    }

    inline void update(int u,int x){
        if (tr[u].l == tr[u].r){
            if (st[x]) val(u) = {dfn[x],dfn[x]};
            else val(u) = {-inf,inf};
            return;
        }
        int mid = tr[u].l + tr[u].r >> 1;
        if (x <= mid) update(ls(u),x);
        else update(rs(u),x);
        pushup(u);
    }

    inline value query(int u,int l,int r){
        if (l <= tr[u].l && tr[u].r <= r) return val(u);
        int mid = tr[u].l + tr[u].r >> 1;
        if (l <= mid && r > mid) return query(ls(u),l,r) + query(rs(u),l,r);
        else if (l <= mid) return query(ls(u),l,r);
        else return query(rs(u),l,r);
    }

    #undef ls
    #undef rs
    #undef val
}T[51];

signed main(){
    memset(h,-1,sizeof(h));
    n = read(),q = read();
    scanf("%s",s + 1);
    for (re int i = 1;i <= n;i++) st[i] = s[i] - '0';
    for (re int i = 1,a,b,c;i < n;i++){
        a = read(),b = read(),c = read();
        add(a,b,c); add(b,a,c);
    }
    dfs(1,0); LCA::init();
    for (re int i = 1;i < lf;i++) T[i].build(1,1,n,i);
    // for (re int i = 1;i <= n;i++) cerr << dep[i] << " "; cerr << "\n";
    // for (re int i = 1;i <= n;i++){
    //     for (re int j = i + 1;j <= n;j++) cerr << i << " " << j << " " << lca(i,j) << " ???\n";
    // }
    while (q--){
        int op; op = read();
        if (op == 1){
            int x;
            st[x = read()] ^= 1;
            T[id[x]].update(1,x);
        }
        else{
            int l,r;
            l = read(),r = read();
            vector<int> pt;
            for (re int i = 1;i < lf;i++){
                auto val = T[i].query(1,l,r);
                if (val.Max != -inf) pt.push_back(val.Max);
                if (val.Min != inf) pt.push_back(val.Min);
            }
            sort(pt.begin(),pt.end());
            pt.erase(unique(pt.begin(),pt.end()),pt.end());
            // for (int x:pt) cerr << pid[x] << " "; cerr << "\n";
            ll ans = 0; int sz = pt.size();
            for (re int i = 0;i < sz;i++) ans += dist(pid[pt[i]],pid[pt[(i + 1) % sz]]);
            if (pt.empty()) puts("-1");
            else printf("%lld\n",ans);
        }
    }
    return 0;
}