more Longest Word, Sum to Zero

Haskell