#!/usr/local/bin/sbcl --script
(format t (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))