import Control.Monad
import Data.Maybe
import Data.List
import qualified Data.ByteString.Char8 as BS
import qualified Data.Map.Strict as M

main = abc164c

abc164c = do
    [n] <- getIntList
    s <- getBSNList n
    let dict = genDict s M.empty
    print $ M.size dict

genDict [] m = m
genDict (s:ss) m
    | M.member s m = genDict ss m
    | otherwise = genDict ss (M.insert s 1 m)

readInt = fst . fromJust . BS.readInteger
readIntList = map readInt . BS.words
getIntList = readIntList <$> BS.getLine
getBSNList n = map BS.words <$> replicateM (fromIntegral n) BS.getLine