#!/usr/local/bin/sbcl --script
(print (mapcar #'identity '(1 2)))