read n
for((;i<n;)){
read a
s[j=i++]=$a
for((;j--;z+=!$a$b+++!$b$a++)){
b=${s[j]}
}
}
echo $z