aluink

merge :: Ord a => [a] -> [a] -> [a]
merge [] l2 = l2
merge l1 [] = l1
merge xx@(x:xs) yy@(y:ys) = if x < y then x : merge xs yy
                                     else y : merge xx ys