import qualified Data.Map as M
import Data.Ord
import Data.List

stat = unlines . map (\(p,s) -> p ++ " " ++ show s) . sortBy (comparing snd) . M.toList .
       foldr (uncurry (M.insertWith (+)) ) M.empty . concat

main = interact (stat . (read :: String -> [[(String, Int)]] ))