#pragma gcc optimize("Ofast")
#include <bits/stdc++.h>
using namespace std;
#define ll long long

const int mod=1e9+7;
int add(int x,int y){x+=y;return x>=mod?x-mod:x;}
int sub(int x,int y){x-=y;return x<0?x+mod:x;}
int mul(int x,int y){return (ll)x*y%mod;}
void ckadd(int&x,int y){x=add(x,y);}
void cksub(int&x,int y){x=sub(x,y);}

const int N=55;
char s[N];
int cnt[10];
int dp[11][N];

int F[N],I[N];
void calc(){
	F[0]=1;
	for(int i=1;i<N;i++)F[i]=mul(F[i-1],i);
	I[0]=I[1]=1;
	for(int i=2;i<N;i++)I[i]=mul(mod-mod/i,I[mod%i]);
	for(int i=1;i<N;i++)I[i]=mul(I[i],I[i-1]);
}
int binom(int n,int k){
	return mul(F[n],mul(I[k],I[n-k]));
}

int DP(int n,int best,int take,int when){
	for(int j=0;j<=10;j++){
		for(int z=0;z<=n;z++){
			dp[j][z]=0;
		}
	}
	dp[0][0]=1;
	int totL=0,totR=0;
	int sb=0;
	for(int cif=0;cif<10;cif++){
		int L=0,R=cnt[best]+take-cnt[cif];
		if(best<cif)R--;
		R=min(R,n);
		if(cif==best){
			L=take;
			R=take;
		}
		if(cif>=when){
			totL=max(totL,1);
			sb=1;
		}
		for(int z=totL;z<=totR;z++){
			for(int j=L;j<=R;j++){
				if(z+j<=n){
					ckadd(dp[cif+1][z+j],mul(dp[cif][z],binom(z+j-sb,j)));
				}
			}
		}
		totL+=L;
		totR+=R;
	}
	return dp[10][n];
}

map<int,int> d;
int Full(int n){
	if(d.count(n))return d[n];
	int ans=0;
	//for(int c=1;c<=9;c++){
	//	cnt[c]++;
	cnt[0]++;
	for(int best=0;best<=9;best++){
		int mn=0;
		for(int i=0;i<10;i++){
			mn=max(mn,cnt[i]+(i>best?1:0));
		}
		int L=max(0,mn-cnt[best]);
		int R=n-1;
		for(int take=L;take<=R;take++){
			cksub(ans,mul(best,DP(n-1,best,take,10)));

		}
	}
	cnt[0]--;

		for(int best=0;best<=9;best++){
			int mn=0;
			for(int i=0;i<10;i++){
				mn=max(mn,cnt[i]+(i>best?1:0));
			}
			int L=max(0,mn-cnt[best]);
			int R=n;
			for(int take=L;take<=R;take++){
				ckadd(ans,mul(best,DP(n,best,take,10)));

				/*for(int j=0;j<=10;j++){
					for(int z=0;z<=n-1;z++){
						dp[j][z]=0;
					}
				}
				dp[0][0]=1;
				for(int cif=0;cif<10;cif++){
					int L=0,R=cnt[best]+take-cnt[cif];
					if(best<cif)R--;
					R=min(R,n-1);
					if(cif==best){
						L=take;
						R=take;
					}
					for(int j=L;j<=R;j++){
						for(int z=j;z<=n-1;z++){
							ckadd(dp[cif+1][z],mul(dp[cif][z-j],binom(z,j)));
						}
					}
				}
				ckadd(ans,mul(best,dp[10][n-1]));*/
			}
		}
		//cnt[c]--;
	//}
	return d[n]=ans;
}
int main(){
	calc();
	int t;
	scanf("%i",&t);
	while(t--){
		scanf("%s",s+1);
		int ans=0;
		int n=strlen(s+1);
		for(int i=1;i<n;i++){
			ckadd(ans,Full(i));
		}
		for(int i=1;i<=n;i++){
			int now=s[i]-'0';
			if(i==1){
				cnt[0]++;
				for(int best=0;best<=9;best++){
					int mn=0;
					for(int i=0;i<10;i++){
						mn=max(mn,cnt[i]+(i>best?1:0));
					}
					int L=max(0,mn-cnt[best]);
					int R=n-i;
					for(int take=L;take<=R;take++){
						cksub(ans,mul(best,DP(n-i,best,take,10)));
					}
				}
				cnt[0]--;
			}
			//for(int c=0;c<now;c++){
			//	if(i==1 && c==0)continue;
			//	cnt[c]++;
				for(int best=0;best<=9;best++){
					int mn=0;
					for(int i=0;i<10;i++){
						mn=max(mn,cnt[i]+(i>best?1:0));
					}
					int L=max(0,mn-cnt[best]);
					int R=n-i+1;
					for(int take=L;take<=R;take++){
						ckadd(ans,mul(best,DP(n-i+1,best,take,now)));
						/*for(int j=0;j<=10;j++){
							for(int z=0;z<=n-i;z++){
								dp[j][z]=0;
							}
						}
						dp[0][0]=1;
						for(int cif=0;cif<10;cif++){
							int L=0,R=cnt[best]+take-cnt[cif];
							if(best<cif)R--;
							R=min(R,n-i);
							if(cif==best){
								L=take;
								R=take;
							}
							for(int j=L;j<=R;j++){
								for(int z=j;z<=n-i;z++){
									ckadd(dp[cif+1][z],mul(dp[cif][z-j],binom(z,j)));
								}
							}
						}
						//printf("prefix:%i c:%i best:%i take:%i  dp:%i\n",i,c,best,take,dp[10][n-i]);
						ckadd(ans,mul(best,dp[10][n-i]));*/
					}
				}
				//cnt[c]--;
			//}
			cnt[now]++;
		}
		int mx=0;
		for(int i=1;i<10;i++){
			if(cnt[i]>=cnt[mx])mx=i;
		}
		ckadd(ans,mx);
		printf("%i\n",ans);

		for(int i=0;i<10;i++)cnt[i]=0;
	}
	return 0;
}