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