import Data.List
main::IO()
main =do
  ws<-getLine
  let kaijou 1 = 1
      kaijou n = n*kaijou (n-1)
  print . (subtract 1) . 
      foldl (\acc x->div acc $kaijou x) (kaijou $length ws) . 
      map length . group . sort $ws