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

(set 'x '(1 2 3))
(set bonus 1)