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