#!/usr/local/bin/sbcl --script (print (mapcar (lambda (x) (x)) (list 2 3 5 6)))