Unnamed

(define (eat-apples lst)
  (cond
    [(empty? lst) lst]
    [(equal? (first lst) 'apple) (eat-apples (rest lst))]
    [else (cons (first lst) (eat-apples (rest lst)))]
  )
)

(eat-apples '(apple banana chicken))