import Data.List

main = getContents >>= print . powerup . tail . words

powerup :: (Eq a, Ord a) => [a] -> Int
powerup xs = sum ps + div (sum rs) 4
 where (ps,rs) = unzip $ map (flip divMod 2 . length) $ group $ sort xs