FJ is about to take his N (1 ≤ N ≤ 2,000) cows to the annual"Farmer of the Year" competition. In this contest every farmer arranges his cows in a line and herds them past the judges.

The contest organizers adopted a new registration scheme this year: simply register the initial letter of every cow in the order they will appear (i.e., If FJ takes Bessie, Sylvia, and Dora in that order he just registers BSD). After the registration phase ends, every group is judged in increasing lexicographic order according to the string of the initials of the cows' names.

FJ is very busy this year and has to hurry back to his farm, so he wants to be judged as early as possible. He decides to rearrange his cows, who have already lined up, before registering them.

FJ marks a location for a new line of the competing cows. He then proceeds to marshal the cows from the old line to the new one by repeatedly sending either the first or last cow in the (remainder of the) original line to the end of the new line. When he's finished, FJ takes his cows for registration in this new order.

Given the initial order of his cows, determine the least lexicographic string of initials he can make this way.

* Line 1: A single integer: N
* Lines 2..N+1: Line i+1 contains a single initial ('A'..'Z') of the cow in the ith position in the original line

The least lexicographic string he can make. Every line (except perhaps the last one) contains the initials of 80 cows ('A'..'Z') in the new line.

#include<cstdio>

#include<cstdlib>

#include<iostream>

#include<algorithm>

using namespace std;

const int maxn=;

char c[maxn];

bool Left(int L,int R){

    while(L<=R){

        if(c[L]!=c[R])

           return c[L]<c[R];

        L++; R--;

    }

    return true;

}

int main()

{

    int N,cnt;

    scanf("%d",&N);

    for(int i=;i<=N;i++) cin>>c[i];

    int L=,R=N; cnt=;

    while(L<=R){

        if(Left(L,R)) cout<<c[L++];

        else cout<<c[R--];

        cnt++;

        if(cnt==) printf("\n"),cnt=;

    }

    return ;

}

#include<cmath>

#include<math.h>

#include<cstdio>

#include<cstdlib>

#include<cstring>

#include<iostream>

#include<algorithm>

using namespace std;

const int maxn=;

int N;char c[maxn];

struct SA

{

    int Rank[maxn],A[maxn],B[maxn],cntA[maxn],cntB[maxn],sa[maxn],tsa[maxn],ht[maxn],Min[maxn][];

    void sort(){

       for(int i=;i<=;i++) cntA[i]=;

       for(int i=;i<=N;i++) cntA[c[i]]++;

       for(int i=;i<=;i++) cntA[i]+=cntA[i-];

       for(int i=N;i>=;i--) sa[cntA[c[i]]--]=i;

       Rank[sa[]]=;

       for(int i=;i<=N;i++) Rank[sa[i]]=Rank[sa[i-]]+(c[sa[i]]==c[sa[i-]]?:);

       for(int l=;Rank[sa[N]]<N;l<<=){

              for(int i=;i<=N;i++) cntA[i]=cntB[i]=;

              for(int i=;i<=N;i++) cntA[A[i]=Rank[i]]++;

              for(int i=;i<=N;i++) cntB[B[i]=i+l<=N?Rank[i+l]:]++;

              for(int i=;i<=N;i++) cntA[i]+=cntA[i-],cntB[i]+=cntB[i-];

              for(int i=N;i>=;i--) tsa[cntB[B[i]]--]=i;

              for(int i=N;i>=;i--) sa[cntA[A[tsa[i]]]--]=tsa[i];

              Rank[sa[]]=;

              for(int i=;i<=N;i++) Rank[sa[i]]=Rank[sa[i-]]+(A[sa[i]]==A[sa[i-]]&&B[sa[i]]==B[sa[i-]]?:);

       }

    }

}S;

int main()

{

    int n,cnt;

    scanf("%d",&n);    N=n+n+;

    for(int i=;i<=n;i++) cin>>c[i];

    for(int i=n;i>=;i--) c[N-i]=c[i];

    int L=,R=n; cnt=; S.sort();

    while(L<=R){

        if(S.Rank[L]<=S.Rank[N-R]) cout<<c[L++];

        else cout<<c[R--];

        cnt++;

        if(cnt==) printf("\n"),cnt=;

    }

    return ;

}