#include <bits/stdc++.h>
using namespace std;
char s[100000];
map<long long, int> f[26];
int x[26];
int main() {
  long long ans = 0, tot = 0;
  for (int i = 0; i < 26; i++) scanf("%d", &x[i]);
  scanf("%s", &s);
  for (int i = 0; i < strlen(s); i++) {
    ans += f[s[i] - 'a'][tot];
    tot += x[s[i] - 'a'];
    f[s[i] - 'a'][tot]++;
  }
  printf("%I64d", ans);
  return 0;
}
