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