#include<bits/stdc++.h>
using namespace std;
#define ll long long
const int SZ=1<<20;
char buf[SZ],*p1,*p2;
#define gc() (p1==p2&&(p2=(p1=buf)+fread(buf,1,SZ,stdin),p1==p2)?EOF:*p1++)
ll read(){
	ll n=0; bool m=0;
	char c=gc();
	while(c<'0'||c>'9')m=c=='-',c=gc();
	while(c>='0'&&c<='9')n=(n<<3)+(n<<1)+(c^'0'),c=gc();
	return m?-n:n;
}
const int N=5010;
const ll inf=0x3f3f3f3f3f3f3f3f;
int n,s,c[N],tot,w[N],p[N],a[N];
ll cur[N],f[N][N],g[3][N];
bool flg[N];
vector<int>e[N];
void dfs(int u){
	for(int v:e[u]){
		if(!flg[v])dfs(v),cur[v]=0;
	}
	for(int i=1;i<=n;i++){
		f[u][i]=w[u]*(i&1)-p[u]*i;
		for(int v:e[u]){
			if(!flg[v]){
				cur[v]=max(cur[v],f[v][i]);
				f[u][i]+=cur[v];
			}
		}
	}
}
int main(){
	n=read(),s=read();
	for(int i=1;i<=n;i++)w[i]=read();
	for(int i=1;i<=n;i++)p[i]=read();
	for(int i=1;i<=n;i++)a[i]=read(),e[a[i]].push_back(i);
	for(int u=s;u;u=a[u]){
		if(flg[u]){
			int v=u;
			do{c[++tot]=v,v=a[v];}while(v!=u);
			break;
		}
		flg[u]=1;
	}
	for(int i=1;i<=n;i++)flg[i]=0;
	for(int i=1;i<=tot;i++)flg[c[i]]=1;
	reverse(c+2,c+tot+1),n+=5;
	if(flg[s]){
		for(int i=1;i<=tot;i++)dfs(c[i]);
		if(tot==2){
			printf("%lld",max(max(f[s][1],f[s][2]),f[s][1]+f[a[s]][1])+p[s]);
		}else{
			// for(int i=1;i<=n;i++){
			// 	printf("%d:",i);
			// 	for(int j=0;j<=n;j++)printf("%lld ",f[i][j]);
			// 	printf("\n");
			// }
			// printf("\n");
			// for(int i=1;i<=tot;i++){
			// 	printf("%d:",c[i]);
			// 	for(int j=0;j<=n;j++)printf("%lld ",f[c[i]][j]);
			// 	printf("\n");
			// }
			ll ans=-inf;
			for(int i=0;i<=n-2;i++){
				for(int j=1;j<=tot;j++){
					g[0][j]=g[0][j-1]+f[c[j]][i+2];
					g[1][j]=max(g[0][j-1],g[1][j-1])+f[c[j]][i+1];
					g[2][j]=max({g[0][j-1],g[1][j-1],g[2][j-1]})+f[c[j]][i];
					if(i==0&&j==1)g[2][j]=-inf;
				}
				ans=max({g[0][tot],g[1][tot],g[2][tot],ans});
			}
			printf("%lld",ans+p[s]);
		}
	}else{
		dfs(s);
		printf("%lld",max(f[s][1],f[s][2])+p[s]);
	}
	return 0;
}