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