#include <bits/stdc++.h>
using namespace std;
const int inf = 0x3f3f3f3f;
const int maxn = 1e5 + 5;
const int MOD = 5e5 + 5;
map<long long, long long> dp[30];
long long sum[maxn];
long long a[27], ans = 0;
char word[maxn];
int main() {
  for (int i = 0; i < 26; scanf("%I64d", a + i++))
    ;
  scanf("%s", word + 1);
  int len = strlen(word + 1);
  for (int i = 1; i <= len; i++) i[sum] = sum[i - 1] + a[word[i] - 'a'];
  for (int i = 1; i <= len; i++) {
    ans += dp[word[i] - 'a'][sum[i - 1]];
    dp[word[i] - 'a'][sum[i]]++;
  }
  printf("%I64d\n", ans);
  return 0;
}
