#!/usr/local/bin/sbcl --script
(defun our-remove-if (fn lst)
(if (null lst)
nil
(if (funcall fn (car lst))
(our-remove-if fn (cdr lst))
(cons (car lst) (our-remove-if fn (cdr lst))))))

(defun is-over-ten (x) (> x 10))

(print (rif #'is-over-ten '(11 14 7 8 23)))