#lang racket

(define (interseccion lista1 lista2)
  (if (null? lista1) '()
      (let ((include (Esta? (car lista1)lista2)))
        (if (null? (cdr lista1))
            (if include lista1 '())
            (if include
                (cons (car lista1) (interseccion (cdr lista1)lista2))
                (interseccion (cdr lista1)lista2))))))

(define (Esta? L x)
  (if (null? L)
      false
      (or (= (car L) x) (Esta? (cdr L) x))))




(define lista1 (list 1 2 3 4 5))
(define lista2 (list 2 3 5 6 7))
(interseccion lista1 lista2)