#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <algorithm>
#include <iostream>
#include <map>
#include <vector>
#include <queue>

using namespace std;

//namaega184

int main(){
	/*
	int k,s;scanf("%d%d",&k,&s);
	printf("%d\n",100*s/(100-k));
	
	char s[10];scanf("%s",s);int a[30]={};
	for(int i=0;s[i]!='\0';i++)a[s[i]-'A']++;
	int ans=1,tmp=1,len=strlen(s);
	int fac[10];for(int i=1;i<10;i++){fac[i]=tmp*=i;} 
	for(int i=1;i<=len;i++)ans*=i; 
	for(int i=0;i<26;i++)if(a[i])ans/=fac[a[i]];
	printf("%d\n",ans-1);
	*/
	
	char s[1001];scanf("%s",s);int a[30]={};
	int ans=1,tmp=1,len=strlen(s),mod=573;//3*191;
	for(int i=0;s[i]!='\0';i++)a[s[i]-'A']++;
	int fac[1001]={};
	
	for(int i=0;i<26;i++){
		if(a[i]){for(int j=2;j<=a[i];j++){fac[j]++;}
	}}
	int maxlen=len*mod;
	
	for(int i=1;i<=len;i++){
		ans*=i;
		for(int j=2;j<1001;j++){
			while(fac[j]&&ans%j==0){
				ans/=j;
				fac[j]--;
			}
		}
		if(ans>=maxlen)ans%=maxlen;
		//printf("%d\n",ans);
	} 
	ans%=mod;
	ans--;
	if(ans<0)ans=572;
	printf("%d\n",ans%mod);
	 
	return 0;
}