import Control.Monad
import qualified Data.Vector as V
import qualified Data.List as L

check [] _ = []
check (x:xs) vector
    | V.elem x vector = x : check xs (V.cons x vector) 
    | otherwise       = check xs vector

main = do
    n <- readLn
    s <- replicateM n getLine
    print $ length $ V.uniq $ V.fromList $ L.sort s