$\=<>;++$d{$_+1},$\+=$d{$_+2}=$d{$_}for sort{$a<=>$b}glob<>;print