<>;map$\+=$_,grep$x+1-($x=$_),sort{$a-$b}glob<>;print