<>;chop for@a=<>;map{\$h{$a[$'].$a[$'-$_]}for//..$#a}0..$#a;print%h+0