#include<cstring>

#include<cstdio>

#include<iostream>

#include<algorithm>

#include<cmath>

#define rep(i,l,r) for (int i=l;i<=r;i++)

#define down(i,l,r) for (int i=l;i>=r;i--)

#define clr(x,y) memset(x,y,sizeof(x))

#define maxn 2000

using namespace std;

int n,f[];

char s[maxn];

int read(){

    int x=,f=; char ch=getchar();

    while (!isdigit(ch)) {if (ch=='-') f=-; ch=getchar();}

    while (isdigit(ch)) {x=x*+ch-''; ch=getchar();}

    return x*f;

}

void out(){

    putchar('T');

    rep(i,,n-) putchar(s[i]);

    puts("");

}

int main(){

 //     freopen("in.txt","r",stdin);

    scanf("%s",s);

    n=strlen(s)-;

    if (s[n]==''){

        rep(i,,){

            putchar('T');

            rep(j,,n-) putchar(s[j]);

            printf("%d\n",i);

        }

        return ;

    }

    if (s[n]=='') f[]=f[]=;

    if (s[n]=='') f[]=f[]=;

    if (s[n]=='') f[]=f[]=;

    out();

    while (--n){

        int x=s[n]-'';

        if (x==) {

            if (f[]) f[]=,out();

        }

        if (x==){

            if (f[]) f[]=,out();

        }

        if (x==){

            if (f[]) f[]=,out();

        }

    }

    return ;

}