@0=@2=0;@$c=map{$_+$a,$_-$b}@{$c^=($a,$b)=glob<>}for 1..<>;@0=sort{$a<=>$b}@0;@2=sort{$b<=>$a}@2;$_=$0[$i]+$2[$j],$b>abs||???$b=abs:/-/?$i++:$j++while$i<@0&$j<@2;print$b