feck off

merge :: [Int] -> [Int] -> [Int]
merge xs [] = xs
merge [] ys = ys
merge (x:xs) ys
   | x <= head ys = x : (merge xs ys)
   | otherwise = head ys : (merge (x:xs) (tail ys))