<>=~$";print~~map{++$a{$_};($b{$_}+=$a{$_-$'})x$b{$_-$'}}glob<>