use bigint;
$_=<>;$n=bfac{$n=y///c-1};
$$_++for/./g;
$n/=(0+$$_)->bfac for A..Z;
print+($n-1)%573