import Data.List
main=interact$show.((,).head<*>(sum.take 3)).reverse.sort.map(sum.map read.filter(>"")).(groupBy(\b->(>""))).lines