Seminario_TP3_EJ05

(defun ej5 (l1 l2)
    (defun posnum (num lista &optional (cont 1))
        (if (eq num cont)
            (car lista)
            (posnum num (cdr lista) (+ cont 1))
        )
    )
    (if (null l2) nil
        (cons (posnum (car l2) l1) (ej5 l1 (cdr l2)))
    )
)