import Control.Monad
import Data.List as List

-- main = do
--     n <- readLn
--     s <- replicateM n getLine
--     print $ length . group $ List.sort s

main = do
    n <- readLn
    s <- replicateM n getLine
    print $ length $ nub s