#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 1st palindrome substring
int consistency2(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]++;
}
}
}
}
vector<int> endsAt(n, 0);
for(int j = 0; j < n; j++){
for(int i = 0; i <= j; i++){
if(dp[i][j]) endsAt[j]++;
}
}
vector<int> pairsStartsAt(n, 0);
for(int i = 0; i <= n - 2; i++){
for(int j = i; j <= n - 2; j++){
if(dp[i][j]){
int x = 1;
int y = dpCt[j+1][n-1];
pairsStartsAt[i] += x*y;
}
}
}
vector<int> suffixPairs(n + 1, 0);
for(int i = n - 2; i >= 1; i--){
suffixPairs[i] = suffixPairs[i+1] + pairsStartsAt[i];
}
int ans = 0;
for(int j = 0; j <= n - 3; j++){
ans += endsAt[j] * suffixPairs[j+1];
}
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 j=0; j<=n-2; j++){
int z = dpCt[j+1][n-1];
int i = j;
while(i>=1){
if(dp[i][j]){
int x = dpCt[0][i-1];
ans += x*1*z;
}
i--;
}
}
return ans;
}
int practice(int n){
return 0;
}
void solve() {
cin >> a;
int n = a.size();
cout << consistency1(n) << " " << consistency2(n) << " " << consistency3(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;
}