//Author: Kevin
#include<bits/stdc++.h>
//#pragma GCC optimize("O2")
using namespace std;
#define ll long long
#define ull unsigned ll
#define pb emplace_back
#define mp make_pair
#define ALL(x) (x).begin(),(x).end()
#define rALL(x) (x).rbegin(),(x).rend()
#define srt(x) sort(ALL(x))
#define rev(x) reverse(ALL(x))
#define rsrt(x) sort(rALL(x))
#define sz(x) (int)(x.size())
#define inf 0x3f3f3f3f
#define pii pair<int,int>
#define lb(v,x) (int)(lower_bound(ALL(v),x)-v.begin())
#define ub(v,x) (int)(upper_bound(ALL(v),x)-v.begin())
#define uni(v) v.resize(unique(ALL(v))-v.begin())
#define longer __int128_t
void die(string S){puts(S.c_str());exit(0);}
ll d[500500];
int p[500500],n;
vector<int> G[500500];
ll f[500500][2][2][2];
void dfs(int u)
{
	for(auto v:G[u])
		dfs(v);
	for(int st=0;st<2;st++)
	{
		ll tmp[2]={0,-1ll*inf*inf};
		for(auto v:G[u])
		{
			ll w1=max(f[v][0][st][1]-d[u],f[v][1][st][1]+d[u]);
			ll w0=0;
			for(int a=0;a<2;a++)
				for(int b=0;b<2;b++)
					w0=max(w0,f[v][a][st][b]);
			tmp[1]=max(tmp[1]+w0,tmp[0]+w1);
			tmp[0]+=w0;
		}
		for(int a=0;a<2;a++)
			for(int b=0;b<2;b++)
			{
				ll ntmp[2]={tmp[0],tmp[1]};
				if(!b)
				{
					ll w0=0;
					ll w1=(a?d[u]:-d[u]);
					tmp[1]=max(tmp[1]+w0,tmp[0]+w1);
					tmp[0]+=w0;
				}
				f[u][st][a][b]=tmp[1];
			}
		ll tot=0;
		for(auto v:G[u])
			tot+=max(f[v][0][st][0],f[v][1][st][0]);
		tot+=(st?-d[u]:d[u]);
		for(int a=0;a<2;a++)
			f[u][st][a][1]=max(f[u][st][a][1],tot);
	}
}
int main()
{
	ios_base::sync_with_stdio(false);
	cin.tie(0);
	cout.tie(0);
	cin>>n;
	for(int i=1;i<=n;i++)
		cin>>d[i];
	for(int i=2;i<=n;i++)
		cin>>p[i];
	for(int i=2;i<=n;i++)
		G[p[i]].pb(i);
	dfs(1);
	cout<<max(f[1][0][0][1],f[1][1][0][1])<<'\n';
	return 0;
}