use bigint;
($n,$k)=glob<>;
@a=glob<>;
for$i(0..$n-1){
	$s+=$a[$i]*($k+$i+0)->bnok($i)*($k+($n-$i)-1)->bnok($n-$i-1);
}
print $s%(1e9+7)