#include <bits/stdc++.h>
using namespace std;
#define all(x) begin(x), end(x)
#define int int64_t
const int maxn = 1001;
int pre[maxn][maxn], suf[maxn][maxn], is_pal[maxn][maxn], lcp[maxn][maxn];
signed main() {
//freopen("input.txt", "r", stdin);
//freopen("output.txt", "w", stdout);
ios::sync_with_stdio(0);
cin.tie(0);
string s;
cin >> s;
int n = s.size();
for(int i = 0; i < n; i++) {
is_pal[i][i] = 1;
pre[i][i] = suf[i][i] = 2;
if(i > 0) {
is_pal[i][i - 1] = pre[i][i - 1] = suf[i][i - 1] = 1;
}
}
for(int i = 0; i < n; i++) {
for(int j = i + 1; j < n; j++) {
lcp[i][j] = (s[i] == s[j]) * (1 + (i > 0 && j + 1 < n ? lcp[i - 1][j + 1] : 0));
}
}
for(int len = 1; len < n; len++) {
for(int i = 0; i + len < n; i++) {
is_pal[i][i + len] = (s[i] == s[i + len]) * is_pal[i + 1][i + len - 1];
pre[i][i + len] = is_pal[i][i + len] + pre[i][i + len - 1];
suf[i][i + len] = is_pal[i][i + len] + suf[i + 1][i + len];
}
}
int ans = 0;
for(int i = 0; i < n; i++) {
for(int j = i + 1; j < n; j++) {
ans += lcp[i][j] * (pre[i + 1][j - 1] + suf[i + 1][j - 1] - 1);
}
}
cout << ans << endl;
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+Cgp1c2luZyBuYW1lc3BhY2Ugc3RkOwoKI2RlZmluZSBhbGwoeCkgYmVnaW4oeCksIGVuZCh4KQojZGVmaW5lIGludCBpbnQ2NF90Cgpjb25zdCBpbnQgbWF4biA9IDEwMDE7CgppbnQgcHJlW21heG5dW21heG5dLCBzdWZbbWF4bl1bbWF4bl0sIGlzX3BhbFttYXhuXVttYXhuXSwgbGNwW21heG5dW21heG5dOwoKc2lnbmVkIG1haW4oKSB7CgkvL2ZyZW9wZW4oImlucHV0LnR4dCIsICJyIiwgc3RkaW4pOwoJLy9mcmVvcGVuKCJvdXRwdXQudHh0IiwgInciLCBzdGRvdXQpOwoJaW9zOjpzeW5jX3dpdGhfc3RkaW8oMCk7CgljaW4udGllKDApOwoJc3RyaW5nIHM7CgljaW4gPj4gczsKCWludCBuID0gcy5zaXplKCk7Cglmb3IoaW50IGkgPSAwOyBpIDwgbjsgaSsrKSB7CgkJaXNfcGFsW2ldW2ldID0gMTsKCQlwcmVbaV1baV0gPSBzdWZbaV1baV0gPSAyOwoJCWlmKGkgPiAwKSB7CgkJCWlzX3BhbFtpXVtpIC0gMV0gPSBwcmVbaV1baSAtIDFdID0gc3VmW2ldW2kgLSAxXSA9IDE7CgkJfQoJfQoJZm9yKGludCBpID0gMDsgaSA8IG47IGkrKykgewoJCWZvcihpbnQgaiA9IGkgKyAxOyBqIDwgbjsgaisrKSB7CgkJCWxjcFtpXVtqXSA9IChzW2ldID09IHNbal0pICogKDEgKyAoaSA+IDAgJiYgaiArIDEgPCBuID8gbGNwW2kgLSAxXVtqICsgMV0gOiAwKSk7CgkJfQoJfQoJZm9yKGludCBsZW4gPSAxOyBsZW4gPCBuOyBsZW4rKykgewoJCWZvcihpbnQgaSA9IDA7IGkgKyBsZW4gPCBuOyBpKyspIHsKCQkJaXNfcGFsW2ldW2kgKyBsZW5dID0gKHNbaV0gPT0gc1tpICsgbGVuXSkgKiBpc19wYWxbaSArIDFdW2kgKyBsZW4gLSAxXTsKCQkJcHJlW2ldW2kgKyBsZW5dID0gaXNfcGFsW2ldW2kgKyBsZW5dICsgcHJlW2ldW2kgKyBsZW4gLSAxXTsKCQkJc3VmW2ldW2kgKyBsZW5dID0gaXNfcGFsW2ldW2kgKyBsZW5dICsgc3VmW2kgKyAxXVtpICsgbGVuXTsKCQl9Cgl9CglpbnQgYW5zID0gMDsKCWZvcihpbnQgaSA9IDA7IGkgPCBuOyBpKyspIHsKCQlmb3IoaW50IGogPSBpICsgMTsgaiA8IG47IGorKykgewoJCQlhbnMgKz0gbGNwW2ldW2pdICogKHByZVtpICsgMV1baiAtIDFdICsgc3VmW2kgKyAxXVtqIC0gMV0gLSAxKTsKCQl9Cgl9Cgljb3V0IDw8IGFucyA8PCBlbmRsOwoJcmV0dXJuIDA7Cn0K