import Data.List

main = do
  s <- getLine
  print $ subtract 1 . length . group . sort $ permutations s