/*
* @Author: hungeazy
* @Date: 2025-12-06 17:39:19
* @Last Modified by: hungeazy
* @Last Modified time: 2025-12-06 18:02:32
*/
#include <bits/stdc++.h>
#include <ext/pb_ds/assoc_container.hpp>
#include <ext/pb_ds/tree_policy.hpp>
// #pragma GCC optimize("O3")
// #pragma GCC optimize("unroll-loops")
// #pragma GCC target("avx2,bmi,bmi2,popcnt,lzcnt")
using namespace std;
using namespace __gnu_pbds;
bool M1;
#define fast ios_base::sync_with_stdio(false); cin.tie(NULL); cout.tie(NULL);
#define int long long
#define ll long long
#define ull unsigned long long
#define sz(x) x.size()
#define sqr(x) (1LL * (x) * (x))
#define all(x) x.begin(), x.end()
#define fill(f,x) memset(f,x,sizeof(f))
#define FOR(i,l,r) for(int i=l;i<=r;i++)
#define FOD(i,r,l) for(int i=r;i>=l;i--)
#define debug(x) cout << #x << " = " << x << '\n'
#define ii pair<int,int>
#define iii pair<int,ii>
#define di pair<ii,ii>
#define vi vector<int>
#define vii vector<ii>
#define mii map<int,int>
#define fi first
#define se second
#define pb push_back
#define MOD 1000000007
#define __lcm(a,b) (1ll * ((a) / __gcd((a), (b))) * (b))
#define YES cout << "YES\n"
#define NO cout << "NO\n"
#define MASK(i) (1LL << (i))
#define c_bit(i) __builtin_popcountll(i)
#define BIT(x,i) ((x) & MASK(i))
#define SET_ON(x,i) ((x) | MASK(i))
#define SET_OFF(x,i) ((x) & ~MASK(i))
#define oo 1e18
#define name "TUONGDONG"
#define endl '\n'
#define memory() cerr << abs(&M2-&M1)/1024.0/1024 << " MB" << endl
#define time() cerr << endl << "-------------Time:" << 1000.0 * clock() / CLOCKS_PER_SEC << "ms." << endl
template<typename T> bool maximize(T &res, const T &val) { if (res < val){ res = val; return true; }; return false; }
template<typename T> bool minimize(T &res, const T &val) { if (res > val){ res = val; return true; }; return false; }
template <class T> using ordered_set = tree <T, null_type, less_equal <T>, rb_tree_tag,tree_order_statistics_node_update>;
const int N = (int)2e5+10;
int n,m,a[N];
// 1748E
namespace sub1 {
int b[N],ans = 0;
bool approved() {
return n*m <= 16;
}
void Try(int i)
{
FOR(j,1,m)
{
b[i] = j;
if (i < n) Try(i+1);
else
{
FOR(i,1,n)
{
int mxA = 0, posA = 0, mxB = 0, posB = 0;
FOR(j,i,n)
{
if (maximize(mxA,a[j]))
posA = j;
if (maximize(mxB,b[j]))
posB = j;
if (posA != posB)
goto li;
}
}
ans++;
li:;
}
}
}
void solve(void)
{
Try(1);
cout << ans;
}
}
namespace sub3 {
vector<vi> dp;
int par[N];
vi g[N];
/*
Xây cây Cartesian Tree với định nghĩa sau:
- Cha của mỗi node là phần tử lớn nhất gần nhất phía trái/phải tạo cùng max.
- Node có giá trị lớn nhất là root.
-> Dãy b hợp lệ chính là dãy b có cùng cấu trúc Catersian Tree với a
dp[u][x]: số cách gán giá trị cho toàn bộ subtree u sao cho b[u] = x
và giữ cấu trúc max như cây đã định sẵn.
Các con của u nhận giá trị sau:
- Con bên phải: nhận giá trị <= i
- Con bên trái: nhận giá trị < i
*/
void DFS(int u)
{
for (int v : g[u]) DFS(v);
FOR(i,1,m)
{
(dp[u][i] += dp[u][i-1]) %= MOD;
int ans = 1;
for (int v : g[u])
if (v > u) (ans *= dp[v][i]) %= MOD;
else (ans *= dp[v][i-1]) %= MOD;
(dp[u][i] += ans) %= MOD;
}
}
void solve(void)
{
dp.resize(n+2,vi(m+2,0));
stack<int> st;
FOR(i,1,n)
{
while (!st.empty() and a[st.top()] < a[i])
st.pop();
par[i] = (st.empty() ? 0 : st.top());
st.push(i);
}
while (!st.empty()) st.pop();
FOD(i,n,1)
{
while (!st.empty() and a[st.top()] <= a[i])
st.pop();
if (!st.empty())
{
if (!par[i]) par[i] = st.top();
else if (a[par[i]] >= a[st.top()])
par[i] = st.top();
}
st.push(i);
}
int root = 0;
FOR(i,1,n)
if (!par[i]) root = i;
else g[par[i]].pb(i);
DFS(root);
cout << dp[root][m] << endl;
}
}
bool M2;
signed main()
{
fast;
if (fopen(name".inp","r"))
{
freopen(name".inp","r",stdin);
freopen(name".out","w",stdout);
}
cin >> n >> m;
FOR(i,1,n) cin >> a[i];
if (sub1::approved()) return sub1::solve(), time(), memory(), 0;
sub3::solve();
time();
memory();
return 0;
}
// ██░ ██ █ ██ ███▄ █ ▄████
//▓██░ ██▒ ██ ▓██▒ ██ ▀█ █ ██▒ ▀█▒
//▒██▀▀██░▓██ ▒██░▓██ ▀█ ██▒▒██░▄▄▄░
//░▓█ ░██ ▓▓█ ░██░▓██▒ ▐▌██▒░▓█ ██▓
//░▓█▒░██▓▒▒█████▓ ▒██░ ▓██░░▒▓███▀▒
// ▒ ░░▒░▒░▒▓▒ ▒ ▒ ░ ▒░ ▒ ▒ ░▒ ▒
// ▒ ░▒░ ░░░▒░ ░ ░ ░ ░░ ░ ▒░ ░ ░
// ░ ░░ ░ ░░░ ░ ░ ░ ░ ░ ░ ░ ░
// ░ ░ ░ ░ ░ ░
LyoKKiBAQXV0aG9yOiBodW5nZWF6eQoqIEBEYXRlOiAgIDIwMjUtMTItMDYgMTc6Mzk6MTkKKiBATGFzdCBNb2RpZmllZCBieTogICBodW5nZWF6eQoqIEBMYXN0IE1vZGlmaWVkIHRpbWU6IDIwMjUtMTItMDYgMTg6MDI6MzIKKi8KI2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CiNpbmNsdWRlIDxleHQvcGJfZHMvYXNzb2NfY29udGFpbmVyLmhwcD4gCiNpbmNsdWRlIDxleHQvcGJfZHMvdHJlZV9wb2xpY3kuaHBwPiAKLy8gI3ByYWdtYSBHQ0Mgb3B0aW1pemUoIk8zIikgIAovLyAjcHJhZ21hIEdDQyBvcHRpbWl6ZSgidW5yb2xsLWxvb3BzIikgIAovLyAjcHJhZ21hIEdDQyB0YXJnZXQoImF2eDIsYm1pLGJtaTIscG9wY250LGx6Y250IikgIAp1c2luZyBuYW1lc3BhY2Ugc3RkOwp1c2luZyBuYW1lc3BhY2UgX19nbnVfcGJkczsgCmJvb2wgTTE7CiNkZWZpbmUgZmFzdCBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKGZhbHNlKTsgY2luLnRpZShOVUxMKTsgY291dC50aWUoTlVMTCk7CiNkZWZpbmUgaW50IGxvbmcgbG9uZwojZGVmaW5lIGxsIGxvbmcgbG9uZyAKI2RlZmluZSB1bGwgdW5zaWduZWQgbG9uZyBsb25nCiNkZWZpbmUgc3ooeCkgeC5zaXplKCkKI2RlZmluZSBzcXIoeCkgKDFMTCAqICh4KSAqICh4KSkKI2RlZmluZSBhbGwoeCkgeC5iZWdpbigpLCB4LmVuZCgpCiNkZWZpbmUgZmlsbChmLHgpIG1lbXNldChmLHgsc2l6ZW9mKGYpKQojZGVmaW5lIEZPUihpLGwscikgZm9yKGludCBpPWw7aTw9cjtpKyspCiNkZWZpbmUgRk9EKGkscixsKSBmb3IoaW50IGk9cjtpPj1sO2ktLSkKI2RlZmluZSBkZWJ1Zyh4KSBjb3V0IDw8ICN4IDw8ICIgPSAiIDw8IHggPDwgJ1xuJwojZGVmaW5lIGlpIHBhaXI8aW50LGludD4KI2RlZmluZSBpaWkgcGFpcjxpbnQsaWk+CiNkZWZpbmUgZGkgcGFpcjxpaSxpaT4KI2RlZmluZSB2aSB2ZWN0b3I8aW50PgojZGVmaW5lIHZpaSB2ZWN0b3I8aWk+CiNkZWZpbmUgbWlpIG1hcDxpbnQsaW50PgojZGVmaW5lIGZpIGZpcnN0CiNkZWZpbmUgc2Ugc2Vjb25kCiNkZWZpbmUgcGIgcHVzaF9iYWNrCiNkZWZpbmUgTU9EIDEwMDAwMDAwMDcKI2RlZmluZSBfX2xjbShhLGIpICgxbGwgKiAoKGEpIC8gX19nY2QoKGEpLCAoYikpKSAqIChiKSkKI2RlZmluZSBZRVMgY291dCA8PCAiWUVTXG4iCiNkZWZpbmUgTk8gY291dCA8PCAiTk9cbiIKI2RlZmluZSBNQVNLKGkpICgxTEwgPDwgKGkpKQojZGVmaW5lIGNfYml0KGkpIF9fYnVpbHRpbl9wb3Bjb3VudGxsKGkpCiNkZWZpbmUgQklUKHgsaSkgKCh4KSAmIE1BU0soaSkpCiNkZWZpbmUgU0VUX09OKHgsaSkgKCh4KSB8IE1BU0soaSkpCiNkZWZpbmUgU0VUX09GRih4LGkpICgoeCkgJiB+TUFTSyhpKSkKI2RlZmluZSBvbyAxZTE4CiNkZWZpbmUgbmFtZSAiVFVPTkdET05HIgojZGVmaW5lIGVuZGwgJ1xuJwojZGVmaW5lIG1lbW9yeSgpIGNlcnIgPDwgYWJzKCZNMi0mTTEpLzEwMjQuMC8xMDI0IDw8ICIgTUIiIDw8IGVuZGwKI2RlZmluZSB0aW1lKCkgY2VyciA8PCBlbmRsIDw8ICItLS0tLS0tLS0tLS0tVGltZToiIDw8IDEwMDAuMCAqIGNsb2NrKCkgLyBDTE9DS1NfUEVSX1NFQyA8PCAibXMuIiA8PCBlbmRsCnRlbXBsYXRlPHR5cGVuYW1lIFQ+IGJvb2wgbWF4aW1pemUoVCAmcmVzLCBjb25zdCBUICZ2YWwpIHsgaWYgKHJlcyA8IHZhbCl7IHJlcyA9IHZhbDsgcmV0dXJuIHRydWU7IH07IHJldHVybiBmYWxzZTsgfQp0ZW1wbGF0ZTx0eXBlbmFtZSBUPiBib29sIG1pbmltaXplKFQgJnJlcywgY29uc3QgVCAmdmFsKSB7IGlmIChyZXMgPiB2YWwpeyByZXMgPSB2YWw7IHJldHVybiB0cnVlOyB9OyByZXR1cm4gZmFsc2U7IH0KdGVtcGxhdGUgPGNsYXNzIFQ+IHVzaW5nIG9yZGVyZWRfc2V0ID0gdHJlZSA8VCwgbnVsbF90eXBlLCBsZXNzX2VxdWFsIDxUPiwgcmJfdHJlZV90YWcsdHJlZV9vcmRlcl9zdGF0aXN0aWNzX25vZGVfdXBkYXRlPjsKY29uc3QgaW50IE4gPSAoaW50KTJlNSsxMDsKaW50IG4sbSxhW05dOwovLyAxNzQ4RQpuYW1lc3BhY2Ugc3ViMSB7CgoJaW50IGJbTl0sYW5zID0gMDsKCglib29sIGFwcHJvdmVkKCkgewoJCXJldHVybiBuKm0gPD0gMTY7Cgl9CgoJdm9pZCBUcnkoaW50IGkpCgl7CgkJRk9SKGosMSxtKQoJCXsKCQkJYltpXSA9IGo7CgkJCWlmIChpIDwgbikgVHJ5KGkrMSk7CgkJCWVsc2UgCgkJCXsKCQkJCUZPUihpLDEsbikKCQkJCXsKCQkJCQlpbnQgbXhBID0gMCwgcG9zQSA9IDAsIG14QiA9IDAsIHBvc0IgPSAwOwoJCQkJCUZPUihqLGksbikKCQkJCQl7CgkJCQkJCWlmIChtYXhpbWl6ZShteEEsYVtqXSkpCgkJCQkJCQlwb3NBID0gajsKCQkJCQkJaWYgKG1heGltaXplKG14QixiW2pdKSkKCQkJCQkJCXBvc0IgPSBqOwoJCQkJCQlpZiAocG9zQSAhPSBwb3NCKQoJCQkJCQkJZ290byBsaTsKCQkJCQl9CgkJCQl9CgkJCQlhbnMrKzsKCQkJCWxpOjsKCQkJfQoJCX0KCX0KCgl2b2lkIHNvbHZlKHZvaWQpCgl7CgkJVHJ5KDEpOwoJCWNvdXQgPDwgYW5zOwoJfQoJCn0KCm5hbWVzcGFjZSBzdWIzIHsKCgl2ZWN0b3I8dmk+IGRwOwoJaW50IHBhcltOXTsKCXZpIGdbTl07CgkvKgoJCVjDonkgY8OieSBDYXJ0ZXNpYW4gVHJlZSB24bubaSDEkeG7i25oIG5naMSpYSBzYXU6CgkJLSBDaGEgY+G7p2EgbeG7l2kgbm9kZSBsw6AgcGjhuqduIHThu60gbOG7m24gbmjhuqV0IGfhuqduIG5o4bqldCBwaMOtYSB0csOhaS9waOG6o2kgdOG6oW8gY8O5bmcgbWF4LgoJCS0gTm9kZSBjw7MgZ2nDoSB0cuG7iyBs4bubbiBuaOG6pXQgbMOgIHJvb3QuCgkJLT4gRMOjeSBiIGjhu6NwIGzhu4cgY2jDrW5oIGzDoCBkw6N5IGIgY8OzIGPDuW5nIGPhuqV1IHRyw7pjIENhdGVyc2lhbiBUcmVlIHbhu5tpIGEgCgkJZHBbdV1beF06IHPhu5EgY8OhY2ggZ8OhbiBnacOhIHRy4buLIGNobyB0b8OgbiBi4buZIHN1YnRyZWUgdSBzYW8gY2hvIGJbdV0gPSB4CgkJdsOgIGdp4buvIGPhuqV1IHRyw7pjIG1heCBuaMawIGPDonkgxJHDoyDEkeG7i25oIHPhurVuLgoJCUPDoWMgY29uIGPhu6dhIHUgbmjhuq1uIGdpw6EgdHLhu4sgc2F1OgoJCS0gQ29uIGLDqm4gcGjhuqNpOiBuaOG6rW4gZ2nDoSB0cuG7iyA8PSBpCgkJLSBDb24gYsOqbiB0csOhaTogbmjhuq1uIGdpw6EgdHLhu4sgPCBpCgkqLwoJdm9pZCBERlMoaW50IHUpCgl7CgkJZm9yIChpbnQgdiA6IGdbdV0pIERGUyh2KTsKCQlGT1IoaSwxLG0pCgkJewoJCQkoZHBbdV1baV0gKz0gZHBbdV1baS0xXSkgJT0gTU9EOwoJCQlpbnQgYW5zID0gMTsKCQkJZm9yIChpbnQgdiA6IGdbdV0pCgkJCQlpZiAodiA+IHUpIChhbnMgKj0gZHBbdl1baV0pICU9IE1PRDsKCQkJCWVsc2UgKGFucyAqPSBkcFt2XVtpLTFdKSAlPSBNT0Q7CgkJCShkcFt1XVtpXSArPSBhbnMpICU9IE1PRDsKCQl9Cgl9CgoJdm9pZCBzb2x2ZSh2b2lkKQoJewoJCWRwLnJlc2l6ZShuKzIsdmkobSsyLDApKTsKCQlzdGFjazxpbnQ+IHN0OwoJCUZPUihpLDEsbikKCQl7CgkJCXdoaWxlICghc3QuZW1wdHkoKSBhbmQgYVtzdC50b3AoKV0gPCBhW2ldKQoJCQkJc3QucG9wKCk7CgkJCXBhcltpXSA9IChzdC5lbXB0eSgpID8gMCA6IHN0LnRvcCgpKTsKCQkJc3QucHVzaChpKTsKCQl9CgkJd2hpbGUgKCFzdC5lbXB0eSgpKSBzdC5wb3AoKTsKCQlGT0QoaSxuLDEpCgkJewoJCQl3aGlsZSAoIXN0LmVtcHR5KCkgYW5kIGFbc3QudG9wKCldIDw9IGFbaV0pCgkJCQlzdC5wb3AoKTsKCQkJaWYgKCFzdC5lbXB0eSgpKQoJCQl7CgkJCQlpZiAoIXBhcltpXSkgcGFyW2ldID0gc3QudG9wKCk7CgkJCQllbHNlIGlmIChhW3BhcltpXV0gPj0gYVtzdC50b3AoKV0pCgkJCQkJcGFyW2ldID0gc3QudG9wKCk7CgkJCX0KCQkJc3QucHVzaChpKTsKCQl9CgkJaW50IHJvb3QgPSAwOwoJCUZPUihpLDEsbikKCQkJaWYgKCFwYXJbaV0pIHJvb3QgPSBpOwoJCQllbHNlIGdbcGFyW2ldXS5wYihpKTsKCQlERlMocm9vdCk7CgkJY291dCA8PCBkcFtyb290XVttXSA8PCBlbmRsOwoJfQoKfQoKYm9vbCBNMjsKc2lnbmVkIG1haW4oKQp7CiAgICBmYXN0OwogICAgaWYgKGZvcGVuKG5hbWUiLmlucCIsInIiKSkKICAgIHsKICAgIAlmcmVvcGVuKG5hbWUiLmlucCIsInIiLHN0ZGluKTsKICAgIAlmcmVvcGVuKG5hbWUiLm91dCIsInciLHN0ZG91dCk7CiAgICB9CiAgICBjaW4gPj4gbiA+PiBtOwogICAgRk9SKGksMSxuKSBjaW4gPj4gYVtpXTsKICAgIGlmIChzdWIxOjphcHByb3ZlZCgpKSByZXR1cm4gc3ViMTo6c29sdmUoKSwgdGltZSgpLCBtZW1vcnkoKSwgMDsKICAgIHN1YjM6OnNvbHZlKCk7CiAgICB0aW1lKCk7CiAgICBtZW1vcnkoKTsKICAgIHJldHVybiAwOwp9Ci8vIOKWiOKWiOKWkSDilojiloggIOKWiCAgICDilojiloggIOKWiOKWiOKWiOKWhCAgICDiloggICDiloTilojilojilojilogKLy/ilpPilojilojilpEg4paI4paI4paSIOKWiOKWiCAg4paT4paI4paI4paSIOKWiOKWiCDiloDiloggICDiloggIOKWiOKWiOKWkiDiloDilojilpIKLy/ilpLilojilojiloDiloDilojilojilpHilpPilojiloggIOKWkuKWiOKWiOKWkeKWk+KWiOKWiCAg4paA4paIIOKWiOKWiOKWkuKWkuKWiOKWiOKWkeKWhOKWhOKWhOKWkQovL+KWkeKWk+KWiCDilpHilojilogg4paT4paT4paIICDilpHilojilojilpHilpPilojilojilpIgIOKWkOKWjOKWiOKWiOKWkuKWkeKWk+KWiCAg4paI4paI4paTCi8v4paR4paT4paI4paS4paR4paI4paI4paT4paS4paS4paI4paI4paI4paI4paI4paTIOKWkuKWiOKWiOKWkSAgIOKWk+KWiOKWiOKWkeKWkeKWkuKWk+KWiOKWiOKWiOKWgOKWkgovLyDilpIg4paR4paR4paS4paR4paS4paR4paS4paT4paSIOKWkiDilpIg4paRIOKWkuKWkSAgIOKWkiDilpIgIOKWkeKWkiAgIOKWkgovLyDilpIg4paR4paS4paRIOKWkeKWkeKWkeKWkuKWkSDilpEg4paRIOKWkSDilpHilpEgICDilpEg4paS4paRICDilpEgICDilpEKLy8g4paRICDilpHilpEg4paRIOKWkeKWkeKWkSDilpEg4paRICAgIOKWkSAgIOKWkSDilpEg4paRIOKWkSAgIOKWkQovLyDilpEgIOKWkSAg4paRICAg4paRICAgICAgICAgICAgICDilpEgICAgICAg4paR