Seminario_TP3_EJ07

(defun vocales (l1 &optional (l2 '(a e i o u)))
    (defun pertenece (atomo lista)
        (if (null lista) nil
            (if (eq atomo (car lista)) t
                (pertenece atomo (cdr lista))
            )
        )
    )
    (if (null l1) nil
        (if (pertenece (car l1) l2)
            (cons (car l1) (vocales (cdr l1)))
            (vocales (cdr l1))
        )
    )
)