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