<>;[sort@0=/./g]~~@0&&map$%+=$-=(${$&}+=$-=$$_+@0-${$&})-$%,sort{1}a..$0[0]for sort<>;print$%