#include<bits/stdc++.h>
using namespace std;

#define cout cerr
#define rep(i,a,b) for(int i=(a);i<=(b);++i)
#define per(i,a,b) for(int i=(a);i>=(b);--i)

typedef long long ll;
typedef pair<int,int> pii;
#define FR first
#define SE second
const ll inf=1e18;

inline void rd(int &x){
    x=0;char ch=getchar();int f=1;
    while(ch<'0'||ch>'9'){
        if(ch=='-')f=-1;
        ch=getchar();
    }
    while(ch>='0'&&ch<='9'){
        x=x*10+ch-'0';
        ch=getchar();
    }
    x*=f;
}
//是否解决 系数 类型

int n;
#define Maxn 400010
int a[Maxn];
int head[Maxn],v[Maxn],nxt[Maxn],tot=0;
void add_edge(int s,int e){
    tot++;v[tot]=e;nxt[tot]=head[s];head[s]=tot;
}
/*ll F[Maxn][8];

int calc(int a,int b){
    int a1=(a/2)&1,a2=a/4;
    int b1=(b/2)&1,b2=b/4;
    if(a2==1&&b2==1)return -1;
    if(a2==0&&b2==0)return 0;
    if(a2==0&&b2==1&&a1!=b1)return 1;
    if(a2==1&&b2==0&&a1!=b1)return 2;
    return 0;
}

ll fjz[8];*/
ll F[Maxn][4];
void dfs(int u){
    F[u][0]=0;F[u][1]=-inf;F[u][2]=a[u];F[u][3]=-a[u];
    ll s0=0,s1=0,s3=0;
    for(int i=head[u];i;i=nxt[i]){
        int t=v[i];
        dfs(t);
        ll z1=max(F[u][1]+max(F[t][2],F[t][3]),s3+max(F[t][2]-a[u],F[t][3]+a[u]));
        ll z3=s0+max(F[t][2]-a[u],F[t][3]+a[u]),z2=s1+max(F[t][2]-a[u],F[t][3]+a[u]);
        z1=max(z1,F[u][1]+F[t][1]);
        z2=max(z2,max(F[u][2]-a[t]+F[t][0],F[u][2]+F[t][1]));
        z3=max(z3,max(F[u][3]+a[t]+F[t][0],F[u][3]+F[t][1]));
        ll cur=max(F[t][3],max(F[t][1],F[t][2]));
        s0+=max(a[t]+F[t][0],cur);
        s1+=max(-a[t]+F[t][0],cur);s3+=cur;
        F[u][0]=max(s0,s1);
        F[u][1]=z1;F[u][2]=z2;F[u][3]=z3;
    }
}

int main(){
    rd(n);
    rep(i,1,n)rd(a[i]);
    rep(i,2,n){
        int x;rd(x);add_edge(x,i);
    }
    dfs(1);
    printf("%lld\n",max(F[1][3],max(F[1][1],F[1][2])));
    return 0;
}