-- Запуск mulisp.com merge.lsp

(defun merge(l1 l2)
 (cond
   ((null l1) l2)
   ((null l2) l1)

   ((> (car l1) (car l2)) (cons (car l1) (merge (cdr l1) l2) )  )
   (null (cons (car l2) (merge l1 (cdr l2)) )  )
 )
)

(merge '(8 5 3) '(9 7 4))
(system)