@_=sort{$b-$a}split for<>;print"@_"