import Control.Monad
import Control.Applicative
import Data.List

-- String, Int, Char, IO

-- e.g.
-- 1
-- [a] <- map read . words <$> getLine => [1] -> a == 1
-- 1
-- a <- readLn
-- 1 2 3
-- lst <- map read . words <$> getLine => [1, 2, 3]
-- 1 2 3
-- [l, m, n] <- map read . words <$. getLine :: IO [Int] => [1, 2, 3]
-- 'a'
-- c <- getChar => c == 'a'


main :: IO()
main = do
  n <- readLn :: IO Int
  lst <- replicateM n readLn :: IO [Int]
  let l = splitBySame $ sort lst
  print $ length $ filter odd l


samelist :: Int -> [Int] ->  Int -> (Int, [Int])
samelist a [] n = (n+1, [])
samelist a (x:xs) n
              | a == x = samelist a xs (n+1)
              | a /= x = (n+1, x:xs)



splitBySame :: [Int] -> [Int]
splitBySame [] = []
splitBySame (x:xs) = let (n, list) = (samelist x xs 0) in n : (splitBySame list)
