(define filter-in
  (lambda (p l)
    (cond [(null? l) '()]
	  [(p (car l)) (cons (car l) (filter-in p (cdr l)))]
	  [else (filter-in p (cdr l))])))