// もしかして配列いらない？

ll n,r=MD;
ll f(ll i,ll w){
	if(i==n){
		return MD;
	}
	ll x,y;
	rd(x);
	y=f(i+1,w<x?w:x);
	if((w<x)!=(x<y))r<?=w+x+y;
	return y<x?y:x;
}
{
	rd(n);
	f(0,MD);
	wt(r<MD?r:-1);
}