$\=<>*2-2;$_<$-or$-=s/.* //r,$\--for sort{$a=~s/.* //r-$b=~s///r}<>;print