#!/usr/local/bin/sbcl --script
(car '(4 6 7))