main :: IO ()
main = do
    n <- readLn :: IO Int
    input <- replicateM n getLine
    let ans = countGemStones input
    print (length ans)
main :: IO ()
main = do
    n <- readLn :: IO Int
    input <- replicateM n getLine
    let ans = countGemStones input
    print (length ans)
main = do
    n <- readLn :: IO Int
    input <- replicateM n getLine
    let ans = countGemStones input
    print (length ans)