$e=1e18|1; ($n,@b)=<>; @a=1; $\--; for(0,1){ $m=$o=$a[0]; for(0..$#b){ $v=$a[$_+1]=($b[$_]-$a[$_])*(-1)**$_; $v=$e-$v if -$_&2; $m=$v if $m>$v; $o=$v if $o<$v; } $a[0]=2-$m,next if $m<1; $\=join$/,$n+1,@a if $o<$e; } print