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