Problem: Ivan wants to write a letter to his friend. The letter is a string s consisting of lowercase Latin letters.

Unfortunately, when Ivan started writing the letter, he realised that it is very long and writing the whole letter may take extremely long time. So he wants to write the compressed version of string s instead of the string itself.

The compressed version of string s is a sequence of strings c1, s1, c2, s2, ..., ck, sk, where ci is the decimal representation of number ai (without any leading zeroes) and si is some string consisting of lowercase Latin letters. If Ivan writes string s1 exactly a1 times, then string s2 exactly a2 times, and so on, the result will be string s.

The length of a compressed version is |c1| + |s1| + |c2| + |s2|... |ck| + |sk|. Among all compressed versions Ivan wants to choose a version such that its length is minimum possible. Help Ivan to determine minimum possible length.

Input

The only line of input contains one string s consisting of lowercase Latin letters (1 ≤ |s| ≤ 8000).

Output

Output one integer number — the minimum possible length of a compressed version of s.

Examples

Input

aaaaaaaaaa


Output

3


Input

abcab


Output

6


Input

cczabababab


Output

7

Note

In the first example Ivan will choose this compressed version: c1 is 10, s1 is a.

In the second example Ivan will choose this compressed version: c1 is 1, s1 is abcab.

In the third example Ivan will choose this compressed version: c1 is 2, s1 is c, c2 is 1, s2 is z, c3 is 4, s3 is ab.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
template <typename T = long long>
inline T IN() {
  T x;
  cin >> x;
  return (x);
}
inline void CIN() {}
template <class Head, class... Tail>
inline void CIN(Head &&head, Tail &&...tail) {
  cin >> head;
  CIN(move(tail)...);
}
template <typename T = string>
inline void eputs(T s) {
  cout << s << "\n";
  exit(0);
}
template <typename A, size_t N, typename T>
void Fill(A (&array)[N], const T &val) {
  std::fill((T *)array, (T *)(array + N), val);
}
template <typename T>
using PQG = priority_queue<T, vector<T>, greater<T>>;
template <typename T>
using PQ = priority_queue<T>;
const long long INF = 1e9;
const long long MOD = 1e9 + 7;
const long long LINF = 1e18;
const double PI = atan(1.0) * 4.0;
const long long dw[] = {1, 1, 0, -1, -1, -1, 0, 1};
const long long dh[] = {0, 1, 1, 1, 0, -1, -1, -1};
struct KMP {
  string pat;
  vector<long long> fail;
  KMP(const string &p) { init(p); }
  void init(const string &p) {
    pat = p;
    long long m = (long long)pat.size();
    fail.assign(m + 1, -1);
    for (long long i = 0, j = -1; i < m; ++i) {
      while (j >= 0 && pat[i] != pat[j]) j = fail[j];
      fail[i + 1] = ++j;
    }
  }
  long long period(long long i) { return i - fail[i]; }
  vector<long long> match(const string &S) {
    long long n = (long long)S.size(), m = (long long)pat.size();
    vector<long long> res;
    for (long long i = 0, k = 0; i < n; ++i) {
      while (k >= 0 && S[i] != pat[k]) k = fail[k];
      ++k;
      if (k == m) res.push_back(i - m + 1);
    }
    return res;
  }
};
long long GetLen(long long x) {
  long long len = 0;
  while (x != 0) {
    x /= 10;
    len++;
  }
  return len;
}
long long dp[10000];
signed main() {
  cin.tie(0), ios::sync_with_stdio(false);
  string S;
  CIN(S);
  long long N = S.length();
  Fill(dp, LINF);
  dp[0] = 0;
  for (long long i = 0; i < (N); ++i) {
    string s = S.substr(i);
    KMP kmp(s);
    long long n = s.length();
    for (long long num = (1); num < (n + 1); ++num) {
      long long p = kmp.period(num);
      if ((num) % p == 0) {
        dp[i + num] = min(dp[i + num], dp[i] + GetLen(num / p) + p);
      } else {
        dp[i + num] = min(dp[i + num], dp[i] + num + 1);
      }
    }
  }
  cout << dp[N] << "\n";
}