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 <- M.replicateM n getLine
 print $length $L.nub l
