Simplify the interleave in haskell practicals 3