merge two sorted lists and find maximum (LISP)