#include <bits/stdc++.h>
using namespace std;
int main()
{
    //ifstream f("szamok.txt");
    int m,n; cin>>n>>m;
    int a[n+1];
    for(int i=1; i<=n; i++)cin>>a[i];
    unsigned long long b=0,j=0,mer=a[m];
    for(int i=1; i<m; i++)b+=a[i];
    for(int i=m+1; i<=n; i++)j+=a[i];
    vector<bool>l(n+1,1); bool abs=0;
    int t=m; l[m]=0; l[0]=0;
    while(mer<b && t>1 && !abs){
        t--;
        if(mer>=a[t]){mer+=a[t]; b-=a[t]; l[t]=0;}
        else abs=1;}
    mer+=b;
    t=m;
    while(mer<=j && t<n && !abs){
        t++;
        if(mer>a[t]){mer+=a[t]; j-=a[t]; l[t]=0;}
        else abs=1;}
    if(abs)cout<<0;
    else{
        long long c=1000000007;
        long long s=1;
        for(bool i:l)if(i)s=(s*2)%c;
        cout<<s;}
    return 0;
}