// Source: https://usaco.guide/general/io

#include <bits/stdc++.h>
using namespace std;
#define int long long
#pragma GCC optimize("O3,unroll-loops")
#pragma GCC target("avx2,bmi,bmi2,lzcnt,popcnt")

int pow(int a,int b){
    if(b==0)return 1;
    if(b%2==1)return (pow(a,b-1)*a)%(int)(1e9+7);
    int x=pow(a,b/2);
    return (x*x)%(int)(1e9+7);
}

int bal(vector<int> v,int n,int eq){
    vector<int> pref(n);
    pref[0]=v[0];
    for(int i = 1;i<n;i++){
        pref[i]=pref[i-1]+v[i];
    }
    int co=0;
    for(int i = 0;i<n;i++){
        if(i>0&&v[i]>pref[i-1]||i>0&&eq&&v[i]>=pref[i-1])break;
        if(pref[i]>pref[n-1]-pref[i]||eq&&pref[i]>pref[n-1]-pref[i]){
            co+=pow(2LL,n-i-1LL);
            co%=(int)(1e9+7);
            break;
        }
    }
    return co;
}


signed main() {
    int n,k;cin>>n>>k;
    k--;
    vector<int> v(n);
    for(int i = 0;i<n;i++){
        cin>>v[i];
    }
    vector<int> elsofele,masodikfele;
    masodikfele.push_back(0); //ide jon majd a novelt k
    int sum=0,sum1=0;
    for(int i = 0;i<n;i++){
        if(i<k+1){
            elsofele.push_back(v[i]);
            sum+=v[i];
        }
        else {
            sum1+=v[i];
            masodikfele.push_back(v[i]);
        }
    }
    reverse(elsofele.begin(),elsofele.end());
    masodikfele[0]=sum;
    int w1=(bal(elsofele,elsofele.size(),1)*bal(masodikfele,masodikfele.size(),0))%(int)(1e9+7);
    elsofele[0]=sum1+v[k];
    masodikfele[0]=v[k];
    int w2=(bal(elsofele,elsofele.size(),1)*bal(masodikfele,masodikfele.size(),0))%(int)(1e9+7);
    cout<<(w1+w2)%(int)(1e9+7)<<endl;
}