<>;$l{$_}=$i++for@a=<>=~/\d+/g;$h{$_}+=print((sort{$b-$a}keys%h)[0],$"),$j++-$l{$_}||delete$h{$_}for@a