Problem: Reordering the Documents

Susan is good at arranging her dining table for convenience, but not her office desk.

Susan has just finished the paperwork on a set of documents, which are still piled on her desk. They have serial numbers and were stacked in order when her boss brought them in. The ordering, however, is not perfect now, as she has been too lazy to put the documents slid out of the pile back to their proper positions. Hearing that she has finished, the boss wants her to return the documents immediately in the document box he is sending her. The documents should be stowed in the box, of course, in the order of their serial numbers.

The desk has room just enough for two more document piles where Susan plans to make two temporary piles. All the documents in the current pile are to be moved one by one from the top to either of the two temporary piles. As making these piles too tall in haste would make them tumble, not too many documents should be placed on them. After moving all the documents to the temporary piles and receiving the document box, documents in the two piles will be moved from their tops, one by one, into the box. Documents should be in reverse order of their serial numbers in the two piles to allow moving them to the box in order.

For example, assume that the pile has six documents #1, #3, #4, #2, #6, and #5, in this order from the top, and that the temporary piles can have no more than three documents. Then, she can form two temporary piles, one with documents #6, #4, and #3, from the top, and the other with #5, #2, and #1 (Figure E.1). Both of the temporary piles are reversely ordered. Then, comparing the serial numbers of documents on top of the two temporary piles, one with the larger number (#6, in this case) is to be removed and stowed into the document box first. Repeating this, all the documents will be perfectly ordered in the document box.

<image>
Figure E.1. Making two temporary piles

Susan is wondering whether the plan is actually feasible with the documents in the current pile and, if so, how many different ways of stacking them to two temporary piles would do. You are asked to help Susan by writing a program to compute the number of different ways, which should be zero if the plan is not feasible.

As each of the documents in the pile can be moved to either of the two temporary piles, for $n$ documents, there are $2^n$ different choice combinations in total, but some of them may disturb the reverse order of the temporary piles and are thus inappropriate.

The example described above corresponds to the first case of the sample input. In this case, the last two documents, #5 and #6, can be swapped their destinations. Also, exchanging the roles of two temporary piles totally will be OK. As any other move sequences would make one of the piles higher than three and/or make them out of order, the total number of different ways of stacking documents to temporary piles in this example is $2 \times 2 = 4$.

Input

The input consists of a single test case of the following format.


$n$ $m$
$s_1$ ...  $s_n$


Here, $n$ is the number of documents in the pile ($1 \leq n \leq 5000$), and $m$ is the number of documents that can be stacked in one temporary pile without committing risks of making it tumble down ($n/2 \leq m \leq n$). Numbers $s_1$ through $s_n$ are the serial numbers of the documents in the document pile, from its top to its bottom. It is guaranteed that all the numbers $1$ through $n$ appear exactly once.

Output

Output a single integer in a line which is the number of ways to form two temporary piles suited for the objective. When no choice will do, the number of ways is $0$, of course.

If the number of possible ways is greater than or equal to $10^9 + 7$, output the number of ways modulo $10^9 + 7$.

Sample Input 1


6 3
1 3 4 2 6 5


Sample Output 1


4


Sample Input 2


6 6
1 3 4 2 6 5


Sample Output 2


8


Sample Input 3


4 4
4 3 1 2


Sample Output 3


0






Example

Input

6 3
1 3 4 2 6 5


Output

4

Solution (in CPP):

Solution:
#include<iostream>
#include<vector>
#include<queue>
#include<utility>
#include<cmath>
using namespace std;
#define rep(i,n) for(int i=0;i<(int)(n);i++)
#define MP make_pair
typedef long long ll;
#define mod 1000000007
ll comb[5001][5001];

ll dp[5001][2],dp2[5001][2];
ll ss[5002];

int main(){
    rep(i,5001){
        comb[i][0] = 1;
        comb[i][i] = 1;
    }
    for(int i=1;i<=5000;i++){
        for(int j=1;j<i;j++){
            comb[i][j] = comb[i-1][j] + comb[i-1][j-1];
            comb[i][j] %= mod;
        }
    }
    int n,m;
    cin >> n >> m;
    vector<int>a(n);
    rep(i,n)cin >> a[i];
    vector<int>x,y;
    vector<int>F,G;
    vector<int>c;
    for(int i=1;i<n;i++){
        if(a[i]<a[i-1]){
            c.push_back(i);
            F.push_back(a[i-1]);
            G.push_back(a[i]);
        }
    }
    if(c.size()==0){
        ll sm = 0;
        for(int i= n-m;i<=m;i++){
            sm += comb[n][i];
            sm %= mod;
        }
        cout << sm << endl;
    }else{
        int s = 0;
        bool flag = 0;
        rep(i,c.size()){
            int id = c[i];
            int tar = a[id];
            int xx = 0;
            for(int j=s;j<=id-1;j++){
                if(a[j]>=tar){
                    xx++;
                }
            }
            x.push_back(xx);
            int yy = 0;
            int sss = a[id-1];
            int ppp = n;
            if(i!=c.size()-1){
                ppp = c[i+1];
            }
            for(int j=id;j<ppp;j++){
                if(a[j] < sss){
                    yy++;
                }
            }
            y.push_back(yy);
            //cerr << c[i] << " " << x[i] << " " << y[i] << endl;
            if(i!=0&&c[i]-c[i-1]<x[i]+y[i-1]){
                flag = true;
                // cerr << c[i]-c[i-1] << " " << x[i] + y[i-1] << endl;
                // cerr << c[i-1] << " "<< c[i] << endl;
                // cerr << x[i] << " " << y[i-1] << endl;
            }
            s = id;
        }
        if(flag){
            cout << 0 << endl;
            return 0;
        }
        ll p = 0;
        rep(i,c.size()){
            p += x[i] + y[i];
            //cerr << x[i] << " " << y[i] << endl;
        }
        p = n-p;
        dp[x[0]][0] = 1;
        dp[y[0]][1] = 1;
        rep(k,c.size()){
            if(k==0)continue;
            rep(i,5001){
                dp2[i][0] = 0;
                dp2[i][1] = 0;
            }
            for(int i=5000;i>=0;i--){
                if(i-x[k]>=0){
                    dp2[i][0] += dp[i-x[k]][0];
                    dp2[i][0] %= mod;
                    if(F[k-1]<G[k]){
                        dp2[i][0] += dp[i-x[k]][1];
                        dp2[i][0] %= mod;
                    
                    }
                }
                if(i-y[k]>=0){
                    dp2[i][1] += dp[i-y[k]][1];
                    dp2[i][1] %= mod;
                    if(F[k-1]<G[k]){
                        
                        dp2[i][1] += dp[i-y[k]][0];
                        dp2[i][1] %= mod;
                    }
                }
            }
            rep(i,5001){
                dp[i][0] = dp2[i][0];
                dp[i][1] = dp2[i][1];
            }
        }
        
        //cerr << p << endl;
        // rep(i,n+1){
        //     cerr << dp[i] << " ";
        // }
        // cerr << endl;
        ll res = 0;
        rep(i,n+2){
            if(i!=0){
                ss[i] = ss[i-1] + comb[p][i-1];
                ss[i] %= mod;
            }
        }
        rep(i,n+1){
            if(i>m)continue;
            int l = max(0,n-m-i);
            ll r = min(p+1,(ll)m-i+1);
            res += (dp[i][0]+dp[i][1])%mod*((mod+ss[r]-ss[l])%mod);
            res %= mod;
            //cerr << l << " " << r << " " << dp[i][0] << " " << dp[i][1] << " " << ss[l] << " " << ss[r] << endl;
        }
        cout << res << endl;
    }
    return 0;
}