#include <bits/stdc++.h>
#define ll long long
#define blugy %1000000007
using namespace std;
int main()
{
    ios::sync_with_stdio(0);
    cin.tie(0);
    //ifstream cin("f.txt");
    ll n, k, i, mer, mar=0, sum=1;
    cin >> n >> k;
    k--;
    ll t[n];
    for(i=0; i<n; i++)cin >> t[i];
    for(i=0; i<k; i++)mar+=t[i];
    for(i=k-1; i>=0 && t[k]<mar; i--)
    {
        mar-=t[i];
        t[k]+=t[i];
    }
    t[k]+=mar;
    mar=0;
    for(i; i>=0; i--)sum=(sum<<1)blugy;
    for(i=k+1; i<n; i++)mar+=t[i];
    for(i=k+1; i<n && t[k]<mar; i++)
    {
        mar-=t[i];
        t[k]+=t[i];
    }
    for(i; i<n; i++)sum=(sum<<1)blugy;
    cout << sum;
}