import
System.IOpr::String->[Int]->IO()
pr fileName list = do
appendFile fileName (show list)
merge :: [Int]-> [Int]->[Int]
merge [] [] = []
merge [] (y:ys) = (y:ys)
merge (x:xs) [] = (x:xs)
merge (x:xs) (y:ys) = if x < y
then x : (merge xs (y:ys))
else y : (merge (x:xs) ys)
main = do
s1<- getLine
let sp1 = map read (words s1)
s2<- getLine
let sp2 = map read (words s2)
let c = merge sp1 sp2
pr "list.txt" c