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;
inline int read() {
  int x = 0, f = 1;
  char ch = getchar();
  while (!isdigit(ch)) {
    if (ch == '-') f = -1;
    ch = getchar();
  }
  while (isdigit(ch)) x = x * 10 + (ch ^ 48), ch = getchar();
  return x * f;
}
const int N = 8005;
const int mod = 1019260817;
const int G = 19491001;
int n, f[N], val[N], g[N][N], Pow[N];
char s[N];
int has[N];
bool Isok(int x, int y, int len) {
  if (x > y) swap(x, y);
  return (long long)(has[x + len - 1] - has[x - 1] + mod) % mod * Pow[y - x] %
             mod ==
         (has[y + len - 1] - has[y - 1] + mod) % mod;
}
int used[N];
int main() {
  scanf("%s", s + 1);
  for (int i = 0, iE = 9; i <= iE; i++) val[i] = 1;
  for (int i = 10, iE = 99; i <= iE; i++) val[i] = 2;
  for (int i = 100, iE = 999; i <= iE; i++) val[i] = 3;
  for (int i = 1000, iE = 8000; i <= iE; i++) val[i] = 4;
  n = strlen(s + 1);
  for (int i = 1, iE = n; i <= iE; i++) f[i] = 1e9;
  Pow[0] = 1;
  for (int i = 1, iE = n; i <= iE; i++)
    Pow[i] = (long long)Pow[i - 1] * G % mod;
  for (int i = 1, iE = n; i <= iE; i++)
    has[i] = (has[i - 1] + (long long)(s[i] - 'a' + 1) * Pow[i] % mod) % mod;
  for (int len = 1, lenE = n; len <= lenE; len++) {
    for (int i = n - len + 1, iE = max(n - len * 2 + 2, 0); i >= iE; i--)
      g[i][len] = i + len - 1;
    for (int i = n - len * 2 + 1, iE = 1; i >= iE; i--)
      if (Isok(i, i + len, len))
        g[i][len] = g[i + len][len];
      else
        g[i][len] = i + len - 1;
  }
  f[0] = 0;
  for (int i = 1, iE = n; i <= iE; i++) {
    memset(used, 0, sizeof(used));
    for (int len = 1, lenE = n; len <= lenE; len++) {
      for (int now = g[i][len]; !used[now] && now >= i; now -= len) {
        used[now] = len;
      }
    }
    for (int j = i, jE = n; j <= jE; j++)
      f[j] = min(f[j], f[i - 1] + val[(j - i + 1) / used[j]] + used[j]);
  }
  printf("%d\n", f[n]);
  return 0;
}