I consider this far from best, but can't shorten more

main=getContents>>=print.maximum.foldr1(\x y->(zipWith(+)x y)++[sum x]).map(map read.words).lines

Why there's no section for haskell? :-)

it is a nice day !
-------------------------------------------------------------------------------


TaylorMade R9 Irons
Taylormade R7 CGB MAX Irons
Callaway X-22 Iron Set
Taylormade R7 CGB MAX Fairway Wood
Titleist AP2 Irons
Ping G15 Irons
Callaway X-22 Iron Set