ll@n,@k,@a[n],o=0,t=0;
rep(i,n){
	if(a[i]<0){
		o+=a[i];
		a[i]=-a[i];
	}
}
vector<ll>v;
v.push_back(0);
rep(i,n){
	vector<ll>w=v;
	for(ll x:w){
		v.push_back(x+a[i]);
	}
	sort(v.rbegin(),v.rend());
	if(v.size()>k){
		v.resize(k);
	}
}
wt(v[k-1]+o);