#include<iostream>
using namespace std;
long long  n,a[105],cnt,k,b[10],ans;
int qws(int x)
{
    int d=0;
    do{
        d++;
        x/=10;
    }while(x/10!=0);
    return d;
}

int cf(int c,int d)
{
    int o=c;
    for(int j=1;j<d;j++)
    {
        o*=c;
    }
    return o;
}
int main()
{
    cin>>n;
    for(int i=1;i<=n;i++)
    {
        cnt=ans=0;
        cin>>a[i];
        k=a[i];
        ans=qws(a[i]);
        for(int j=ans;j>=1;j--)
        {
            b[j]=k%10;
            k/=10;
        }
        for(int j=1;j<=ans;j++)
        {
            cnt+=cf(b[j],ans);
        }
        if(cnt==a[i])
            cout<<'T';
        else
            cout<<'F';
        cout<<endl;
    }
    return 0;
}