module Yuki

open System

let solve (s : string) =    

    let fact =
        let rec f acc =
            function
            | 1 -> acc
            | n -> f (acc * n) (n - 1)
        f 1 
    s.ToCharArray()
    |> Array.countBy id    
    |> Array.map snd
    |> Array.fold (fun acc x -> acc / (fact x)) (fact s.Length)
    |> fun x -> x - 1

let S = Console.ReadLine()

solve S
|> Console.WriteLine