#!/usr/local/bin/sbcl --script
(print (list 1 (list 2 (list 3 4))))