import Data.List

main = do
  getLine
  dat <- getContents >>= return . sort . (map read) . lines :: IO [Int]
  print (length (filter (\(a,b) -> odd b) (func dat)))

  where
    func [] = []
    func xs@(x:rest) = (x, len) : (func (drop len xs))
      where
        tw = takeWhile (==x) xs
        len = length tw
