Intersección de dos Conjuntos en Lenguaje Scheme

Definir una función interseccion con dos parámetros del tipo lista l1 y l2, que devuelva una lista con el conjunto intersección.


(define (interseccion L1 L2)
(if (null? L1) null
(if (null? L2) null
(if (esta (car L1) L2)
(cons (car L1) (interseccion (cdr L1) L2))
(interseccion (cdr L1) L2)))))