#!/usr/local/bin/sbcl --script


(format t "~a~%"(remove-if-not #'evenp '(1 2 3 4 5 6 7 8 9 10)))
(remove-if-not #'evenp '(1 2 3 4 5 6 7 8 9 10))



(format t "~a~%" (remove-if-not #'(lambda (x) (= 0 (mod x 2))) '(1 2 3 4 5 6 7 8 9 10)))


(format t "~a~%" (remove-if-not #'(lambda (x) (= 1 (mod x 2))) '(1 2 3 4 5 6 7 8 9 10)))