$n=<>;
@b=sort{$a-$b}map/ .*/g,@a=sort{$a-$b}<>;
$s+=abs$_-$a[@a/2]for@a;
$s+=abs$_-$b[@b/2]for@b;
print$s;