import Control.Applicative
import Data.List
main = do
  _:l <- words <$> getContents
  let a = map length . group . sort $ l
  print $ (sum $ map (`div`2) a) + (length $ filter odd a)`div`4