max_sublist (x:xs) = fst $ foldl' f (x,x) xs
  where
    f (mx, mx_here) xi = let mx_here' = max xi (mx_here+xi)
                             mx'      = max mx mx_here'
                         in (mx', mx_here')