{-# LANGUAGE Strict #-}
import qualified Data.ByteString.Char8 as B
import qualified Data.Set              as S

main :: IO ()
main = do
  n <- readLn
  ss <- B.lines <$> B.getContents
  print $ solve n ss

solve :: Int -> [B.ByteString] -> Int
solve _ ss = S.size $ S.fromList ss
