#include <bits/stdc++.h>
using namespace std;

typedef long long   signed int LL;
typedef long long unsigned int LU;

#define incID(i, l, r) for(int i = (l)    ; i <  (r); i++)
#define incII(i, l, r) for(int i = (l)    ; i <= (r); i++)
#define decID(i, l, r) for(int i = (r) - 1; i >= (l); i--)
#define decII(i, l, r) for(int i = (r)    ; i >= (l); i--)
#define inc( i, n) incID(i, 0, n)
#define inc1(i, n) incII(i, 1, n)
#define dec( i, n) decID(i, 0, n)
#define dec1(i, n) decII(i, 1, n)

#define inII(v, l, r) ((l) <= (v) && (v) <= (r))
#define inID(v, l, r) ((l) <= (v) && (v) <  (r))

#define PB push_back
#define EB emplace_back
#define MP make_pair
#define FI first
#define SE second
#define UB upper_bound
#define LB lower_bound
#define PQ priority_queue

#define  ALL(v)  v.begin(),  v.end()
#define RALL(v) v.rbegin(), v.rend()
#define  FOR(i, v) for(auto i =  v.begin(); i !=  v.end(); ++i)
#define RFOR(i, v) for(auto i = v.rbegin(); i != v.rend(); ++i)

template<typename T> bool setmin(T & a, T b) { if(a <= b) { return false; } else { a = b; return true; } }
template<typename T> bool setmax(T & a, T b) { if(b <= a) { return false; } else { a = b; return true; } }
template<typename T> T gcd(T a, T b) { return (b == 0 ? a : gcd(b, a % b)); }
template<typename T> T lcm(T a, T b) { return a / gcd(a, b) * b; }

template<typename T> ostream & operator<<(ostream & os, const vector<T> & v) {
	os << "[";
	FOR(it, v) {
		if(it != v.begin()) { os << ", "; }
		os << *it;
	}
	os << "]";
	return os;
}
template<typename F, typename S> ostream & operator<<(ostream & os, const pair<F, S> & p) {
	os << "<" << p.FI << ", " << p.SE << ">";
	return os;
}

// ---- ----

string s;
LL ans;
bool pd[5000][5000];
LL pp[5000];

int main() {
	cin >> s;
	
	int len = s.size();
	
	inc(i, len) {
		int l = i, r = i, flag = true;
		while(0 <= l && r < len) {
			if(s[l] != s[r]) { flag = false; }
			pd[l][r] = flag;
			l--; r++;
		}
	}
	inc(i, len) {
		int l = i, r = i + 1, flag = true;
		while(0 <= l && r < len) {
			if(s[l] != s[r]) { flag = false; }
			pd[l][r] = flag;
			l--; r++;
		}
	}
	
	inc(i, len) {
	inc(j, i) {
		if(pd[0][j] && pd[j + 1][i]) { pp[i]++; }
	}
	}
	
	inc(i, len) {
	incID(j, i + 2, len) {
		if(pd[j][len - 1]) { ans += pp[i]; }
	}
	}
	
	cout << ans << endl;
	
	return 0;
}