func main()
	var s: []char :: cui@input()
	var ans: int :: math@factInt(^s)
	for offset(0, 25)
		var cnt: int :: 0
		for i(0, ^s - 1)
			do cnt :+ 'A'.offset(offset) = s[i] ?(1, 0)
		end for
		do ans :/ math@factInt(cnt)
	end for
	do ans :- 1
	do cui@print("\{ans}\n")
end func