#include <bits/stdc++.h>
using namespace std;
#define int long long int
#define double long double
#define print(a) for(auto x : a) cout << x << " "; cout << endl
const int M = 1000000007;
const int N = 3e5+9;
const int INF = 2e9+1;
const int LINF = 2000000000000000001;
inline int power(int a, int b, int mod=M) {
int x = 1;
a %= mod;
while (b) {
if (b & 1) x = (x * a) % mod;
a = (a * a) % mod;
b >>= 1;
}
return x;
}
//_ ***************************** START Below *******************************
string a;
//* Pivot 1st palindrome substring
int consistency1(int n){
vector<vector<bool>> dp(n, vector<bool>(n, false));
vector<vector<int>> dpCt(n, vector<int>(n, 0));
for(int gap=0; gap<n; gap++){
for(int i=0, j=gap; j<n; i++, j++){
if(gap == 0){
dp[i][j] = true;
dpCt[i][j] = 1;
}
else if(gap == 1){
if(a[i] == a[j]){
dp[i][j] = true;
dpCt[i][j] = 3;
}
else{
dpCt[i][j] = 2;
}
}
else{
dpCt[i][j] = dpCt[i][j-1] + dpCt[i+1][j] - dpCt[i+1][j-1];
if(a[i] == a[j] && dp[i+1][j-1]){
dp[i][j] = true;
dpCt[i][j]++;
}
}
}
}
int ans = 0;
for(int i=0; i<=n-3; i++){
int x = 0;
int j = i;
while(j>=0){
if(dp[j][i]) x++;
j--;
}
int y = 0;
for(int j=i+1; j<=n-2; j++){
int p = 0;
int k = j;
while(k>i){
if(dp[k][j]) p++;
k--;
}
int q = dpCt[j+1][n-1];
y += p*q;
}
ans += x*y;
}
return ans;
}
//* Pivot middle palindrome substring
int consistency3(int n){
vector<vector<bool>> dp(n, vector<bool>(n, false));
vector<vector<int>> dpCt(n, vector<int>(n, 0));
vector<int> dp2(n, 0);
for(int gap=0; gap<n; gap++){
for(int i=0, j=gap; j<n; i++, j++){
if(gap == 0){
dp[i][j] = true;
dpCt[i][j] = 1;
dp2[j] += 1;
}
else if(gap == 1){
if(a[i] == a[j]){
dp[i][j] = true;
dpCt[i][j] = 3;
dp2[j] += 1;
}
else{
dpCt[i][j] = 2;
}
}
else{
dpCt[i][j] = dpCt[i][j-1] + dpCt[i+1][j] - dpCt[i+1][j-1];
if(a[i] == a[j] && dp[i+1][j-1]){
dp[i][j] = true;
dpCt[i][j]++;
dp2[j]++;
}
}
}
}
int ans = 0;
for(int i=0; i<=n-3; i++){
int x = dp2[i];
int y = 0;
for(int j=i+1; j<=n-2; j++){
int p = dp2[j];
int q = dpCt[j+1][n-1];
y += p*q;
}
ans += x*y;
}
return ans;
}
int consistency2(int n){
vector<vector<bool>> dp(n, vector<bool>(n, false));
vector<vector<int>> dpCt(n, vector<int>(n, 0));
vector<int> dp2(n, 0);
for(int gap=0; gap<n; gap++){
for(int i=0, j=gap; j<n; i++, j++){
if(gap == 0){
dp[i][j] = true;
dpCt[i][j] = 1;
dp2[j] += 1;
}
else if(gap == 1){
if(a[i] == a[j]){
dp[i][j] = true;
dpCt[i][j] = 3;
dp2[j] += 1;
}
else{
dpCt[i][j] = 2;
}
}
else{
dpCt[i][j] = dpCt[i][j-1] + dpCt[i+1][j] - dpCt[i+1][j-1];
if(a[i] == a[j] && dp[i+1][j-1]){
dp[i][j] = true;
dpCt[i][j]++;
dp2[j]++;
}
}
}
}
int ans = 0;
for(int j=1; j<=n-2; j++){
int z = dpCt[j+1][n-1];
int y = 0;
int i = j;
while(i>=1){
int x = dp2[i-1];
if(dp[i][j]){
y++;
ans += x * y * z;
}
i--;
}
}
return ans;
}
int practice(int n){
return 0;
}
void solve() {
cin >> a;
int n = a.size();
cout << consistency1(n) << " " << consistency2(n) << endl;
}
int32_t main() {
ios_base::sync_with_stdio(0); cin.tie(0); cout.tie(0);
int t = 1;
// cin >> t;
while (t--) {
solve();
}
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgaW50ICAgICAgICAgICAgICBsb25nIGxvbmcgaW50CiNkZWZpbmUgZG91YmxlICAgICAgICAgICBsb25nIGRvdWJsZQojZGVmaW5lIHByaW50KGEpICAgICAgICAgZm9yKGF1dG8geCA6IGEpIGNvdXQgPDwgeCA8PCAiICI7IGNvdXQgPDwgZW5kbAoKCmNvbnN0IGludCBNID0gMTAwMDAwMDAwNzsKY29uc3QgaW50IE4gPSAzZTUrOTsKY29uc3QgaW50IElORiA9IDJlOSsxOwpjb25zdCBpbnQgTElORiA9IDIwMDAwMDAwMDAwMDAwMDAwMDE7CgppbmxpbmUgaW50IHBvd2VyKGludCBhLCBpbnQgYiwgaW50IG1vZD1NKSB7CiAgICBpbnQgeCA9IDE7CiAgICBhICU9IG1vZDsKICAgIHdoaWxlIChiKSB7CiAgICAgICAgaWYgKGIgJiAxKSB4ID0gKHggKiBhKSAlIG1vZDsgCiAgICAgICAgYSA9IChhICogYSkgJSBtb2Q7CiAgICAgICAgYiA+Pj0gMTsKICAgIH0KICAgIHJldHVybiB4Owp9CgoKLy9fICoqKioqKioqKioqKioqKioqKioqKioqKioqKioqIFNUQVJUIEJlbG93ICoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioKCgoKCnN0cmluZyBhOwoKLy8qIFBpdm90IDFzdCBwYWxpbmRyb21lIHN1YnN0cmluZwoKaW50IGNvbnNpc3RlbmN5MShpbnQgbil7CgkKCXZlY3Rvcjx2ZWN0b3I8Ym9vbD4+IGRwKG4sIHZlY3Rvcjxib29sPihuLCBmYWxzZSkpOwoJdmVjdG9yPHZlY3RvcjxpbnQ+PiBkcEN0KG4sIHZlY3RvcjxpbnQ+KG4sIDApKTsKCQoJZm9yKGludCBnYXA9MDsgZ2FwPG47IGdhcCsrKXsKCQlmb3IoaW50IGk9MCwgaj1nYXA7IGo8bjsgaSsrLCBqKyspewoJCQlpZihnYXAgPT0gMCl7CgkJCQlkcFtpXVtqXSA9IHRydWU7CgkJCQlkcEN0W2ldW2pdID0gMTsKCQkJfQoJCQllbHNlIGlmKGdhcCA9PSAxKXsKCQkJCWlmKGFbaV0gPT0gYVtqXSl7CgkJCQkJZHBbaV1bal0gPSB0cnVlOwoJCQkJCWRwQ3RbaV1bal0gPSAzOwoJCQkJfQoJCQkJZWxzZXsKCQkJCQlkcEN0W2ldW2pdID0gMjsKCQkJCX0KCQkJfQoJCQllbHNlewoJCQkJZHBDdFtpXVtqXSA9IGRwQ3RbaV1bai0xXSArIGRwQ3RbaSsxXVtqXSAtIGRwQ3RbaSsxXVtqLTFdOwoJCQkJaWYoYVtpXSA9PSBhW2pdICYmIGRwW2krMV1bai0xXSl7CgkJCQkJZHBbaV1bal0gPSB0cnVlOwoJCQkJCWRwQ3RbaV1bal0rKzsKCQkJCX0KCQkJfQoJCX0KCX0KCQoJaW50IGFucyA9IDA7Cglmb3IoaW50IGk9MDsgaTw9bi0zOyBpKyspewoJCWludCB4ID0gMDsKCQkKCQlpbnQgaiA9IGk7CgkJd2hpbGUoaj49MCl7CgkJCWlmKGRwW2pdW2ldKSB4Kys7CgkJCWotLTsKCQl9CgkJCgkJaW50IHkgPSAwOwoJCWZvcihpbnQgaj1pKzE7IGo8PW4tMjsgaisrKXsKCQkJaW50IHAgPSAwOwoJCQkKCQkJaW50IGsgPSBqOwoJCQl3aGlsZShrPmkpewoJCQkJaWYoZHBba11bal0pIHArKzsKCQkJCWstLTsKCQkJfQoJCQlpbnQgcSA9IGRwQ3RbaisxXVtuLTFdOwoJCQkKCQkJeSArPSBwKnE7CgkJfQoJCQoJCWFucyArPSB4Knk7Cgl9CgkKICAgIHJldHVybiBhbnM7Cn0KCgoKCi8vKiBQaXZvdCBtaWRkbGUgcGFsaW5kcm9tZSBzdWJzdHJpbmcKCmludCBjb25zaXN0ZW5jeTMoaW50IG4pewoJCgl2ZWN0b3I8dmVjdG9yPGJvb2w+PiBkcChuLCB2ZWN0b3I8Ym9vbD4obiwgZmFsc2UpKTsKCXZlY3Rvcjx2ZWN0b3I8aW50Pj4gZHBDdChuLCB2ZWN0b3I8aW50PihuLCAwKSk7Cgl2ZWN0b3I8aW50PiBkcDIobiwgMCk7CgkKCWZvcihpbnQgZ2FwPTA7IGdhcDxuOyBnYXArKyl7CgkJZm9yKGludCBpPTAsIGo9Z2FwOyBqPG47IGkrKywgaisrKXsKCQkJaWYoZ2FwID09IDApewoJCQkJZHBbaV1bal0gPSB0cnVlOwoJCQkJZHBDdFtpXVtqXSA9IDE7CgkJCQlkcDJbal0gKz0gMTsKCQkJfQoJCQllbHNlIGlmKGdhcCA9PSAxKXsKCQkJCWlmKGFbaV0gPT0gYVtqXSl7CgkJCQkJZHBbaV1bal0gPSB0cnVlOwoJCQkJCWRwQ3RbaV1bal0gPSAzOwoJCQkJCWRwMltqXSArPSAxOwoJCQkJfQoJCQkJZWxzZXsKCQkJCQlkcEN0W2ldW2pdID0gMjsKCQkJCX0KCQkJfQoJCQllbHNlewoJCQkJZHBDdFtpXVtqXSA9IGRwQ3RbaV1bai0xXSArIGRwQ3RbaSsxXVtqXSAtIGRwQ3RbaSsxXVtqLTFdOwoJCQkJaWYoYVtpXSA9PSBhW2pdICYmIGRwW2krMV1bai0xXSl7CgkJCQkJZHBbaV1bal0gPSB0cnVlOwoJCQkJCWRwQ3RbaV1bal0rKzsKCQkJCQlkcDJbal0rKzsKCQkJCX0KCQkJfQoJCX0KCX0KCQoJaW50IGFucyA9IDA7Cglmb3IoaW50IGk9MDsgaTw9bi0zOyBpKyspewoJCWludCB4ID0gZHAyW2ldOwoJCQoJCWludCB5ID0gMDsKCQlmb3IoaW50IGo9aSsxOyBqPD1uLTI7IGorKyl7CgkJCQoJCQlpbnQgcCA9IGRwMltqXTsKCQkJaW50IHEgPSBkcEN0W2orMV1bbi0xXTsKCQkJCgkJCXkgKz0gcCpxOwoJCX0KCQkKCQlhbnMgKz0geCp5OwoJfQoJCiAgICByZXR1cm4gYW5zOwp9CgoKCgoKCmludCBjb25zaXN0ZW5jeTIoaW50IG4pewoJCgl2ZWN0b3I8dmVjdG9yPGJvb2w+PiBkcChuLCB2ZWN0b3I8Ym9vbD4obiwgZmFsc2UpKTsKCXZlY3Rvcjx2ZWN0b3I8aW50Pj4gZHBDdChuLCB2ZWN0b3I8aW50PihuLCAwKSk7Cgl2ZWN0b3I8aW50PiBkcDIobiwgMCk7CgkKCWZvcihpbnQgZ2FwPTA7IGdhcDxuOyBnYXArKyl7CgkJZm9yKGludCBpPTAsIGo9Z2FwOyBqPG47IGkrKywgaisrKXsKCQkJaWYoZ2FwID09IDApewoJCQkJZHBbaV1bal0gPSB0cnVlOwoJCQkJZHBDdFtpXVtqXSA9IDE7CgkJCQlkcDJbal0gKz0gMTsKCQkJfQoJCQllbHNlIGlmKGdhcCA9PSAxKXsKCQkJCWlmKGFbaV0gPT0gYVtqXSl7CgkJCQkJZHBbaV1bal0gPSB0cnVlOwoJCQkJCWRwQ3RbaV1bal0gPSAzOwoJCQkJCWRwMltqXSArPSAxOwoJCQkJfQoJCQkJZWxzZXsKCQkJCQlkcEN0W2ldW2pdID0gMjsKCQkJCX0KCQkJfQoJCQllbHNlewoJCQkJZHBDdFtpXVtqXSA9IGRwQ3RbaV1bai0xXSArIGRwQ3RbaSsxXVtqXSAtIGRwQ3RbaSsxXVtqLTFdOwoJCQkJaWYoYVtpXSA9PSBhW2pdICYmIGRwW2krMV1bai0xXSl7CgkJCQkJZHBbaV1bal0gPSB0cnVlOwoJCQkJCWRwQ3RbaV1bal0rKzsKCQkJCQlkcDJbal0rKzsKCQkJCX0KCQkJfQoJCX0KCX0KCQoJaW50IGFucyA9IDA7Cglmb3IoaW50IGo9MTsgajw9bi0yOyBqKyspewoJCQoKCQlpbnQgeiA9IGRwQ3RbaisxXVtuLTFdOwoJCQoJCWludCB5ID0gMDsKCQlpbnQgaSA9IGo7CgkJd2hpbGUoaT49MSl7CgkJCWludCB4ID0gZHAyW2ktMV07CgkJCQoJCQlpZihkcFtpXVtqXSl7CgkJCQl5Kys7CgkJCQkKCQkJCWFucyArPSB4ICogeSAqIHo7CgkJCX0KCQkJaS0tOwoJCX0KCX0KCQogICAgcmV0dXJuIGFuczsKfQoKCgoKCgoKCgoKCgoKCmludCBwcmFjdGljZShpbnQgbil7CgoKICAgIHJldHVybiAwOwp9CgoKCgoKdm9pZCBzb2x2ZSgpIHsKICAgIAogICAgY2luID4+IGE7CiAgICBpbnQgbiA9IGEuc2l6ZSgpOwogICAgY291dCA8PCBjb25zaXN0ZW5jeTEobikgPDwgIiAiIDw8IGNvbnNpc3RlbmN5MihuKSA8PCBlbmRsOwoKCn0KCgoKCgppbnQzMl90IG1haW4oKSB7CiAgICBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKDApOyBjaW4udGllKDApOyBjb3V0LnRpZSgwKTsKCiAgICBpbnQgdCA9IDE7CiAgICAvLyBjaW4gPj4gdDsKICAgIHdoaWxlICh0LS0pIHsKICAgICAgICBzb2x2ZSgpOwogICAgfQoKICAgIHJldHVybiAwOwp9