S = gets.rstrip

cnts = {}
('A'..'Z').each do | c |
  cnts[c] = S.count(c)
end
vals = []
cnts.each{ |k, v| vals << v if v != 0 }

ans = 1
size = S.size
vals.each do | val |
  val.times{|i| ans *= (size - i) }
  size = size - val
  val.times{|i| ans /= (i + 1) }
end
p ans - 1