package adv2016; import java.io.PrintWriter; import java.util.Arrays; import java.util.Scanner; public class N464N2 { static Scanner in; static PrintWriter out; static String INPUT = ""; static void solve() { char[] s = in.next().toCharArray(); if(!(s.length >= 4))throw new AssertionError(); if(!(s.length <= 5000))throw new AssertionError(); for(char c : s){ if(!(c >= 'a' && c <= 'z'))throw new AssertionError(); } long B = 1000000009; int n = s.length; long[] hs = new long[n+1]; for(int i = 0;i < n;i++){ hs[i+1] = hs[i] * B + s[i]; } long[] rhs = new long[n+1]; for(int i = 0;i < n;i++){ rhs[n-i-1] = rhs[n-i] * B + s[n-1-i]; } long[] pows = new long[n+1]; pows[0] = 1; for(int i = 1;i <= n;i++)pows[i] = pows[i-1] * B; long[] p3 = new long[n+1]; for(int k = n-1;k >= 0;k--){ p3[k] = p3[k+1]; if(hs[n] - hs[k] * pows[n-k] == rhs[k] - rhs[n] * pows[n-k]){ p3[k]++; } } long ct = 0; for(int i = 1;i < n;i++){ if(hs[i] == rhs[0] - rhs[i]*pows[i]){ for(int j = i+1;j < n;j++){ if(hs[j] - hs[i] * pows[j-i] == rhs[i] - rhs[j] * pows[j-i]){ ct += p3[j+1]; } } } } out.println(ct); } public static int[] palindrome(char[] str) { int n = str.length; int[] r = new int[2*n]; int k = 0; for(int i = 0, j = 0;i < 2*n;i += k, j = Math.max(j-k, 0)){ // normally while(i-j >= 0 && i+j+1 < 2*n && str[(i-j)/2] == str[(i+j+1)/2])j++; r[i] = j; // skip based on the theorem for(k = 1;i-k >= 0 && r[i]-k >= 0 && r[i-k] != r[i]-k;k++){ r[i+k] = Math.min(r[i-k], r[i]-k); } } return r; } public static void main(String[] args) throws Exception { in = INPUT.isEmpty() ? new Scanner(System.in) : new Scanner(INPUT); out = new PrintWriter(System.out); solve(); out.flush(); } static int ni() { return Integer.parseInt(in.next()); } static long nl() { return Long.parseLong(in.next()); } static double nd() { return Double.parseDouble(in.next()); } static void tr(Object... o) { if (INPUT.length() != 0) System.out.println(Arrays.deepToString(o)); } }