mergePairs (a:b:xs) = merge a b `seq` merge a b : mergePairs xs

as well.

On Tue, Mar 28, 2017 at 11:43 AM, Gregory Popovitch <greg7mdp@gmail.com> wrote:

OK, so current proposed changes are below:

test results look good.

Thanks,

greg