/*
把字符串复制一遍,就是后缀数组裸题了,还在蒙圈中……抽空再看
一个链接:http://wenku.baidu.com/view/228caa45b307e87101f696a8.html
另一个:http://wenku.baidu.com/view/87116e4d2e3f5727a5e9622d.html
*/
#include<iostream>
#include<cstdio>
#include<cstring>
#define N 200010
using namespace std;
char ch[N];
int a[N],n,k;
int v[N],sa[2][N],rank[2][N];
void init(){
scanf("%s",ch+1);
n=strlen(ch+1);
for(int i=1;i<=n;i++){
a[i]=ch[i];
a[i+n]=a[i];
ch[i+n]=ch[i];
}
n<<=1;
}
void calsa(int sa[N],int rank[N],int SA[N],int Rank[N]){
for(int i=1;i<=n;i++)v[rank[sa[i]]]=i;
for(int i=n;i>=1;i--)
if(sa[i]>k)
SA[v[rank[sa[i]-k]]--]=sa[i]-k;
for(int i=n-k+1;i<=n;i++)
SA[v[rank[i]]--]=i;
for(int i=1;i<=n;i++)
Rank[SA[i]]=Rank[SA[i-1]]+(rank[SA[i-1]]!=rank[SA[i]]||rank[SA[i-1]+k]!=rank[SA[i]+k]);
}
void work(){
int p=0,q=1;
for(int i=1;i<=n;i++)v[a[i]]++;
for(int i=1;i<=256;i++)v[i]+=v[i-1];
for(int i=1;i<=n;i++)
sa[p][v[a[i]]--]=i;
for(int i=1;i<=n;i++)
rank[p][sa[p][i]]=rank[p][sa[p][i-1]]+(a[sa[p][i]]!=a[sa[p][i-1]]);
k=1;
while(k<n){
calsa(sa[p],rank[p],sa[q],rank[q]);
p^=1;q^=1;k<<=1;
}
for(int i=1;i<=n;i++){
if(sa[p][i]<=n/2)
printf("%c",ch[sa[p][i]+n/2-1]);
}
}
int main(){
init();work();
return 0;
}