($n,$d)=glob<>;$z+=$b{$_-$d},$b{$_}+=$a{$_-$d},$a{$_}++for glob<>;print$z