(define (filter f L) (cond ((null? L) '()) ((f (car L)) (cons (car L) (filter f (cdr L)))) (else (filter f (cdr L))) ) )