{-# OPTIONS_GHC -O2 -funbox-strict-fields #-}
import qualified Data.ByteString.Char8 as BS
import qualified Data.IntMap.Strict    as M
import           Data.Maybe            (fromJust)

main :: IO ()
main = do
  n <- readLn
  as <- map readInt . BS.lines <$> BS.getContents
  print $ solve n as

solve :: Int -> [Int] -> Int
solve _ as = length . filter odd . M.elems $ M.fromListWith (+) [(a, 1) | a <- as]

readInt :: BS.ByteString -> Int
readInt = fst . fromJust . BS.readInt
