<>;$\+=$_ for grep{$r=$_>$x+1;$x=$_;$r}sort{$a-$b}glob<>;print