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

typedef long long ll;
typedef unsigned long long ull;
typedef pair<ll, ll> P;

#define fi first
#define se second
#define repl(i,a,b) for(ll i=(ll)(a);i<(ll)(b);i++)
#define rep(i,n) repl(i,0,n)
#define each(itr,v) for(auto itr:v)
#define pb push_back
#define all(x) (x).begin(),(x).end()
#define dbg(x) cout<<#x"="<<x<<endl
#define mmax(x,y) (x>y?x:y)
#define mmin(x,y) (x<y?x:y)
#define maxch(x,y) x=mmax(x,y)
#define minch(x,y) x=mmin(x,y)
#define uni(x) x.erase(unique(all(x)),x.end())
#define exist(x,y) (find(all(x),y)!=x.end())
#define bcnt __builtin_popcount

#define INF INT_MAX/3

#define mod 1000000007
#define B 1000000007

ll n;
string s;
ll mem[10000];

ull mypow(ull a,ll n){
  ull res=1;
  while(n>0){
    if(n&1)res=res*a;
    a=a*a;
    n>>=1LL;
  }
  return res;
}

ll dfs(ll i){
  if((n%2!=0&&i==n/2)||(n%2==0&&i==n/2-1)){
    if(n%2==0)return 1+(s[n/2-1]==s[n/2]?1:0);
    else return 1;
  }
  if(mem[i]!=-1)return mem[i];
  ll res=1;
  ull lh=0,rh=0;
  repl(j,i,n/2){
    lh*=B;lh+=s[j];
    rh+=mypow(B,j-i)*s[n-1-j];
    if(lh==rh)(res+=dfs(j+1))%=mod;
  }
  return mem[i]=res;
}

int main(){
	cin>>s;
  n=s.size();
  memset(mem,-1,sizeof(mem));
  cout<<dfs(0)<<endl;
	return 0;
}