import Control.Monad

origin :: [String] -> [String] -> [String]
origin [] ans = ans
origin (x:xs) ans =
  if elem x ans
  then origin xs ans
  else origin xs (x:ans)

main :: IO ()
main = do
 n <- readLn
 s <- replicateM n getLine
 print $ length $ origin s []
