#include<bits/stdc++.h>
#define ll long long
#define pb push_back
#define fi first
#define se second
#define inf 0x3f3f3f3f3f3f3f3f
using namespace std;
const int N=5005;
int n,s,a[N],vs[N];
ll f[N][N][4],w[N],p[N];
vector<int>G[N];
void dfs(int u){
    vs[u]=1;
    for(auto v:G[u])if(!vs[v])dfs(v);
}
void dfs0(int u){
    if(u!=s){
        for(int i=0;i<=n;i++){
            for(int j=0;j<=3;j++){
                f[u][i][j]=-i*p[u]+(i&1)*w[u];
            }
        }
    }
    for(auto v:G[u]){
        if(v==s)continue;
        dfs0(v);
        for(int i=0;i<=n;i++){
            for(int j=0;j<=3;j++){
                f[u][i][j]+=f[v][i][j];
            }
        }
    }
    for(int i=1;i<=n;i++){
        for(int j=0;j<=3;j++){
            f[u][i][j]=max(f[u][i][j],f[u][i-1][min(j+1,3)]);
        }
    }
    if(u==a[s])for(int i=0;i<=n;i++)f[u][i][3]=-inf;
}
signed main(){
    //freopen("data.in","r",stdin);
    ios::sync_with_stdio(false);
    cin.tie(0),cout.tie(0);
    cin>>n>>s;for(int i=1;i<=n;i++)cin>>w[i];
    for(int i=1;i<=n;i++)cin>>p[i];
    for(int i=1;i<=n;i++)cin>>a[i],G[a[i]].pb(i);
    dfs(s);memset(f,-0x3f,sizeof f);
    if(!vs[a[s]]){
        for(int i=1;i<=2;i++)f[s][i][0]=-(i-1)*p[s]+(i&1)*w[s];
    }
    else{
        for(int i=1;i<=n;i++)f[s][i][0]=-(i-1)*p[s]+(i&1)*w[s];
    }
    dfs0(s);
    ll res=-inf;
    for(int i=0;i<=n;i++)res=max(res,f[s][i][0]);
    cout<<res;
}