#include <bits/stdc++.h>
using namespace std ;
#define ll long long
#define fast ios_base::sync_with_stdio(0); cin.tie(0); cout.tie(0);
#define fir first
#define sec second
#define piint pair < int , int >
#define FOR( i , a , b ) for (int i = (a) , _b = (b) ; i <= _b ; i ++ )
#define pb push_back
#define str string
#define ALL(a) (a).begin() , (a).end()
#define rep( i , a , b) for (int i = (a) ; i < (b) ; i ++ )
#define ld long double
const int maxn = 1e5;
#define debug 0
#define oo (ll)(1e18)
ll a[maxn+3] , g[maxn+3] ;
int n ;
void sub1() {
ll ans = -1e18 ;
FOR ( i , 1 , n )
g[i] = g[i - 1 ] + a[i] ;
FOR ( i , 1 , n ) {
ll x1 , x2 , x3 ;
ll val_1 = -1e18 , val_2 = -1e18 ;
FOR ( j , 1 , i )
{
ll val_of = g[j-1] - ( g[i-1] - g[j-1] ) ;
if ( val_of > val_1) {
val_1 = val_of ;
x1 = j ;
}
}
x2 = i ;
FOR ( j , i , n + 1 ) {
ll val_of = g[j - 1] - g[i-1] - ( g[n] - g[j-1]) ;
if ( val_of > val_2){
val_2 = val_of ;
x3 = j ;
}
}
ans = max ( ans , val_1 + val_2 );
}
cout << ans ;
}
ll s[maxn*4 + 3 ] ;
void build ( int id , int l , int r) {
if ( l ==r ){
s[id] = g[l-1] ;
return ;
}
int m = ( l + r ) >> 1;
build ( id * 2 , l , m ) ;
build ( id * 2 + 1, m + 1 , r ) ;
s[id] = max ( s[id * 2 ] , s[id * 2 + 1] ) ;
}
ll get ( int id , int l , int r , int u , int v ){
if ( l > v || r < u ) return -1e18 ;
if ( u <= l && r <= v ){
return s[id] ;
}
int m = ( l + r) >> 1 ;
return max ( get ( id * 2 , l , m , u , v ) , get ( id * 2 + 1 , m + 1 , r , u , v )) ;
}
void sub2() {
FOR ( i , 1 , n )
g[i] = g[i - 1 ] + a[i] ;
build ( 1 , 1 , n + 1 ) ;
ll ans_1 = -1e18 ;
FOR ( i , 1 , n ){
ll val = 2ll * get ( 1 , 1 , n + 1, 1 , i ) - 2ll * g[i-1] + 2ll * get ( 1 , 1 , n + 1, i , n + 1 ) - g[n] ;
ans_1 = max ( ans_1 , val ) ;
}
cout << ans_1 << '\n';
}
void input(){
cin >> n ;
FOR ( i , 1 , n ) cin >> a[i] ;
if ( n < 4 ) return ;
else if (n <= 5000 ) sub1() ;
else sub2() ;
}
#define name "ditich"
int main(){
fast
if(fopen(name".INP","r")) {
freopen (name".INP","r",stdin);
freopen (name".OUT","w",stdout);
}
input() ;
cerr << "\nTIME: = " << (1.0*clock())/CLOCKS_PER_SEC << '\n';
return(0) ;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQgOyAKCgojZGVmaW5lIGxsIGxvbmcgbG9uZyAKI2RlZmluZSBmYXN0IGlvc19iYXNlOjpzeW5jX3dpdGhfc3RkaW8oMCk7IGNpbi50aWUoMCk7IGNvdXQudGllKDApOwojZGVmaW5lIGZpciBmaXJzdCAKI2RlZmluZSBzZWMgc2Vjb25kIAojZGVmaW5lIHBpaW50IHBhaXIgPCBpbnQgLCBpbnQgPgojZGVmaW5lIEZPUiggaSAsIGEgLCBiICkgZm9yIChpbnQgaSA9IChhKSAsIF9iID0gKGIpIDsgaSA8PSBfYiA7IGkgKysgKSAgCiNkZWZpbmUgcGIgcHVzaF9iYWNrIAojZGVmaW5lIHN0ciBzdHJpbmcgCiNkZWZpbmUgQUxMKGEpIChhKS5iZWdpbigpICwgKGEpLmVuZCgpIAojZGVmaW5lIHJlcCggaSAsIGEgLCBiKSBmb3IgKGludCBpID0gKGEpIDsgaSA8IChiKSA7IGkgKysgKQojZGVmaW5lIGxkIGxvbmcgZG91YmxlCmNvbnN0IGludCBtYXhuID0gMWU1OwojZGVmaW5lIGRlYnVnIDAKI2RlZmluZSBvbyAobGwpKDFlMTgpCgpsbCBhW21heG4rM10gLCBnW21heG4rM10gOyAKCglpbnQgbiA7IAp2b2lkIHN1YjEoKSB7CglsbCBhbnMgPSAtMWUxOCA7CglGT1IgKCBpICwgMSAsIG4gKQoJZ1tpXSA9IGdbaSAtIDEgXSArIGFbaV0gOwoJRk9SICggaSAsIDEgLCBuICApIHsgCgkJbGwgeDEgLCB4MiAsIHgzIDsgCgkJbGwgdmFsXzEgPSAtMWUxOCAsIHZhbF8yID0gLTFlMTggOwoJCUZPUiAoIGogLCAxICwgaSAgKSAKCQl7CgkJCWxsIHZhbF9vZiA9IGdbai0xXSAtICggZ1tpLTFdIC0gZ1tqLTFdICkgOwoJCQlpZiAoIHZhbF9vZiA+IHZhbF8xKSB7CgkJCQl2YWxfMSA9IHZhbF9vZiA7CgkJCQl4MSA9IGogOyAKCQkJfQoJCX0KCQl4MiA9IGkgOyAKCQlGT1IgKCBqICwgaSAgLCBuICsgMSApIHsKCQkJbGwgdmFsX29mID0gZ1tqIC0gMV0gLSBnW2ktMV0gLSAoIGdbbl0gLSBnW2otMV0pIDsgCgkJCWlmICggdmFsX29mID4gdmFsXzIpewoJCQkJdmFsXzIgPSB2YWxfb2YgOyAKCQkJCXgzID0gaiA7IAoKCQkJfQoJCX0KCQlhbnMgPSBtYXggKCBhbnMgLCB2YWxfMSArIHZhbF8yICk7Cgl9Cgljb3V0IDw8IGFucyA7IAp9CmxsIHNbbWF4bio0ICsgMyBdIDsKdm9pZCBidWlsZCAoIGludCBpZCAsIGludCBsICwgaW50IHIpIHsKCWlmICggbCA9PXIgKXsKCQlzW2lkXSA9IGdbbC0xXSA7CgkJcmV0dXJuIDsKCX0KCWludCBtID0gKCBsICsgciApID4+IDE7IAoJYnVpbGQgKCBpZCAqIDIgLCBsICwgbSApIDsKCWJ1aWxkICggaWQgKiAyICsgMSwgbSArIDEgLCByICkgOwoJc1tpZF0gPSBtYXggKCBzW2lkICogMiBdICwgc1tpZCAqIDIgKyAxXSApIDsKfQpsbCBnZXQgKCBpbnQgaWQgLCBpbnQgbCAsIGludCByICwgaW50IHUgLCBpbnQgdiApewoKCWlmICggbCA+IHYgfHwgciA8IHUgKSByZXR1cm4gLTFlMTggOwoJaWYgKCB1IDw9IGwgJiYgciA8PSB2ICl7CgkJcmV0dXJuIHNbaWRdIDsKCX0KCWludCBtID0gKCBsICsgcikgPj4gMSA7CglyZXR1cm4gbWF4ICggZ2V0ICggaWQgKiAyICwgbCAsIG0gLCB1ICwgdiApICwgZ2V0ICggaWQgKiAyICsgMSAsIG0gKyAxICwgciAsIHUgLCB2ICkpIDsgCn0Kdm9pZCBzdWIyKCkgewoJRk9SICggaSAsIDEgLCBuICkKCWdbaV0gPSBnW2kgLSAxIF0gKyBhW2ldIDsKCWJ1aWxkICggMSAsIDEgLCBuICsgMSApIDsgCglsbCBhbnNfMSA9IC0xZTE4IDsKCUZPUiAoIGkgLCAxICwgbiApewoJCWxsIHZhbCA9IDJsbCAqIGdldCAoIDEgLCAxICwgbiArIDEsIDEgLCBpICkgLSAybGwgKiBnW2ktMV0gKyAybGwgKiBnZXQgKCAxICwgMSAsIG4gKyAxLCBpICwgbiArIDEgKSAtIGdbbl0gOwoJCWFuc18xID0gbWF4ICggYW5zXzEgLCB2YWwgKSA7IAoJfQoJY291dCA8PCBhbnNfMSA8PCAnXG4nOyAKfQp2b2lkIGlucHV0KCl7CgoJY2luID4+IG4gOwoJRk9SICggaSAsIDEgLCBuICkgY2luID4+IGFbaV0gOyAKCWlmICggbiA8IDQgKSByZXR1cm4gOwoJZWxzZSBpZiAobiA8PSA1MDAwICkgc3ViMSgpIDsKCWVsc2Ugc3ViMigpIDsKfQojZGVmaW5lIG5hbWUgImRpdGljaCIgCmludCBtYWluKCl7CiAgICBmYXN0IAogICAgaWYoZm9wZW4obmFtZSIuSU5QIiwiciIpKSB7CiAgICAgICAgZnJlb3BlbiAobmFtZSIuSU5QIiwiciIsc3RkaW4pOwogICAgICAgIGZyZW9wZW4gKG5hbWUiLk9VVCIsInciLHN0ZG91dCk7CiAgICB9CiAgICBpbnB1dCgpIDsKICAgIGNlcnIgPDwgIlxuVElNRTogPSAiIDw8ICgxLjAqY2xvY2soKSkvQ0xPQ0tTX1BFUl9TRUMgPDwgJ1xuJzsKICAgIHJldHVybigwKSA7Cn0=