On Wed, 20 Jul 2005, Sun Yi Ming wrote: > mix :: [a] -> [a] -> [a] > mix [] ys = ys > mix xs [] = xs > mix (x:xs) (y:ys) = [x,y] ++ mix xs ys mix xs ys = concat (Data.List.transpose [xs,ys])