sub f{my($c,$d,$e)=@_;@$c||${f($d=$c>>1);f($e=$c-$d);for$y(@@){//,($$c[$'][$y])=sort{$b-$a}map$$d[$'][$_]+$$e[$_][$y],@@for@@}}}$n=<>-1;@@=0..<>-1;@1=map[glob],<>;f$n;//,map$%+=$-=$$n[$_][$']-$%,@@for@@;print$%