/*
* @Author: hungeazy
* @Date: 2024-08-11 15:02:07
* @Last Modified by: hungeazy
* @Last Modified time: 2024-08-11 15:11:37
*/
#include <bits/stdc++.h>
// #pragma GCC optimize("O3")
// #pragma GCC optimize("unroll-loops")
// #pragma GCC target("avx2,bmi,bmi2,popcnt,lzcnt")
using namespace std;
#define fast ios_base::sync_with_stdio(false); cin.tie(NULL); cout.tie(NULL);
#define int 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 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 ""
#define endl '\n'
#define time() cerr << endl << "-------------Time:" << 1000.0 * clock() / CLOCKS_PER_SEC << "ms.";
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; }
const int N = (int)1e6+10, M = (int)1e6;
int m[N],f[N],x,y;
int calc(int a, int b)
{
if (b == 0) return 1;
if (b == 1) return a;
int p = calc(a,b/2)%MOD;
p = sqr(p)%MOD;
if (b&1) (p *= a) %= MOD;
return p;
}
void init()
{
f[0] = 1;
FOR(i,1,1e6) f[i] = (f[i-1]*i)%MOD;
m[M] = calc(f[M],MOD-2);
FOD(i,M-1,0) m[i] = (m[i+1]*(i+1))%MOD;
}
int nCr(int n, int k)
{
if (n < k) return 0;
int res = f[n]%MOD;
(res *= m[n-k]) %= MOD;
(res *= m[k]) %= MOD;
return res;
}
namespace hungeazy {
void solve(void)
{
int ans = 0;
cout << nCr(x-y+1,y);
}
}
signed main()
{
fast;
if (fopen(name".inp","r"))
{
freopen(name".inp","r",stdin);
freopen(name".out","w",stdout);
}
init();
cin >> x >> y;
hungeazy::solve();
time();
return 0;
}
LyoKKiBAQXV0aG9yOiBodW5nZWF6eQoqIEBEYXRlOiAgIDIwMjQtMDgtMTEgMTU6MDI6MDcKKiBATGFzdCBNb2RpZmllZCBieTogICBodW5nZWF6eQoqIEBMYXN0IE1vZGlmaWVkIHRpbWU6IDIwMjQtMDgtMTEgMTU6MTE6MzcKKi8KI2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+Ci8vICNwcmFnbWEgR0NDIG9wdGltaXplKCJPMyIpICAKLy8gI3ByYWdtYSBHQ0Mgb3B0aW1pemUoInVucm9sbC1sb29wcyIpICAKLy8gI3ByYWdtYSBHQ0MgdGFyZ2V0KCJhdngyLGJtaSxibWkyLHBvcGNudCxsemNudCIpICAKdXNpbmcgbmFtZXNwYWNlIHN0ZDsKI2RlZmluZSBmYXN0IGlvc19iYXNlOjpzeW5jX3dpdGhfc3RkaW8oZmFsc2UpOyBjaW4udGllKE5VTEwpOyBjb3V0LnRpZShOVUxMKTsKI2RlZmluZSBpbnQgbG9uZyBsb25nCiNkZWZpbmUgdWxsIHVuc2lnbmVkIGxvbmcgbG9uZwojZGVmaW5lIHN6KHgpIHguc2l6ZSgpCiNkZWZpbmUgc3FyKHgpICgxTEwgKiAoeCkgKiAoeCkpCiNkZWZpbmUgYWxsKHgpIHguYmVnaW4oKSwgeC5lbmQoKQojZGVmaW5lIGZpbGwoZix4KSBtZW1zZXQoZix4LHNpemVvZihmKSkKI2RlZmluZSBGT1IoaSxsLHIpIGZvcihpbnQgaT1sO2k8PXI7aSsrKQojZGVmaW5lIEZPRChpLHIsbCkgZm9yKGludCBpPXI7aT49bDtpLS0pCiNkZWZpbmUgaWkgcGFpcjxpbnQsaW50PgojZGVmaW5lIGlpaSBwYWlyPGludCxpaT4KI2RlZmluZSBkaSBwYWlyPGlpLGlpPgojZGVmaW5lIHZpIHZlY3RvcjxpbnQ+CiNkZWZpbmUgdmlpIHZlY3RvcjxpaT4KI2RlZmluZSBtaWkgbWFwPGludCxpbnQ+CiNkZWZpbmUgZmkgZmlyc3QKI2RlZmluZSBzZSBzZWNvbmQKI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSBNT0QgMTAwMDAwMDAwNwojZGVmaW5lIF9fbGNtKGEsYikgKDFsbCAqICgoYSkgLyBfX2djZCgoYSksIChiKSkpICogKGIpKQojZGVmaW5lIFlFUyBjb3V0IDw8ICJZRVNcbiIKI2RlZmluZSBOTyBjb3V0IDw8ICJOT1xuIgojZGVmaW5lIE1BU0soaSkgKDFMTCA8PCAoaSkpCiNkZWZpbmUgY19iaXQoaSkgX19idWlsdGluX3BvcGNvdW50bGwoaSkKI2RlZmluZSBCSVQoeCxpKSAoKHgpICYgTUFTSyhpKSkKI2RlZmluZSBTRVRfT04oeCxpKSAoKHgpIHwgTUFTSyhpKSkKI2RlZmluZSBTRVRfT0ZGKHgsaSkgKCh4KSAmIH5NQVNLKGkpKQojZGVmaW5lIG9vIDFlMTgKI2RlZmluZSBuYW1lICIiCiNkZWZpbmUgZW5kbCAnXG4nCiNkZWZpbmUgdGltZSgpIGNlcnIgPDwgZW5kbCA8PCAiLS0tLS0tLS0tLS0tLVRpbWU6IiA8PCAxMDAwLjAgKiBjbG9jaygpIC8gQ0xPQ0tTX1BFUl9TRUMgPDwgIm1zLiI7CnRlbXBsYXRlPHR5cGVuYW1lIFQ+IGJvb2wgbWF4aW1pemUoVCAmcmVzLCBjb25zdCBUICZ2YWwpIHsgaWYgKHJlcyA8IHZhbCl7IHJlcyA9IHZhbDsgcmV0dXJuIHRydWU7IH07IHJldHVybiBmYWxzZTsgfQp0ZW1wbGF0ZTx0eXBlbmFtZSBUPiBib29sIG1pbmltaXplKFQgJnJlcywgY29uc3QgVCAmdmFsKSB7IGlmIChyZXMgPiB2YWwpeyByZXMgPSB2YWw7IHJldHVybiB0cnVlOyB9OyByZXR1cm4gZmFsc2U7IH0KY29uc3QgaW50IE4gPSAoaW50KTFlNisxMCwgTSA9IChpbnQpMWU2OwppbnQgbVtOXSxmW05dLHgseTsKCmludCBjYWxjKGludCBhLCBpbnQgYikKewoJaWYgKGIgPT0gMCkgcmV0dXJuIDE7CglpZiAoYiA9PSAxKSByZXR1cm4gYTsKCWludCBwID0gY2FsYyhhLGIvMiklTU9EOwoJcCA9IHNxcihwKSVNT0Q7CglpZiAoYiYxKSAocCAqPSBhKSAlPSBNT0Q7CglyZXR1cm4gcDsKfQoKdm9pZCBpbml0KCkKewoJZlswXSA9IDE7CglGT1IoaSwxLDFlNikgZltpXSA9IChmW2ktMV0qaSklTU9EOwoJbVtNXSA9IGNhbGMoZltNXSxNT0QtMik7CglGT0QoaSxNLTEsMCkgbVtpXSA9IChtW2krMV0qKGkrMSkpJU1PRDsKfQoKaW50IG5DcihpbnQgbiwgaW50IGspCnsKCWlmIChuIDwgaykgcmV0dXJuIDA7CglpbnQgcmVzID0gZltuXSVNT0Q7CgkocmVzICo9IG1bbi1rXSkgJT0gTU9EOwoJKHJlcyAqPSBtW2tdKSAlPSBNT0Q7CglyZXR1cm4gcmVzOwp9CgpuYW1lc3BhY2UgaHVuZ2VhenkgewoKCXZvaWQgc29sdmUodm9pZCkKCXsKCQlpbnQgYW5zID0gMDsKCQljb3V0IDw8IG5Dcih4LXkrMSx5KTsKCX0KCQp9CgpzaWduZWQgbWFpbigpCnsKICAgIGZhc3Q7CiAgICBpZiAoZm9wZW4obmFtZSIuaW5wIiwiciIpKQogICAgewogICAgCWZyZW9wZW4obmFtZSIuaW5wIiwiciIsc3RkaW4pOwogICAgCWZyZW9wZW4obmFtZSIub3V0IiwidyIsc3Rkb3V0KTsKICAgIH0KICAgIGluaXQoKTsKICAgIGNpbiA+PiB4ID4+IHk7CiAgICBodW5nZWF6eTo6c29sdmUoKTsKICAgIHRpbWUoKTsKICAgIHJldHVybiAwOwp9