$e=1e18|0; ($n,@b)=<>; @a=1; for(0..1){ $m=$o=$a[0]; for(0..$#b){ $v=$a[$_+1]=($b[$_]-$a[$_])*(-1)**$_; $v=$e+1-$v if $_%4==1||$_%4==2; $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; } last if $a[0]<1||$a[0]>$e; } print -1;