#include "bits/stdc++.h"

// マクロ群
#define REP(i,n) for(int i=0;i<n;++i)
#define REP2(i,a,b) for (int i=(a);i<(b);++i)
#define rep(n) REP(i,n)
#define SF(f,v) scanf(f,v)
#define SF_N(v) SF("%d",&v)
#define SF_S(v) SF("%s",v)
#define PF(f,v) printf(f,v)
#define PFS_N(v) PF("%d ",v)
#define PFS_S(v) PF("%s ",v)
#define PFL_N(v) PF("%d\n",v)
#define PFL_S(v) PF("%s\n",v)

typedef long long ll;

static ll tri[1010][1010] = { 0 }, memo['Z' + 1] = { 0 };
static int len = 0, ans = 1, MOD = 573;

using namespace std;
void Solve()
{
	string S;
	cin >> S;
	
	// 全体と個別の文字をカウント
	for (auto itr = S.begin(); itr != S.end(); ++itr)
	{
		++memo[*itr];
		++len;
	}

	// パスカルの三角形
	for (int i = 1; i <= len; ++i)
	{
		tri[i][0] = 1;	// 三角形の外側の辺は必ず１
		REP2(j, 1, i)
		{
			tri[i][j] = (tri[i - 1][j - 1] + tri[i - 1][j]) % MOD;
		}
		tri[i][i] = 1;	// 三角形の外側の辺は必ず１
	}

	for (int c = 'A'; len > 0; ++c)
	{
		if (!memo[c]) continue;
		
		ans = ans * tri[len][memo[c]] % MOD;
		len -= memo[c];
	}

	// ゼロ除算の回避。MODを足した結果に対して-1を行うことで、最小値が1に留まる
	PFL_N( (ans + MOD - 1) % MOD );
}

int main() { Solve(); return 0; }