import Data.List

main = getLine >>= print . pred . solve . sort

solve :: String -> Int
solve xs = product [1..(length xs)] `div` (product . map (\x -> product [1..(length x)]) . group) xs