ll@n,s=-1,t=0,u=0,v=0,w=ll_inf;
rep(n){
	ll@a;
	if(a>=0){
		s>?=a;
		w<?=a;
	}else{
		t-=a;
		if(u>a){
			v=u;
			u=a;
		}else if(v>a){
			v=a;
		}
	}
}
if(u==0&&v==0){
	wt(s-w);
}else if(v==0){
	wt(s-u);
}else if(s<0){
	wt(t*2+u+v);
}else{
	wt(min(t*2+u+s,t*2+u+v+s*2));
}