#include <iostream>
#include <vector>
#include <string>
#include <cassert>
#include <random>
#include <chrono>
#include <algorithm>
#include <functional>
using namespace std;

//Manber & Myers
//O(n (log n)^2)
class SuffixArray{
 public:
  vector<int> sa;
  vector<int> lcp;
  vector<int> rank;

  SuffixArray(const string& SS)
   : S(SS),
     len(SS.size()),
     sa(SS.size()+1),
     lcp(SS.size()+1),
     rank(SS.size()+1)
  {
    constract_sa();
    constract_lcp();
  }

  void dbg_print(){
    for(int i=0; i<=len; i++){
      cerr << S.substr(sa[i]) << " " << lcp[i] << endl;
    }
  }

 private:
  const string& S;
  int len;

  //Manber & Myers
  //O(len (logN)^2)
  void constract_sa(){
    //first character
    for(int i=0; i<=len; i++){
      sa[i] = i;
      rank[i] = (i<len) ? S[i] : -1;
    }

    vector<int> tmp(len+1);
    for(int k=1; k<=len; k *= 2){
      auto cmp_func = [&](int x, int y) -> bool{
        if(rank[x] != rank[y]) return rank[x] < rank[y];
        int l = (x+k <= len) ? rank[x+k] : -1;
        int r = (y+k <= len) ? rank[y+k] : -1;
        return l < r;
      };
      sort(sa.begin(), sa.end(), cmp_func);
      tmp[sa[0]] = 0;
      for(int i=1; i<=len; i++){
        tmp[sa[i]] = tmp[sa[i-1]] + (cmp_func(sa[i-1],sa[i])==true?1:0);
      }
      for(int i=0; i<=len; i++){
        rank[i] = tmp[i];
      }
    }
  }

  void constract_lcp(){
    for(int i=0; i<=len; i++) rank[sa[i]] = i;
    int h=0;
    lcp[0] = 0;
    for(int i=0; i<len; i++){
      int j=sa[rank[i]-1];
      if(h>0) h--;
      for(; j+h<len && i+h<len; h++){
        if(S[j+h] != S[i+h]) break;
      }
      lcp[rank[i] - 1] = h;
    }
  }
};

template<class T=int>
class SparseTable{
 public:
  SparseTable(int len, T default_value_ = 100000000, function<T(T,T)> eval = default_evaluate)
   : col(len), default_value(default_value_) 
  {
    evaluate = eval;
    row = 1;
    while((1<<row) < col) row += 1;
    row++;
    table = vector<vector<T>>(row, vector<T>(col, default_value));
  }

  SparseTable(vector<T>& vec, T default_value_ = 100000000, function<T(T,T)> eval = default_evaluate)
   : col(vec.size()), default_value(default_value_)
  {
    evaluate = eval;

    row = 1;
    while((1<<row) < col) row += 1;
    row++;
    table = vector<vector<T>>(row, vector<T>(col, default_value));

    set(vec);
  }

  void set(vector<T>& vec){
    assert(col == vec.size());

    values = &vec;
    vector<T>& val = vec;

    iota(table[0].begin(), table[0].end(), 0);
    for(int k=1; k<row; k++){
      for(int i=0; i + (1<<k)-1 < col; i++){
        T left = val[table[k-1][i]];
        T right = val[table[k-1][i+(1<<(k-1))]];
        if(left == evaluate(left,right)){
          table[k][i] = table[k-1][i];
        }else{
          table[k][i] = table[k-1][i+(1<<(k-1))];
        }
      }
    }
  }

  //[l,r)
  T get(int l, int r){
    if(l>=r) return default_value;
    vector<T>& val = *values;

    T ret = default_value;

    int k = 0;
    while((1<<(k+1)) < (r-l)) k++;

    T left = val[ table[k][l] ];
    T right = val[ table[k][r-(1<<k)] ];

    ret = evaluate(left, right);
    return ret;
  }

 private:
  int col;
  int row;
  T default_value;
  vector<T>* values;
  vector<vector<T>> table;

  static T default_evaluate(T a, T b){
    return min(a,b);
  }
  function<T(T,T)> evaluate;
};


const long long mod = 1000000007;
int main(){
  string s;
  cin >> s;
  int n = s.size();
  assert(1<=n && n<=10000);
  for(char c : s) assert('a'<=c && c<='z');

  SuffixArray sa(s);
  SparseTable<int> st(sa.lcp);

  vector<long long> dp(n+1, 0);
  dp[0] = 1;

  long long ans = 1;
  for(int i=1; i<=n/2; i++){
    for(int j=0; j<i; j++){
      int ra = sa.rank[j];
      int rb = sa.rank[n-i];
      if(ra>rb) swap(ra,rb);
      int len = i-j;
      int lcp = st.get(ra,rb);

      if(lcp>=len){
        dp[i] += dp[j];
        dp[i] %= mod;
      }
    }
    (ans += dp[i]) %= mod;
  }

  printf("%lld", ans);
  return 0;
}