Maximum Subarray in Haskell