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? :-)