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