#include <bits/stdc++.h>

    using namespace std;

    const int maxn=1e5,intinf=1e9; 
    const long long longlonginf=1e18; 

    int n,K; 
    vector<pair<int,long long>> g[maxn+5];
    long long f[maxn+5][2][2][2]; 
    int dep[maxn+5],Leafpos[maxn+5],leaf; 
    int Lp[maxn+5],Rp[maxn+5]; 

    long long place_police(vector<int> P,vector<long long> C,vector<long long> W) {
        n=P.size()+1; 
        K=W.size();
        for (int i=0;i<n-1;i++) {
            g[P[i]].emplace_back(i+1,C[i]); 
        }
        function<void(int)> dfs0=[&](int u) {
            if (!g[u].size()) {
                Leafpos[leaf]=dep[u]&1;
                Lp[u]=leaf;
                Rp[u]=leaf++; 
            }
            else Lp[u]=intinf,Rp[u]=-intinf; 
            for (auto [v,w]:g[u]) {
                dep[v]=dep[u]+1; 
                dfs0(v); 
                Lp[u]=min(Lp[u],Lp[v]);
                Rp[u]=max(Rp[u],Rp[v]);     
            }
        } ; 
        dfs0(0); 
        assert(leaf==K); 
        for (int i=0;i<n;i++) {
            for (int o=0;o<2;o++) {
                for (int p=0;p<2;p++) {
                    for (int q=0;q<2;q++) {
                        f[i][o][p][q]=longlonginf;
                    }
                }
            }
        }
        auto chkmn=[&](long long &x,long long y) {
            x=min(x,y); 
        } ; 
        function<void(int)> dfs1=[&](int u) {
            if (!g[u].size()) {
                f[u][1][1][0]=0; 
                return ; 
            }
            for (auto [v,w]:g[u]) dfs1(v);
            int firv=g[u][0].first;
            long long firw=g[u][0].second; 
            for (int i=0;i<2;i++) {
                for (int j=0;j<2;j++) {
                    for (int k=0;k<2;k++) {
                        if (f[firv][i][j][k]==longlonginf) continue ; 
                        chkmn(f[u][i][j][k],f[firv][i][j][k]);
                        chkmn(f[u][0][0][k],f[firv][i][j][k]+firw);  
                    }
                }
            }
            int lstrp=Rp[firv]; 
            long long tmpf[2][2][2]={}; 
            for (int j=1;j<g[u].size();j++) {
                int v=g[u][j].first; long long w=g[u][j].second;   
                for (int i=0;i<2;i++) for (int j=0;j<2;j++) for (int k=0;k<2;k++) {
                    tmpf[i][j][k]=longlonginf; 
                }
                for (int ul=0;ul<2;ul++) {
                    for (int ur=0;ur<2;ur++) {
                        for (int vl=0;vl<2;vl++) {
                            for (int vr=0;vr<2;vr++) {
                                for (int o=0;o<2;o++) {
                                    for (int p=0;p<2;p++) {
                                        for (int q=0;q<2;q++) {
                                            if (f[u][ul][ur][o]==longlonginf) continue ; 
                                            if (f[v][vl][vr][p]==longlonginf) continue ; 
                                            int nvl=vl,nvr=vr; 
                                            long long vw=0; 
                                            if (q==0) nvl=nvr=0,vw=w;
                                            for (int k=0;k<2;k++) {
                                                long long vk=0;
                                                if (k==1) vk=W[lstrp];
                                                if (ur && nvl && Leafpos[lstrp]==Leafpos[Lp[v]] && !k) continue ; 
                                                else chkmn(tmpf[ul][nvr][o|p|k],f[u][ul][ur][o]+f[v][vl][vr][p]+vw+vk); 
                                            }
                                        }
                                    }
                                }
                            }
                        }
                    }
                }
                for (int i=0;i<2;i++) for (int j=0;j<2;j++) for (int k=0;k<2;k++) f[u][i][j][k]=tmpf[i][j][k];
                lstrp=Rp[v]; 
            }
            if (Lp[u]==0 && Rp[u]==K-1) {
                for (int i=0;i<2;i++) for (int j=0;j<2;j++) for (int k=0;k<2;k++) {
                    tmpf[i][j][k]=longlonginf; 
                }
                for (int i=0;i<2;i++) {
                    for (int j=0;j<2;j++) {
                        for (int k=0;k<2;k++) {
                            for (int o=0;o<2;o++) {
                                long long kw=0;
                                if (o==1) kw=W[K-1]; 
                                if (i && j && Leafpos[Lp[u]]==Leafpos[Rp[u]] && !o) continue ; 
                                chkmn(tmpf[i][j][k|o],f[u][i][j][k]+kw); 
                            }
                        }
                    }
                }
                for (int i=0;i<2;i++) for (int j=0;j<2;j++) for (int k=0;k<2;k++) f[u][i][j][k]=tmpf[i][j][k];
            }
        } ; 
        dfs1(0);
        long long ans=longlonginf; 
        for (int i=0;i<2;i++) {
            for (int j=0;j<2;j++) {
                for (int k=0;k<2;k++) {
                    if (K%2==1 && k==0) continue ; 
                    ans=min(ans,f[0][i][j][k]); 
                }
            }
        }
        return ans; 
    }

    /*
    int main() {
        ios::sync_with_stdio(0);
        vector<int> P;
        vector<long long> C,W; 
        cin.tie(0);
        cin>>n>>K; 
        P.resize(n-1); C.resize(n-1); W.resize(K);
        for (int i=0;i<n-1;i++) cin>>P[i]; 
        for (int i=0;i<n-1;i++) cin>>C[i];
        cerr<<K<<'\n'; 
        for (int i=0;i<K;i++) cin>>W[i]; 
        cout<<place_police(P,C,W)<<'\n'; 
        return 0;  
    }
    */