eval"N,*A="+`dd`.split*?,
a=*0;b=*0
A.each_slice(2){a<<a[-1]+_1;b<<b[-1]+_2}
p b[N]-a[N]+2*(0..N).map{a[_1]-b[_1]}.max