import           Control.Monad
import           Data.Array.Unboxed
import           Data.List.Split
import           Data.List

main :: IO ()
main = do
  l <- group . sort . map toInt . words <$> getLine
  print $ length l
  where toInt s = read s :: Int
