import qualified Data.ByteString.Char8 as BS
import qualified Data.List as L
import qualified Data.Set as S
import qualified Control.Monad as M

main = do
 n <- readLn
 l <- S.fromList<$>M.replicateM n getLine
 print $ S.size l
