$e=1000000000000000000; ($n,@b)=<>; @a=1; for(0..9){ if($a[0]<1){ $a[0]=1; } if($a[0]>$e){ $a[0]=$e; } $m=$e;$o=0; for(0..$#b){ $v=$a[$_+1]=($b[$_]-$a[$_])*(-1)**$_; if($_%4==1||$_%4==2){ $v=$e+1-$v; } $m=$v if $m>$v; $o=$v if $o<$v; } if($m<1){ $a[0]+=1-$m; }elsif($o>$e){ $a[0]-=$o-$e; }else{ print join$/,$n+1,@a; exit; } } print -1;