{-# LANGUAGE ScopedTypeVariables #-}

import qualified Data.List as List
import qualified Data.Set as Set

main :: IO ()
main = do
    cs <- Set.fromList . words <$> getContents
    print $ Set.size cs
