/*
TASK:seq
LANG:C
*/
#include <stdio.h>
long long fact(long long n)
{long long i,res=1;
for(i=1;i<=n;i++) res*=i;
return res;
}
long long calc(long long n,long long k)
{long long a[20],i,j;
for(i=1;i<=k;i++) a[i]=n-i;
for(j=k;j>1;j--) 
   {//printf("%lld:",j);
    for(i=1;i<=k;i++) 
      if (a[i]%j==0){//printf("a[%lld] %lld %lld\n",i,a[i],a[i]/j);
                     a[i]/=j;
                     break;}

     }  
a[0]=1;
for(j=1;j<=k;j++) a[0]*=a[j];      
//for(j=1;j<=k;j++) printf("%lld ",a[j]);      

return a[0];
}

long long i,a,n,k,sum=0;

int main()
{
scanf("%lld %lld",&n,&k)    ;
for(i=0;i<n;i++){
                 scanf("%lld",&a);
                 sum+=a;
                 }
if (sum==0){printf("0\n");return 0;} 
printf("%lld\n",calc(n,k)*sum);
//system("pause");                 
return 0;
}
