-- Solution for https://g...content-available-to-author-only...b.com/draftcode/coding-interview/blob/master/aggregate.md
 
import qualified Data.Map as M
import GHC.Exts
 
中 = map (\(n,v) -> n ++ " " ++ (show v))
野 dict = reverse $ sortWith snd (M.toList dict)
梓 lst = foldl にゃん M.empty $ map words lst
  where
    にゃん dict (name:val:_) = M.insertWith (+) name (read val) dict
 
あずにゃん = 中.野.梓
 
main = interact (unlines . (あずにゃん . lines))

LS0gU29sdXRpb24gZm9yIGh0dHBzOi8vZy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uYi5jb20vZHJhZnRjb2RlL2NvZGluZy1pbnRlcnZpZXcvYmxvYi9tYXN0ZXIvYWdncmVnYXRlLm1kCgppbXBvcnQgcXVhbGlmaWVkIERhdGEuTWFwIGFzIE0KaW1wb3J0IEdIQy5FeHRzCgrkuK0gPSBtYXAgKFwobix2KSAtPiBuICsrICIgIiArKyAoc2hvdyB2KSkK6YeOIGRpY3QgPSByZXZlcnNlICQgc29ydFdpdGggc25kIChNLnRvTGlzdCBkaWN0KQrmopMgbHN0ID0gZm9sZGwg44Gr44KD44KTIE0uZW1wdHkgJCBtYXAgd29yZHMgbHN0CiAgd2hlcmUKICAgIOOBq+OCg+OCkyBkaWN0IChuYW1lOnZhbDpfKSA9IE0uaW5zZXJ0V2l0aCAoKykgbmFtZSAocmVhZCB2YWwpIGRpY3QKCuOBguOBmuOBq+OCg+OCkyA9IOS4rS7ph44u5qKTCgptYWluID0gaW50ZXJhY3QgKHVubGluZXMgLiAo44GC44Ga44Gr44KD44KTIC4gbGluZXMpKQ==

QXBwbGUgMwpCYW5hbmEgNQpNZWxvbiAyCkFwcGxlIDgKTWVsb24gNA==

Apple 3
Banana 5
Melon 2
Apple 8
Melon 4