import Data.List

fact n = product [1..n]

main = do
 s <- getLine
 let l = length s
 let l' = length . group . sort $ s
 print (max 0 (div (fact l) ((fact (l-l'))^2) - 1))