#include <bits/stdc++.h>

using namespace std;

int main()
{
    //ifstream cin("be.txt");
    vector <int> a;
    long long int n,k,osszeg1=0,osszeg2=0,p,x;
    cin>>n>>k;
    a.push_back(0);
    for(long long int i=1;i<k;i++)
        {
            cin>>x;
            a.push_back(x);
            osszeg1+=x;
        }
        cin>>x;
        a.push_back(x);
    for(long long int i=1;i<=n-k;i++)
        {
            cin>>x;
            a.push_back(x);
            osszeg2+=x;
        }
    long long int meg=1;

    if(k==1)
    {
        meg=0;
    }

    x=0;
    p=osszeg1+a[k];
    while(osszeg1>a[k]){
        x++;
        osszeg1-=a[k-x];
    }
    int mod=pow(10,9)+7;
    for(long long int i=1;i<k-x;i++)
    {
     meg*=2;
     meg=meg%mod;
    }
    x=0;
    while(osszeg2>=p){
        x++;
        osszeg2-=a[k+x];

    }
    if(x==0)
        x=1;
    for(long long int i=k+x;i<=n;i++)
    {
     meg*=2;
     meg%=mod;
    }
    meg%=mod;

    cout<<meg;
    return 0;
}