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