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