<>=~/ .* /; $\+= ($==$_/$&)>${$h=0-$_%$&}+2*$' ? 2*$'+1 : $=-$$h, $$h=$= for sort{$a-$b}map$_+(1<<61),glob<>; print