$-=<>=~($/=$")+$';print~~grep$--=$_,sort{$a-$b}<>