#include <bits/stdc++.h>
#define ma 1000000007
using namespace std;
int main()
{
    //ifstream cin("f.txt");
    int n, k, i, elsum=0, jobbsum, usum=0;
    long long int lehet = 1;
    cin >> n >> k;
    k--;
    if(k==0)
    {
        cout << 0;
        return 0;
    }
    int a[n];
    for(i=0; i<k; i++)
    {
        cin >> a[i];
        elsum+=a[i];
    }
    cin >> a[k];
    jobbsum = a[k]+elsum;
    for(i=k+1; i<n; i++)
    {
        cin >> a[i];
        usum+=a[i];
    }
    for(i=k-1; i>=0; i--)
    {
        if(elsum <= a[k])break;
        elsum-=a[i];
        a[k]+=a[i];
    }
    for(i; i>=0; i--)
    {
        lehet*=2;
        lehet%=ma;
    }
    a[k] = jobbsum;
    for(i=k+1; i<n; i++)
    {
        if(a[k] >= usum)break;
        elsum-=a[i];
        a[k]+=a[i];
    }
    for(i; i<n; i++)
    {
        lehet*=2;
        lehet%=ma;
    }
    cout << lehet;
    return 0;
}