#include <set>
#include <map>
#include <list>
#include <cmath>
#include <queue>
#include <stack>
#include <cstdio>
#include <string>
#include <vector>
#include <cstdlib>
#include <cstring>
#include <sstream>
#include <iomanip>
#include <complex>
#include <iostream>
#include <algorithm>
#include <ctime>
#include <deque>
#include <bitset>
#include <cctype>
#include <utility>
#include <cassert>
using namespace std;
#define FOR(i,a,b) for(int i=(a),_b=(b); i<=_b; i++)
#define FORD(i,a,b) for(int i=(a),_b=(b); i>=_b; i--)
#define REP(i,a) for(int i=0,_a=(a); i<_a; i++)
#define EACH(it,a) for(__typeof(a.begin()) it = a.begin(); it != a.end(); ++it)
#define SZ(S) ((int) ((S).size()))
#define DEBUG(x) { cout << #x << " = " << x << endl; }
#define PR(a,n) { cout << #a << " = "; FOR(_,1,n) cout << a[_] << ' '; cout << endl; }
#define PR0(a,n) { cout << #a << " = "; REP(_,n) cout << a[_] << ' '; cout << endl; }
string s;
long long f[1011][1011];
int main() {
ios :: sync_with_stdio(false); cin.tie(NULL);
cout << (fixed) << setprecision(6);
while (cin >> s) {
int n = s.length();
FORD(j,n-1,0) FORD(i,j-1,0) {
int k = i + j + 1;
if (k >= n) f[i][j] = s[j] * 311 + s[i];
else f[i][j] = f[j][k] * 311 + s[i];
}
set<long long> s;
REP(i,n) FOR(j,i+1,n-1)
s.insert(f[i][j]);
cout << s.size() << endl;
}
return 0;
}
I2luY2x1ZGUgPHNldD4KI2luY2x1ZGUgPG1hcD4KI2luY2x1ZGUgPGxpc3Q+CiNpbmNsdWRlIDxjbWF0aD4KI2luY2x1ZGUgPHF1ZXVlPgojaW5jbHVkZSA8c3RhY2s+CiNpbmNsdWRlIDxjc3RkaW8+CiNpbmNsdWRlIDxzdHJpbmc+CiNpbmNsdWRlIDx2ZWN0b3I+CiNpbmNsdWRlIDxjc3RkbGliPgojaW5jbHVkZSA8Y3N0cmluZz4KI2luY2x1ZGUgPHNzdHJlYW0+CiNpbmNsdWRlIDxpb21hbmlwPgojaW5jbHVkZSA8Y29tcGxleD4KI2luY2x1ZGUgPGlvc3RyZWFtPgojaW5jbHVkZSA8YWxnb3JpdGhtPgoKI2luY2x1ZGUgPGN0aW1lPgojaW5jbHVkZSA8ZGVxdWU+CiNpbmNsdWRlIDxiaXRzZXQ+CiNpbmNsdWRlIDxjY3R5cGU+CiNpbmNsdWRlIDx1dGlsaXR5PgojaW5jbHVkZSA8Y2Fzc2VydD4KdXNpbmcgbmFtZXNwYWNlIHN0ZDsKCiNkZWZpbmUgRk9SKGksYSxiKSBmb3IoaW50IGk9KGEpLF9iPShiKTsgaTw9X2I7IGkrKykKI2RlZmluZSBGT1JEKGksYSxiKSBmb3IoaW50IGk9KGEpLF9iPShiKTsgaT49X2I7IGktLSkKI2RlZmluZSBSRVAoaSxhKSBmb3IoaW50IGk9MCxfYT0oYSk7IGk8X2E7IGkrKykKI2RlZmluZSBFQUNIKGl0LGEpIGZvcihfX3R5cGVvZihhLmJlZ2luKCkpIGl0ID0gYS5iZWdpbigpOyBpdCAhPSBhLmVuZCgpOyArK2l0KQojZGVmaW5lIFNaKFMpICgoaW50KSAoKFMpLnNpemUoKSkpCgojZGVmaW5lIERFQlVHKHgpIHsgY291dCA8PCAjeCA8PCAiID0gIiA8PCB4IDw8IGVuZGw7IH0KI2RlZmluZSBQUihhLG4pIHsgY291dCA8PCAjYSA8PCAiID0gIjsgRk9SKF8sMSxuKSBjb3V0IDw8IGFbX10gPDwgJyAnOyBjb3V0IDw8IGVuZGw7IH0KI2RlZmluZSBQUjAoYSxuKSB7IGNvdXQgPDwgI2EgPDwgIiA9ICI7IFJFUChfLG4pIGNvdXQgPDwgYVtfXSA8PCAnICc7IGNvdXQgPDwgZW5kbDsgfQoKc3RyaW5nIHM7Cgpsb25nIGxvbmcgZlsxMDExXVsxMDExXTsKCmludCBtYWluKCkgewogICAgaW9zIDo6IHN5bmNfd2l0aF9zdGRpbyhmYWxzZSk7IGNpbi50aWUoTlVMTCk7CiAgICBjb3V0IDw8IChmaXhlZCkgPDwgc2V0cHJlY2lzaW9uKDYpOwogICAgd2hpbGUgKGNpbiA+PiBzKSB7CiAgICAgICAgaW50IG4gPSBzLmxlbmd0aCgpOwogICAgICAgIEZPUkQoaixuLTEsMCkgRk9SRChpLGotMSwwKSB7CiAgICAgICAgICAgIGludCBrID0gaSArIGogKyAxOwogICAgICAgICAgICBpZiAoayA+PSBuKSBmW2ldW2pdID0gc1tqXSAqIDMxMSArIHNbaV07CiAgICAgICAgICAgIGVsc2UgZltpXVtqXSA9IGZbal1ba10gKiAzMTEgKyBzW2ldOwogICAgICAgIH0KICAgICAgICBzZXQ8bG9uZyBsb25nPiBzOwogICAgICAgIFJFUChpLG4pIEZPUihqLGkrMSxuLTEpCiAgICAgICAgICAgIHMuaW5zZXJ0KGZbaV1bal0pOwoKICAgICAgICBjb3V0IDw8IHMuc2l6ZSgpIDw8IGVuZGw7CiAgICB9CiAgICByZXR1cm4gMDsKfQoK