import Control.Monad

check :: [String] -> [String] -> [String]
check [] _ = []
check (x:xs) lst
    | x `notElem` lst  = x : check xs (x : lst) 
    | otherwise      = check xs lst

main = do
    n <- readLn
    s <- replicateM n getLine
    print $ length $ check s []