#include <bits/stdc++.h>
using namespace std;
#define fast ios_base::sync_with_stdio(false); cin.tie(NULL); cout.tie(NULL)
#define mofile(s) freopen(s,"r",stdin)
#define outfile(s) freopen(s,"w",stdout)
#define ll long long
#define ii pair<ll,ll>
#define iii pair<ll,ii>
#define fi first
#define se second
#define tf bool
#define ST stack
#define DQ deque
#define Q queue
#define S string
#define Ma map
#define UM unormideremid_map
#define SE set
#define str(x) to_string(x)
#define all(a) (a).begin(),(a).end()
#define FOR(i,l,r,mid) for(int i=l;i<=r;i+=mid)
#define FOD(i,l,r,mid) for(int i=r;i>=l;i-=mid)
#define xuong cout<<"\n"
#define midebug(x) cout<<(x)<<" "
#define ppcnt(x) __builtin_popcountll(x)
#define parity(x) __builtin_parityll(x)
#define leamid0(x) __builtin_clzll(x)
#define LOG2 __lg(x)
#define tr0(x) __builtin_ctzll(x)
#define fiset(x) __builtin_ffsll(x)
#define MASK(k) (1LL<<(k))
#define BIT(x,k) ((x)>>(k)&1)
#define pb push_back
#define tron(x) setprecision(x)
#define het return 0
#define base_ 1000000000
template<typename... T>
void in(T&... args) { ((cin >> args), ...); }
template<class X, class Y>
bool maximize(X &x, const Y &y){return (x < y) ? x = y, 1 : 0;}
template<class X, class Y>
bool minimize(X &x, const Y &y){return (x > y) ? x = y, 1 : 0;}
const ll maxn=1e6+5;
const ll tle=2e8;
const ll INF=1e9+9;
const int base=31;
const ll MOD=1e9+7;
const ll P=1e9+7;
string bcc="abcmidefghijklmnopqrstuvwxyz";
int midx[]={-1,0,1,0};
int midy[]={0,1,0,-1};
bool sang[10000005];
ll pref[1005][1005],mt[1005][1005];
void sieve(){
for(int i=1;i<=10000000;++i) sang[i]=1;
sang[0]=sang[1]=0;
for(int i=2;i*i<=10000000;++i){
if(sang[i]){
for(int j=i*i;j<=10000000;j+=i) sang[j]=0;
}
}
}
void lis(){
vector<int>t;
vector<int>a;
int n; cin>>n;
for(int i=1;i<=n;++i){
int ai; cin>>ai;
a.pb(ai);
}
for(int x:a){
auto it=lower_bound(all(t),x);
if(it==t.end()) t.pb(x);
else *it=x;
}
}
void pfs2mid(){
int n,m,k; cin>>n>>k; m=n;
for(int i=1;i<=n;++i){
for(int j=1;j<=m;++j) cin>>mt[i][j];
}
for(int i=1;i<=n;++i){
for(int j=1;j<=m;++j) pref[i][j]=mt[i][j]+pref[i-1][j]+pref[i][j-1]-pref[i-1][j-1];
}
}
ll qu2mid(int x1,int y1,int x2,int y2){
return pref[x2][y2]-pref[x1-1][y2]-pref[x2][y1-1]+pref[x1-1][y1-1];
}
const int N = 1e6+10;
int f[N+1];
int g[N+1];
int A[N];
int sqr(long long x) {
return (1ll*x*x )% P;
}
int pow(int a, long long b) {
if (b == 0) return 1;
else
if (b % 2 == 0)
return sqr(pow(a, b/2) % P) % P;
else
return (a*(sqr(pow(a, b/2)%P) % P)) % P;
}
int nd(int x)
{
return pow(x, P-2) % P;
}
int C(int a, int b)
{
int ans = (1ll* f[b] * g[a]) % P;
ans = (1ll*ans * g[b-a] ) % P;
return ans % P;
}
int32_t main() {
fast;
f[0]=g[0]=1;
int ans=0;
for (int i=1; i <=N; i++) f[i] = (1ll*f[i-1]*i) % P;
g[N] = nd(f[N]);
for (int i=N-1; i>0; i--) g[i] = 1ll*g[i+1]*(i+1)%P;
int n, k;
cin >> n >> k;
int sum = 0;
for (int i=1; i<=n; i++) {
cin >> A[i];
}
sort(A + 1, A + 1 + n);
for (int i=1; i<=n; i++) {
ans += C(k - 1, i - 1) * A[i];
ans %= P;
}
cout << ans << endl;
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgZmFzdCBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKGZhbHNlKTsgY2luLnRpZShOVUxMKTsgY291dC50aWUoTlVMTCkKI2RlZmluZSBtb2ZpbGUocykgZnJlb3BlbihzLCJyIixzdGRpbikKI2RlZmluZSBvdXRmaWxlKHMpIGZyZW9wZW4ocywidyIsc3Rkb3V0KQojZGVmaW5lIGxsIGxvbmcgbG9uZwojZGVmaW5lIGlpIHBhaXI8bGwsbGw+CiNkZWZpbmUgaWlpIHBhaXI8bGwsaWk+CiNkZWZpbmUgZmkgZmlyc3QKI2RlZmluZSBzZSBzZWNvbmQKI2RlZmluZSB0ZiBib29sCiNkZWZpbmUgU1Qgc3RhY2sKI2RlZmluZSBEUSBkZXF1ZQojZGVmaW5lIFEgcXVldWUKI2RlZmluZSBTIHN0cmluZwojZGVmaW5lIE1hIG1hcAojZGVmaW5lIFVNIHVub3JtaWRlcmVtaWRfbWFwCiNkZWZpbmUgU0Ugc2V0CiNkZWZpbmUgc3RyKHgpIHRvX3N0cmluZyh4KQojZGVmaW5lIGFsbChhKSAoYSkuYmVnaW4oKSwoYSkuZW5kKCkKI2RlZmluZSBGT1IoaSxsLHIsbWlkKSBmb3IoaW50IGk9bDtpPD1yO2krPW1pZCkKI2RlZmluZSBGT0QoaSxsLHIsbWlkKSBmb3IoaW50IGk9cjtpPj1sO2ktPW1pZCkKI2RlZmluZSB4dW9uZyBjb3V0PDwiXG4iCiNkZWZpbmUgbWlkZWJ1Zyh4KSBjb3V0PDwoeCk8PCIgIgojZGVmaW5lIHBwY250KHgpIF9fYnVpbHRpbl9wb3Bjb3VudGxsKHgpCiNkZWZpbmUgcGFyaXR5KHgpIF9fYnVpbHRpbl9wYXJpdHlsbCh4KQojZGVmaW5lIGxlYW1pZDAoeCkgX19idWlsdGluX2NsemxsKHgpCiNkZWZpbmUgTE9HMiBfX2xnKHgpCiNkZWZpbmUgdHIwKHgpIF9fYnVpbHRpbl9jdHpsbCh4KQojZGVmaW5lIGZpc2V0KHgpIF9fYnVpbHRpbl9mZnNsbCh4KQojZGVmaW5lIE1BU0soaykgKDFMTDw8KGspKQojZGVmaW5lIEJJVCh4LGspICgoeCk+PihrKSYxKQojZGVmaW5lIHBiIHB1c2hfYmFjawojZGVmaW5lIHRyb24oeCkgc2V0cHJlY2lzaW9uKHgpCiNkZWZpbmUgaGV0IHJldHVybiAwCiNkZWZpbmUgYmFzZV8gMTAwMDAwMDAwMAp0ZW1wbGF0ZTx0eXBlbmFtZS4uLiBUPgp2b2lkIGluKFQmLi4uIGFyZ3MpIHsgKChjaW4gPj4gYXJncyksIC4uLik7IH0KdGVtcGxhdGU8Y2xhc3MgWCwgY2xhc3MgWT4KICAgIGJvb2wgbWF4aW1pemUoWCAmeCwgY29uc3QgWSAmeSl7cmV0dXJuICh4IDwgeSkgPyB4ID0geSwgMSA6IDA7fQp0ZW1wbGF0ZTxjbGFzcyBYLCBjbGFzcyBZPgogICAgYm9vbCBtaW5pbWl6ZShYICZ4LCBjb25zdCBZICZ5KXtyZXR1cm4gKHggPiB5KSA/IHggPSB5LCAxIDogMDt9CmNvbnN0IGxsIG1heG49MWU2KzU7CmNvbnN0IGxsIHRsZT0yZTg7CmNvbnN0IGxsIElORj0xZTkrOTsKY29uc3QgaW50IGJhc2U9MzE7CmNvbnN0IGxsIE1PRD0xZTkrNzsKY29uc3QgbGwgUD0xZTkrNzsKc3RyaW5nIGJjYz0iYWJjbWlkZWZnaGlqa2xtbm9wcXJzdHV2d3h5eiI7CmludCBtaWR4W109ey0xLDAsMSwwfTsKaW50IG1pZHlbXT17MCwxLDAsLTF9Owpib29sIHNhbmdbMTAwMDAwMDVdOwpsbCBwcmVmWzEwMDVdWzEwMDVdLG10WzEwMDVdWzEwMDVdOwp2b2lkIHNpZXZlKCl7CiAgICBmb3IoaW50IGk9MTtpPD0xMDAwMDAwMDsrK2kpIHNhbmdbaV09MTsKICAgIHNhbmdbMF09c2FuZ1sxXT0wOwogICAgZm9yKGludCBpPTI7aSppPD0xMDAwMDAwMDsrK2kpewogICAgICAgIGlmKHNhbmdbaV0pewogICAgICAgICAgICBmb3IoaW50IGo9aSppO2o8PTEwMDAwMDAwO2orPWkpIHNhbmdbal09MDsKICAgICAgICB9CiAgICB9Cn0Kdm9pZCBsaXMoKXsKICAgIHZlY3RvcjxpbnQ+dDsKICAgIHZlY3RvcjxpbnQ+YTsKICAgIGludCBuOyBjaW4+Pm47CiAgICBmb3IoaW50IGk9MTtpPD1uOysraSl7CiAgICAgICAgaW50IGFpOyBjaW4+PmFpOwogICAgICAgIGEucGIoYWkpOwogICAgfQogICAgZm9yKGludCB4OmEpewogICAgICAgIGF1dG8gaXQ9bG93ZXJfYm91bmQoYWxsKHQpLHgpOwogICAgICAgIGlmKGl0PT10LmVuZCgpKSB0LnBiKHgpOwogICAgICAgIGVsc2UgKml0PXg7CiAgICB9Cn0Kdm9pZCBwZnMybWlkKCl7CiAgICBpbnQgbixtLGs7IGNpbj4+bj4+azsgbT1uOwogICAgZm9yKGludCBpPTE7aTw9bjsrK2kpewogICAgICAgIGZvcihpbnQgaj0xO2o8PW07KytqKSBjaW4+Pm10W2ldW2pdOwogICAgfQogICAgZm9yKGludCBpPTE7aTw9bjsrK2kpewogICAgICAgIGZvcihpbnQgaj0xO2o8PW07KytqKSBwcmVmW2ldW2pdPW10W2ldW2pdK3ByZWZbaS0xXVtqXStwcmVmW2ldW2otMV0tcHJlZltpLTFdW2otMV07CiAgICB9Cn0KbGwgcXUybWlkKGludCB4MSxpbnQgeTEsaW50IHgyLGludCB5Mil7CiAgICByZXR1cm4gcHJlZlt4Ml1beTJdLXByZWZbeDEtMV1beTJdLXByZWZbeDJdW3kxLTFdK3ByZWZbeDEtMV1beTEtMV07Cn0KY29uc3QgaW50IE4gPSAxZTYrMTA7CmludCBmW04rMV07CmludCBnW04rMV07CmludCBBW05dOwppbnQgc3FyKGxvbmcgbG9uZyB4KSB7CiAgICByZXR1cm4gKDFsbCp4KnggKSUgUDsKfQppbnQgcG93KGludCBhLCBsb25nIGxvbmcgYikgewogICAgaWYgKGIgPT0gMCkgcmV0dXJuIDE7CiAgICBlbHNlCiAgICAgICAgaWYgKGIgJSAyID09IDApCiAgICAgICAgICAgIHJldHVybiBzcXIocG93KGEsIGIvMikgJSBQKSAlIFA7CiAgICAgICAgZWxzZQogICAgICAgICAgICByZXR1cm4gKGEqKHNxcihwb3coYSwgYi8yKSVQKSAlIFApKSAlIFA7Cn0KaW50IG5kKGludCB4KQp7CiAgICByZXR1cm4gcG93KHgsIFAtMikgJSBQOwp9CmludCBDKGludCBhLCBpbnQgYikKewogICAgaW50IGFucyA9ICgxbGwqIGZbYl0gKiBnW2FdKSAlIFA7CiAgICBhbnMgPSAoMWxsKmFucyAqIGdbYi1hXSApICUgUDsKICAgIHJldHVybiBhbnMgJSBQOwp9CmludDMyX3QgbWFpbigpIHsKCWZhc3Q7CiAgICAgIGZbMF09Z1swXT0xOwogICAgaW50IGFucz0wOwogICAgZm9yIChpbnQgaT0xOyBpIDw9TjsgaSsrKSBmW2ldID0gKDFsbCpmW2ktMV0qaSkgJSBQOwogICAgZ1tOXSA9IG5kKGZbTl0pOwogICAgZm9yIChpbnQgaT1OLTE7IGk+MDsgaS0tKSBnW2ldID0gMWxsKmdbaSsxXSooaSsxKSVQOwogIGludCBuLCBrOwogIGNpbiA+PiBuID4+IGs7CiAgaW50IHN1bSA9IDA7CiAgZm9yIChpbnQgaT0xOyBpPD1uOyBpKyspIHsKICAgIGNpbiA+PiBBW2ldOwogIH0KICBzb3J0KEEgKyAxLCBBICsgMSArIG4pOwogIGZvciAoaW50IGk9MTsgaTw9bjsgaSsrKSB7CiAgICBhbnMgKz0gQyhrIC0gMSwgaSAtIDEpICogQVtpXTsKICAgIGFucyAlPSBQOwogIH0KICBjb3V0IDw8IGFucyA8PCBlbmRsOwogICAgcmV0dXJuIDA7Cn0=