gistfile1.txt

(define (filter pred xs)
  (define (skip xs)
    (cond [(null? xs) xs]
          [(pred (car xs)) xs]
          [else (skip (cdr xs))]))
  (unfold null?
          (^[xs] (car xs))
          (^[xs] (skip (cdr xs)))
          (skip xs)))