#include <bits/stdc++.h>
#define re register
#define ll long long
#define il inline
#define ptc putchar

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];

template<class T> il void read(T &x) {
    x = 0; T f = 1; char ch = getchar();
    while (ch < '0' || ch > '9') { if (ch == '-') f = -1; ch = getchar(); }
    while (ch >= '0' && ch <= '9') { x = (x << 3) + (x << 1) + (ch ^ 48); ch = getchar(); }
    x *= f;
}
template<class T,class... Args> il void read(T &x,Args &...x_) { read(x); read(x_...); }
template<class T> il void print(T x) {
    if (x < 0) ptc('-'), x = -x; 
    if (x > 9) print(x / 10); ptc(x % 10 + '0');
}
template<class T,class T_> il void write(T x,T_ ch) { print(x); ptc(ch); }

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)

    int typ;

    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){
        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); build(rs(u),mid + 1,r);
        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(){
    read(n,q);
    for (re int i = 0;i <= n;i++) h[i] = -1;
    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++){
        read(a,b,c);
        add(a,b,c),add(b,a,c);
    }
    dfs(1,0),LCA::init();
    for (re int i = 1;i < lf;i++) T[i].typ = i,T[i].build(1,1,n);
    // 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; read(op);
        if (op == 1){
            int x; read(x);
            st[x] ^= 1;
            T[id[x]].update(1,x);
        }
        else{
            int l,r; read(l,r);
            int be = 0,ed = 0; ll ans = 0;
            for (re int i = 1;i < lf;i++){
                auto val = T[i].query(1,l,r);
                if (val.Max != -inf){
                    if (!be) be = val.Min;
                    if (ed) ans += dist(pid[ed],pid[val.Min]);
                    ed = val.Max; ans += dist(pid[val.Max],pid[val.Min]);
                }
            }
            if (!be) puts("-1");
            else write(ans + dist(pid[be],pid[ed]),'\n');
        }
    }
    return 0;
}