#include <bits/stdc++.h>
#define EPS 1e-9
#define INF 1070000000LL
#define MOD 1000000007LL
#define fir first
#define foreach(it,X) for(auto it=(X).begin();it!=(X).end();it++)
#define numa(x,a) for(auto x: a)
#define ite iterator
#define mp make_pair
#define rep(i,n) rep2(i,0,n)
#define rep2(i,m,n) for(int i=m;i<(n);i++)
#define pb push_back
#define pf push_front
#define sec second
#define sz(x) ((int)(x).size())
#define ALL( c ) (c).begin(), (c).end()
#define gcd(a,b) __gcd(a,b)
#define mem(x,n) memset(x,n,sizeof(x))
#define endl "\n"
using namespace std;
template <int POS, class TUPLE> void deploy(std::ostream &os, const TUPLE &tuple){}
template <int POS, class TUPLE, class H, class ...Ts> void deploy(std::ostream &os, const TUPLE &t){ os << (POS == 0 ? "" : ", ") << get<POS>(t); deploy<POS + 1, TUPLE, Ts...>(os, t); }
template <class T,class U> std::ostream& operator<<(std::ostream &os, std::pair<T,U> &p){ os << "(" << p.first <<", " << p.second <<")";return os; }
template <class T> std::ostream& operator<<(std::ostream &os, std::vector<T> &v){ int remain = v.size(); os << "{"; for(auto e: v) os << e << (--remain == 0 ? "}" : ", "); return os; }
template <class T> std::ostream& operator<<(std::ostream &os, std::set<T> &v){ int remain = v.size(); os << "{"; for(auto e: v) os << e << (--remain == 0 ? "}" : ", "); return os; }
template <class T, class K> std::ostream& operator<<(std::ostream &os, std::map<T, K> &mp){ int remain = mp.size(); os << "{"; for(auto e: mp) os << "(" << e.first << " -> " << e.second << ")" << (--remain == 0 ? "}" : ", "); return os; }
#define DEBUG1(var0) { std::cerr << (#var0) << "=" << (var0) << endl; }
#define DEBUG2(var0, var1) { std::cerr << (#var0) << "=" << (var0) << ", ";DEBUG1(var1); }
#define DEBUG3(var0, var1, var2) { std::cerr << (#var0) << "=" << (var0) << ", ";DEBUG2(var1,var2); }
#define DEBUG4(var0, var1, var2, var3) { std::cerr << (#var0) << "=" << (var0) << ", ";DEBUG3(var1,var2,var3); }
using ll = long long;

int extgcd(int a,int b,int &x,int &y){
  int d = a;
  if(b != 0){
    d = extgcd(b, a % b,y,x);
    y -= (a / b) * x;
  }else{
    x = 1;
    y = 0;
  }
  return d;
}


int mod_inv(int a, int p){
  int x,y;
  extgcd(a,p,x,y);
  return (p + x % p) % p;
}
ll solve1(ll N, ll M){
  N /= M;
  while(N % 1000 != 0){
    N -= 1;
  }
  return N;
}

int main()
{
  cin.tie(0);
  ios_base::sync_with_stdio(0);
  ll N,M;

  cin >> N >> M;
  N -= M * solve1(N,M);
  N /= 1000;
  N %= M;
  //DEBUG2(M,N);

  //MCN
  ll child = 1;
  rep(i,M){
    child *= (i+1);
    child %= MOD;
  }
  ll mom1 = 1;
  rep(i,N){
    mom1 *= (i+1);
    mom1 %= MOD;
  }
  ll mom2 = 1;
  rep(i,M-N){
    mom2 *= (i+1);
    mom2 %= MOD;
  }
  mom1 *= mom2;
  mom1 %= MOD;
  cout << (child * mod_inv((int) mom1,MOD)) % MOD << endl;
  return 0;
}