Merge Oz

declare
fun {Merge L1 L2}
   case L1 of
      nil then L2
   [] H1|T1 then
      case L2 of
     nil then L1
      [] H2|T2 then
     if H1<H2 then
        H1|{Merge T1 L2}
     else
        H2|{Merge L1 T2}
     end
      end
   end
end

{Browse {Merge [1 2 3 4 10] [2 3 22 40]}}