import Data.List

fact n = product [1..n]

main = do
 s <- getLine
 let l = length s
 let ls = map length . group . sort $ s
 print (max 0 (div (fact l) (product (map fact ls)) - 1))