<>=~$";++$a{$_},$b{$_}+=$a{$_-$'},$\+=$b{$_-$'}for glob<>;print