<>=~$";++$h{$_}for glob<>;$\+=$h{$_}*$h{$'-$_}for keys%h;print