@a=<>;++$n,$m{$_}or$m{$_}=$n for sort{$b<=>$a}@a;print"$m{$_}
"for@a