//Author: Kevin
#include<bits/stdc++.h>
//#pragma GCC optimize("O2")
using namespace std;
#define ll long long
#define ull unsigned ll
#define pb emplace_back
#define mp make_pair
#define ALL(x) (x).begin(),(x).end()
#define rALL(x) (x).rbegin(),(x).rend()
#define srt(x) sort(ALL(x))
#define rev(x) reverse(ALL(x))
#define rsrt(x) sort(rALL(x))
#define sz(x) (int)(x.size())
#define inf 0x3f3f3f3f
#define pii pair<int,int>
#define lb(v,x) (int)(lower_bound(ALL(v),x)-v.begin())
#define ub(v,x) (int)(upper_bound(ALL(v),x)-v.begin())
#define uni(v) v.resize(unique(ALL(v))-v.begin())
#define longer __int128_t
void die(string S){puts(S.c_str());exit(0);}
int val[5005][5005],tr[5005][10];
int cnt[5005][5005],f[5005][5005];
int main()
{
	ios_base::sync_with_stdio(false);
	cin.tie(0);
	cout.tie(0);
	int t;
	cin>>t;
	while(t--)
	{
		int n;
		string s;
		cin>>s;
		n=sz(s);
		for(int i=0;i<n;i++)
			val[i][1]=(s[i]^48)+1;
		for(int i=2;i<=n;i++)
		{
			int tot=0;
			for(int j=0;j<=n-i;j++)
			{
				int A=val[j][i-1],B=s[j+i-1]^48;
				if(!tr[A][B]) tr[A][B]=++tot;
				val[j][i]=tr[A][B];
			}
			for(int j=0;j<=n-i;j++)
				tr[val[j][i-1]][s[j+i-1]^48]=0;
		}
		for(int i=0;i<n;i++)
		{
			for(int j=i-1;j>=0;j--)
				cnt[i-j][val[j][i-j]]++;
			int sum=0;
			for(int j=i;j<n;j++)
			{
				f[i][j]=sum;
				sum+=cnt[j-i+1][val[i][j-i+1]];
			}
			for(int j=i-1;j>=0;j--)
				cnt[i-j][val[j][i-j]]--;
		}
		ll ans=0;
		for(int i=n-1;i>=0;i--)
		{
			for(int j=i-1;j>=0&&cnt[i-j][val[j][i-j]];j--)
				ans+=1ll*f[j][i-1]*cnt[i-j][val[j][i-j]];
			for(int j=i;j<n;j++)
				cnt[j-i+1][val[i][j-i+1]]++;
		}
		memset(cnt,0,sizeof(cnt));
		cout<<ans<<'\n';
	}
	return 0;
}